Frågan 23 okt. 2002 11:09 #1 Koden nedan skickar inte något mail. Varför inte?
[red] sql = "select eml, usr, pwd from drikkusers where eml = '"&request("eml")&"'"
openRs(sql)
if not rs.eof then
mailFrom = "OlleBoy - PasswordReminder"
mailTo = rs("eml")
mailSubject = "Dina inloggningsuppgifter"
mailBody = "Här kommer uppgifterna du begärde." & vbcrlf & vbcrlf & _
"Användarnamn: " & rs("usr") & vbcrlf & _
"Lösenord: " & rs("pwd")
call sendMail(mailFrom, mailTo, mailSubject, mailbody)
else
response.write "eof"
end if[/red]
vill inte fungera tillsammans med den här kodsnuten.
[red]
sub sendMail(mailFrom, mailTo, mailSubject, mailBody)
set cdoMail = server.createobject("cdonts.newMail")
cdoMail.From = mailFrom
cdoMail.To = mailTo
cdoMail.Subject = mailSubject
cdoMail.Body = mailBody
cdoMail.Send
set cdoMail = nothing
end sub[/red]
@nders Medlem sedan juni 2000 32 969 inlägg Avsändare måste vara en giltig e-postadress.
Mvh,
Va drygt! Går det inte komma runt det på något vis?
P PatrikB Medlem sedan mars 2000 2 836 inlägg Det går att komma runt den om du har kontroll över din mailserver, men, det är inte rekomenderat att relaya alla mail för risken att spammare börjar använda sig av mail-servern ;)
cya,
får ändå inget mail
Jag ändrade så det ser ut så här nu men jag får fortfarande inte något mail. Det ska skickas till tmpmejl@hotmail.com
[red] sql = "select eml, usr, pwd from drikkusers where eml = '"&request("eml")&"'"
openRs(sql)
if not rs.eof then
mailFrom = "newjudas@hotmail.com"
mailTo = rs("eml")
mailSubject = "Dina inloggningsuppgifter"
mailBody = "Här kommer uppgifterna du begärde." & vbcrlf & vbcrlf & _
"Användarnamn: " & rs("usr") & vbcrlf & _
"Lösenord: " & rs("pwd")
call sendMail(mailFrom, mailTo, mailSubject, mailbody)
response.write rs("eml")
else
response.write "Mailen du angav finns inte i datbasen."
end if[/red]
