Asp Classic Connection String 500

MICROSOFT.JET.OLEDB.4.0 is de OLEDB-provider voor MS Access. U hebt een ODBC- of een OLEDB-verbindingsreeks nodig voor Oracle. Zie deze pagina voor opties

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

Daarna heb je een recordset-object nodig zoals kloarubeek hierboven suggereert. Een heel eenvoudige manier om dit te doen is als volgt.

    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)

Ik merk ook dat je CDONTS gebruikt om e-mails te verzenden. Het is verouderd en u zult het standaard niet vinden in de huidige versies van IIS. Kijk in plaats daarvan naar CDOSYS

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

Ten slotte raad ik deze pagina aan voor iedereen die klassieke ASP leert. Het legt uit hoe u foutmeldingen kunt krijgen die nuttiger zijn dan de standaard 500 interne serverfoutpagina.

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

Bewerken

Een voorbeeld van een script voor het ophalen van wachtwoorden met CDOSYS en een recordset.

NB De CDO-configuratie is afhankelijk van uw smtp-server. Application ("conn") betekent dat mijn werkelijke verbindingsreeks in een bestand met de naam global.asa staat. Deze pagina maakt eigenlijk verbinding met een SQL Server db, maar de code zou moeten werken met 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

%>

Asp Classic Connection String 500 - Interne serverfout