Asp Classic Connection String 500 - Kesalahan server internal

MICROSOFT.JET.OLEDB.4.0 adalah penyedia OLEDB untuk MS Access. Anda memerlukan ODBC atau string koneksi OLEDB untuk Oracle. Lihat halaman ini untuk opsi

http://www.connectionstrings.com/Oracle/

Setelah itu Anda memerlukan objek recordset seperti yang disarankan kloarubeek di atas. Cara yang sangat sederhana untuk melakukannya adalah sebagai berikut.

    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) 

Saya juga melihat Anda menggunakan CDONTS untuk mengirim email. Itu sudah usang dan Anda tidak akan menemukannya di versi IIS saat ini secara default. Lihat CDOSYS sebagai gantinya

http://www.w3schools.com/asp/asp_send_email.asp

Akhirnya, saya merekomendasikan halaman ini untuk siapa saja yang mempelajari ASP Klasik. Ini menjelaskan cara mendapatkan pesan kesalahan yang lebih berguna daripada halaman kesalahan 500 server internal dasar.

http://www.chestysoft.com/asp-error-messages.asp

Sunting

Contoh skrip pengambilan kata sandi menggunakan CDOSYS dan recordset.

NB Konfigurasi CDO akan tergantung pada server smtp Anda. Application("conn") berarti string koneksi saya yang sebenarnya ada dalam file bernama global.asa. Halaman ini sebenarnya terhubung ke SQL Server db, tetapi kodenya harus bekerja dengan 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

%>