> > strSQL = "Select * from bruger where email = ('" &
> > Request.Querystring(strEmail)&"')"
>
> Men ovenstående er forkert - så vidt jeg kan bedømme i al fald.
> Først henter du en mailadresse med Request.Form. Efter at have
> sikret mod anførselstegnsfejl bruger du så værdien til at hente fra
> Request.Querystring. Jeg vil tro at request.querystring helt skal
> fjernes fra linjen herover.
Selvfølgelig
> Do While Not rs.EOF
>
> [løkke]
>
> Loop
Er også ordnet og kører fint nu.
Mit problem er nu:
Nedenstående side henter en email addresse fra en anden side via post
metoden.
Email addressen skal så sættes ind i koden så et brugernavn og password kan
sendes til brugeren hvis han/hun har glemt det.
Vi starter med blot at sende en mail til brugeren. Brugernavn mm. kan jeg
selv ordne senere.
Nedenstående kode giver denne fejl:
-----------------------------
The event class for this subscription is in an invalid partition
-----------------------------
det er i 7. sidste linie hvor der står:
----------------------------
..Send
End With
----------------------------
Der hvor jeg sætter modtager addressen " .To = """Jakob Andersen""
<email>"" hvordan får jeg email addressen jeg netop har hentet med post
metoden ind? Det er vel ikke nok at skrive email?
Har du en løsning på det her?
Tusind tak
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("bh.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from bruger where email = ('" &
Request.Form("email")&"')"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF
' Udskriv værdien af kolonnen Fornavn
Response.Write rs("Fornavn") & "<br>"
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
'Vi definerer message objektet
Dim objMsg
Set objMsg = Server.CreateObject("CDO.Message")
'Vi definerer Konfigurationsobjektet som indeholder
'oplysninger om f.eks. mailserver
Dim objConf
Set objConf = Server.CreateObject("CDO.Configuration")
'Vi læser alle indstillingerne fra konfigurationsobjektet over i
'en collection
Dim ConfFields
Set ConfFields = objConf.Fields
With ConfFields
'Her specificeres hvordan mailen sendes. Vi vælger 2 for at sende igennem en
port og ikke f.eks. exchange
.Item("
http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Her specificeres SMTPserverens navn
.Item("
http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"smtp.mail.dk"
'Her specificeres timeoutlængden til SMTPserveren
..Item("
http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
) = 10 ' Hurtig timeout
.Update
End With
With objMsg
' Vi sætter nu Configuration parametren på message objectet lig med
voreskonfigurations objekt
Set .Configuration = objConf
'Vi sætter modtageren
.To = """Jakob Andersen"" <email>"
'Vi sætter afsenderen
.From = """En adresse"" <jk@jk.dk>"
'Vi sætter emnet
.Subject = "Dette er emnet"
.Send
End With
Set objConf = Nothing
Set objMsg = Nothing
%>