%@ TRANSACTION=Required LANGUAGE=VBSCRIPT %>
<%Sub OntransactionAbort()
Response.Write "
An error has occured!
"
Response.Write "Please click the back button of your browser.
"
Response.Write ""
end sub%>
<%
if not isempty(Request.Form("Submit")) then
CurrentDateTime = Now
Set objMail = CreateObject("CDONTS.NewMail")
EmailText = "Someone has just signed your guestbook." & chr(13) & chr(13) _
& "Name: " & (Request.Form("name")) & chr(13)_
& "Email Address: " & (Request.Form("email")) & chr(13)_
& "Comments: " & (Request.Form("Comments"))
objMail.Send "toddc@toddcopeland.com", "toddc@toddcopeland.com", _
"New Guestbook Submission", cstr(EmailText)
Set objMail = Nothing
Response.Redirect "http://www.toddcopeland.com/thankyou.asp"
End If
%>
Todd E. Copeland Florida Motor Vehicle Accident Personal Injury Car Accident Lawyers Law
|
|
"Please sign our guestbook!"
Todd E. Copeland & Associates
Attorneys at Law |
| QUESTIONS,
COMMENTS & SUGGESTIONS |
|