Hjælp simpel script virker ikke
Hvad er der galt med dette script, ønsker at sende en email fra databasen testEr hel grøn i Jmail og Aspmail
mvh
Lars
<head><title>Glemt PW</title><LINK REL="StyleSheet" HREF="default.css" type="text/css"></head><body><p>
<img height="72" src="http://www.lhdesign.dk/Image8.jpg" width="81" border="0"><p>
<b><font size="2">Glemt password</font></b></body></html><%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("test.mdb")
Conn.Open DSN
Dim samletAntal
' SQL forespørgsel
strSQL = "SELECT * FROM test"
Set rs = Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
If fejl = false Then
set jMail = server.createobject("JMAIL.SMTPMail")
jMail.sendername = "Password til LHDesign.dk...?" '<<Overskrift her!
jMail.sender = "mail@domain.dk" '<<lhdesign@mail.dk!
jMail.ServerAddress = "post7.tele.dk" '<<post7.tele.dk!
jMail.AddRecipient rs("navn"), rs("email")
jMail.Body = "Hej " & realname & "!" & vbNewLine & vbNewLine & "Du har bedt om at få dit password tilsendt." & vbNewLine & vbNewLine & "Dit password er: " & navn & vbNewLine & vbNewLine & "Med venlig hilsen Webmaster" & vbNewLine & vbNewLine & "http://www.lhdesign.dk" & vbNewLine & "lhdesign@mail.dk"
jMail.Execute
jMail.Close
Set jMail = Nothing
Response.write "<p>Dit password er blevet sendt til <a href='mailto:" & email & "'>" & email & "</a>"
end if
Response.write "<p><a href=java script:history.back()>Tilbage</a>"
%></body></html>
