Problem m. clearing af BodyText felt ved validering
Nedenstående bruges til at sikre at det indtastede i 4 forskellige formularfelter "huskes" ved validering --Men hvor virker det IKKE for et BodyText felt:
<textarea name="body" style="width:185px; border-style:none;" rows="7" id="input" cols="20" value="<%=Session("BodyText")%>"></textarea>
Det virker fint for de øvrige formularfelter, men BodyText området "cleares" for alt indtasted ved validering.
<%@ 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")
Session("FromName") = FromName
Session("FromAddress") = FromAddress
Session("Phone") = Phone
Session("BodyText") = BodyText
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.blablabla.dk"
Mailer.AddRecipient "blablabla", "bla@bla.dk"
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>
