email form - fejl hvis email ikke findes:

hvordan laver jeg en udskrift eller redirect hvis emailen ikke findes. Jeg benytter dette object:

<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"Connections/yada.asp\" -->
<%
Dim rs_users__MMColParam
rs_users__MMColParam = \"1\"
if (Request.Form(\"email\") <> \"\") then rs_users__MMColParam = Request.Form(\"email\")
%>
<meta http-equiv=\"refresh\" content=\"3;URL=http://www.yada.dk/oversigt.asp\">
<%
set rs_users = Server.CreateObject(\"ADODB.Recordset\")
rs_users.ActiveConnection = MM_booking_STRING
rs_users.Source = \"SELECT *  FROM users  WHERE email = \'\" + Replace(rs_users__MMColParam, \"\'\", \"\'\'\") + \"\'\"
\'response.write rs_users.Source
\'response.end

rs_users.CursorType = 0
rs_users.CursorLocation = 2
rs_users.LockType = 3
rs_users.Open()
rs_users_numRows = 0
%>
<%
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.charset = 2
Mailer.ContentType = \"text/html\"
Mailer.FromName  = \"Mail fra yada yada\"
Mailer.FromAddress= \"yada@yada.dk\"
Mailer.RemoteHost = \"mail.yada.dk\"
Mailer.AddRecipient rs_users.Fields.Item(\"navn\").Value, rs_users.Fields.Item(\"email\").Value
Mailer.Subject    = \"Glemt password yada yada \"

tekst = \"\"
linie = vbCrLf
\'linie = \"<br>\"
udfyldt = false

for each e in Request.Form
    if e <> \"Type\" and e <> \"Submit\" then
        if Request.Form(e) <> \"\" then
            udfyldt = true
            tekst = tekst & e & linie & Request.Form(e) & linie & linie
        end if
    end if
next

\'Response.Write tekst

Mailer.BodyText  = \"Dit password til yada yada er: \" & (rs_users.Fields.Item(\"password\").Value) & \"<BR>\"& \"Dit brugernavn til yada yada er: \" & (rs_users.Fields.Item(\"username\").Value) & \"<BR><a href=http://www.title>yada.dk/>http://www.title>yada.dk</a>\"

if udfyldt then
    if Mailer.SendMail then
      Response.Write \"<p>Dit password er send til dig. Check din mail!</p>\"
    else
      Response.Write \"<p>Dit password blev<b> ikke</b> send</p>\"
      Response.Write \"<p>Mail-fejl. Fejlen var: <b>\" & Mailer.Response & \"</b></p>\"
    end if
else
      Response.Write \"<p>Dit password var <b>IKKE</b> Send</p>\"
      Response.Write \"<p>Felterne var ikke udfyldt!</p>\"
end if

\'      Response.Write \"<title>yada yada</title>\"
\'      Response.Write \"<BODY onLoad=\'setTimeout(window.close, 3000)\'>\"
\'      Response.Write \"<p><a href=oversigt.asp>tilbage</a></p>\"

%>
<%
\' *** Redirect If Recordset Is Empty
\' *** MagicBeat Server Behavior - 2014 - by Jag S. Sidhu - www.magicbeat.com
If (rs_users.EOF) Then
Response.Redirect(\"noaccess.asp\")
End If
%>
<%
rs_users.Close()
%>