Hjælp til ASP mailhandler
På denne ASP mail:http://www.designersremix.com/mailhandler/mail.asp
- bruges nedenståede mailhandler. Men problemet ved validering er, at det bruger har indtastet i formularfelterne blir cleared, hvis "OK" klikkes før ALLE felter er korrekt udfyldt. Hvordan kan man sørge for at det indtastede huskes?
<%@ Language=VBScript %>
<html>
<head>
</head>
<body>
<%
Dim FromName, FromAddress, ToName, ToAddress, Phone, BodyText, url
FromName = request.Form("name")
FromAddress = Request.Form("email")
Phone = Request.Form("phone")
BodyText = Request.Form("body")
url = "mail.asp?app=mail"
'Tjekker om der er indhold i formularens felter
IF FromName = "" THEN
Session("mailstatus") = ""
Session("mailstatus") = "error"
Session("mailmessage") = "Please enter your name..."
Response.Redirect(url)
END IF
IF FromAddress = "" THEN
Session("mailstatus") = ""
Session("mailstatus") = "error"
Session("mailmessage") = "Enter valid email address..."
Response.Redirect(url)
END IF
IF Instr(1, FromAddress, "@") = 0 THEN
Session("mailstatus") = ""
Session("mailstatus") = "error"
Session("mailmessage") = "Enter valid email address..."
Response.Redirect(url)
END IF
IF Instr(1, FromAddress, ".") = 0 THEN
Session("mailstatus") = ""
Session("mailstatus") = "error"
Session("mailmessage") = "Enter valid email address..."
Response.Redirect(url)
END IF
IF Phone = "" THEN
Session("mailstatus") = ""
Session("mailstatus") = "error"
Session("mailmessage") = "Please type a phone number..."
Response.Redirect(url)
END IF
IF Trim(BodyText) = "" THEN
Session("mailstatus") = ""
Session("mailstatus") = "error"
Session("mailmessage") = "Please type a message..."
Response.Redirect(url)
END IF
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.CharSet = 2
Mailer.FromName = FromName
Mailer.FromAddress= FromAddress
Mailer.RemoteHost = "mail.blabla.dk"
Mailer.AddRecipient "Designers Remix Collection", "blabla@blalba.com"
Mailer.Subject = "Email posted at Designers Remix website"
Mailer.BodyText = "From: " & FromName & vbcrlf & _
"Phone: " & phone & vbcrlf & vbcrlf & BodyText
if Mailer.SendMail then
Session("mailstatus") = ""
Session("mailstatus") = "ok"
Session("mailmessage") = "Email posted..."
Response.Redirect(url)
else
Session("mailstatus") = ""
Session("mailstatus") = "error"
Session("mailmessage") = "Status: Email delivery failure...<br>" & Mailer.Response
Response.Redirect(url)
end if
%>
</body>
</html>
