Avatar billede moejensen Nybegynder
17. oktober 2001 - 19:09 Der er 2 kommentarer og
1 løsning

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?
Avatar billede nute Nybegynder
17. oktober 2001 - 19:17 #1
<%
        SQL = \"SELECT * from persondata WHERE Email = \'\" & request.form(\"email\") & \"\'\"
        set send = conn.execute( SQL )
        if( NOT send.EOF ) then
          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>\"


else
    response.write \"Email adresse ikke funnet\"     
end if
%>

/nute
Avatar billede moejensen Nybegynder
17. oktober 2001 - 19:29 #2
tusind tak for hjælpen
Avatar billede nute Nybegynder
17. oktober 2001 - 19:30 #3
anytime :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester