|
Send
Resume
<%
If Request.Form("Send") <> "" Then
dim objMail
Set objMail = CreateObject("CDONTS.NewMail")
objMail.To = Request.Form("frmDirect")
objMail.From = Request.Form("From")
objMail.Subject = Request.Form("Subject")
objMail.BodyFormat = "0"
objMail.Body = Request.Form("Body") & vbCrLf&_
"E-mail: " & cStr(Request.Form("frmEmail"))& vbcrlf&_
"Comments: " & cStr(Request.Form("frmComments"))'& vbcrlf&_
objMail.Send
Set objMail = Nothing
Response.Redirect "thankyou.asp"
End If
%>
|
|