hvorfor sender den ikke jmail
nedenstående script virker umiddelbart fint men den sender ikke mailen.<B>Glemt Brugernavn / Password</B><BR>
<% if request.querystring("action") = "submit" then
if request.form("bruger") = "" then
for each item in request.form
session(item) = request.form(item)
next
session("fejl") = "Udfyld venligst bruger feltet."
response.redirect("glemtpw.asp")
end if
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\database\din-startside\database.mdb"
Conn.Open DSN
Set rs = Conn.execute("SELECT * FROM Admin WHERE login = '" & request.form("bruger") & "'")
if rs.eof then
for each item in request.form
session(item) = request.form(item)
next
session("fejl") = "Der er ingen brugere med det angivne brugernavn."
response.redirect("glemtpw.asp")
else
brugernavn = rs("fornavn")
password = rs("password")
email = rs("login")
on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ISOEncodeHeaders = False
JMail.ServerAddress = "mail.din-startside.dk"
JMail.Sender = "admin@din-startside.dk"
JMail.Subject = "Oplysninger hos din-startside.dk"
JMail.AddRecipient rs("login")
JMail.Priority = 3
JMail.Body = "dit password er" & vbcrlf & password
JMail.Execute
response.write ("Dine oplysninger er sendt til din email adresse.<BR><BR>")
end if
set rs = nothing
conn.close
set conn = nothing
else %>
Hvis du har glemt dit brugernavn / password kan du få tilsendt dine oplysninger ved at bruge denne side.<P>
<% if session("fejl") <> "" then
response.write "<B>" & session("fejl") & "</B><BR>"
end if %>
<FORM ACTION="glemtpw.asp?action=submit" METHOD="POST">
Indtast Brugernavn:<BR>
<INPUT TYPE="text" name="bruger" value="<% =session("bruger") %>" size="20"><BR>
<INPUT TYPE="submit" VALUE="Send mine oplysninger">
</FORM>
<%
session("bruger") = ""
session("fejl") = ""
end if %>
</font>
