E-mail fejl
Dette er koderne til forsendelse af glemt-password. Problemet er, at nå det er en udenfor vores 'virksomhed' der har glemt sit password får vi blot en fejlmeddelse, hvorimod hvis det er indenfor 'virksomheden' er der ingen fejlmeddelse, og passwordet når fejlfrit igennem til os. Er der nogen der kan hjælpe mig, og fortælle mig hvorfor der ikke bliver sendt en e-mail til dem udenfor 'virksomheden'?Koderne:
<%response.buffer=true%>
<%
kundenr = request.form("kundenr")
if kundenr ="" then
response.redirect "login.asp"
end if
set conn=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("/dataentry/engros.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
set rskunde=server.CreateObject("ADODB.Recordset")
rskunde.open "SELECT * FROM kunder WHERE kundenr ='"&kundenr&"'",conn,3
if rskunde.recordcount < 1 then
msg = 1
else
if rskunde("email") <> "" then
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "194.239.150.10"
JMail.Sender = "meldgaard@meldgaard.com"
JMail.ReplyTo = rskunde("email")
JMail.SenderName = "meldgaard ENGROS"
JMail.Subject = "meldgaard ENGROS Login"
JMail.AddRecipient rskunde("email")
JMail.AppendText "Dit brugernavn : "& rskunde("kundenr") & vbCrLf & vbCrLf
JMail.AppendText "Dit password : "& rskunde("password") & vbCrLf & vbCrLf
JMail.AppendText "Venlig hilsen" & vbCrLf & vbCrLf & "meldgaard ENGROS"
JMail.Priority = 1
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
msg = 2
else
msg = 3
end if
end if
%>
