Asp Classic ConnectionString500-内部サーバーエラー

MICROSOFT.JET.OLEDB.4.0は、MSAccess用のOLEDBプロバイダーです。 OracleにはODBCまたはOLEDB接続文字列が必要です。オプションについては、このページを参照してください

http://www.connectionstrings.com/oracle/

その後、kloarubeekが上記で示唆しているように、レコードセットオブジェクトが必要になります。これを行う非常に簡単な方法は次のとおりです。

    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) 

また、CDONTSを使用してメールを送信していることに気付きました。これは非推奨であり、現在のバージョンのIISではデフォルトで見つかりません。代わりにCDOSYSを見てください

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

最後に、ClassicASPを学ぶ人にはこのページをお勧めします。基本的な500内部サーバーのエラーページよりも便利なエラーメッセージを取得する方法について説明します。

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

編集

CDOSYSとレコードセットを使用したパスワード取得スクリプトの例。

注意CDO構成は、SMTPサーバーによって異なります。 Application（ "conn"）は、実際の接続文字列がglobal.asaというファイルにあることを意味します。このページは実際にはSQLServerデータベースに接続していますが、コードは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

%>