Fejlbesked i aspmail
jeg har følgende script til at sende en mail med en persons brugernavn og password hvis vedkommende har glemt det. Han eller hun indtaster sin email, og stykker send, og så dendes den vidre til den side jeg har vist herunder:<%
Response.Buffer = True
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../database/vag/bruger.mdb\")
action = Request.QueryString(\"action\")
%>
<%
SQL = \"SELECT * from persondata WHERE Email = \'\" & request.form(\"email\") & \"\'\"
set send = conn.execute( SQL )
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.FromName = \"Password service på Moe-Jensen.dk\"
Mailer.FromAddress= \"webmaster@moe-jensen.dk\"
\' This is my local SMTP server
Mailer.RemoteHost = \"mail.moe-jensen.dk\"
Mailer.AddRecipient send(\"Name\"), send(\"Email\")
Mailer.CharSet = 2
Mailer.Subject = \"Glemt Brugernavn eller Password\"
Mailer.BodyText = \"Hejsa!! <br> Herunder følger dit brugernavn og password til din profil på http://www.moe-jensen.dk\"
Mailer.BodyText = \"\"
Mailer.BodyText = \"Dit brugernavn er:\" send(\"Username\")
Mailer.BodyText = \"Dit Password er:\" send(\"Password\")
Mailer.BodyText = \"\"
Mailer.BodyText = \"Med Venlig Hilsen\"
Mailer.BodyText = \"Kasper Moe-Jensen\"
Mailer.BodyText = \"Webmaster på www.Moe-Jensen.dk\"
Mailer.Priority = 1
Mailer.SendMail
Set Mailer = Nothing
response.write \"<h4>Meddelelse er sendt til : \"& send(\"email\") &\"<br>\"
%>
<%
conn.close
%>
Men hvodan laver jeg så den skriver en fejlmedelse på skærmen når den indtastede email ikke findes i databasen?
