MICROSOFT.JET.OLEDB.4.0 MS एक्सेस के लिए OLEDB प्रदाता है। Oracle के लिए आपको या तो ODBC या OLEDB कनेक्शन स्ट्रिंग की आवश्यकता होगी। विकल्पों के लिए यह पेज देखें
http://www.connectionstrings.com/oracle/
उसके बाद आपको एक रिकॉर्डसेट ऑब्जेक्ट की आवश्यकता है जैसा कि क्लोरुबीक ऊपर सुझाता है। ऐसा करने का एक बहुत ही आसान तरीका इस प्रकार होगा।
DIM objDB, rs, rssql
Set objDB = Server.CreateObject("ADODB.Connection")
objDB.Open "[your connection string goes here]"
rssql = "SELECT email_addr,medacist_password FROM medacist_user WHERE email_addr = '" & strEmail & "'"
Set rs = objDB.Execute(rsSQL)
साथ ही मैंने देखा है कि आप ईमेल भेजने के लिए सीडीओएनटीएस का उपयोग कर रहे हैं। यह बहिष्कृत है और आप इसे डिफ़ॉल्ट रूप से IIS के वर्तमान संस्करणों पर नहीं पाएंगे। इसके बजाय सीडीओएसवाईएस देखें
http://www.w3schools.com/asp/asp_send_email.asp
अंत में, मैं क्लासिक एएसपी सीखने वाले किसी भी व्यक्ति के लिए इस पृष्ठ की अनुशंसा करता हूं। यह बताता है कि त्रुटि संदेश कैसे प्राप्त करें जो मूल 500 आंतरिक सर्वर त्रुटि पृष्ठ से अधिक उपयोगी हैं।
http://www.chestysoft.com/asp-error-messages.asp ए>
संपादित करें
CDOSYS और एक रिकॉर्डसेट का उपयोग करके पासवर्ड पुनर्प्राप्ति स्क्रिप्ट का एक उदाहरण।
एनबी सीडीओ विन्यास आपके एसएमटीपी सर्वर पर निर्भर करेगा। एप्लिकेशन ("कॉन") का अर्थ है कि मेरी वास्तविक कनेक्शन स्ट्रिंग Global.asa नामक फ़ाइल में है। यह पृष्ठ वास्तव में SQL सर्वर db से जुड़ता है, लेकिन कोड को Oracle के साथ काम करना चाहिए
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
If InStr(request.form("username"),"@") > 0 Then
Set objMail = Server.CreateObject("CDO.Message")
Set iConfg = Server.CreateObject("CDO.Configuration")
Set Flds = iConfg.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "youremailusername"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "youremailpasword"
.Update
End With
objMail.Configuration = iConfg
objMail.To = CStr(request.form("username"))
objMail.From = "[email protected]"
objMail.Subject = "Your login details"
objMail.TextBody = "Your login details are as follows " & vbcrlf & vbcrlf
set conn = Server.CreateObject("ADODB.Connection")
conn.open Application("conn")
sql = "select ContactEmailAddress, ContactAffiliateUsername, ContactAffiliatePassword from Contacts where ContactEmailAddress ='" & request.form("username") & "'"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,3,1
If rs.bof And rs.eof Then
response.redirect("invalidemailpage.asp?invalidemail=2")
Else
objMail.To = RS("ContactEmailAddress")
objMail.TextBody = objMail.TextBody & "Username = " & RS("ContactAffiliateUsername") & ", Password = " & RS("ContactAffiliatePassword") & vbcrlf
End If
objMail.Send
Set objMail = Nothing
rs.close
set rs = nothing
conn.close
set conn = nothing
response.redirect("login.asp?sentpassword=1")
Else
response.redirect("invalidemailpage.asp?invalidemail=1")
End If
%>