<%
if Request.form("actn")="addnew" then
Dim mailMessage
Dim email
set email=Server.CreateObject("CDONTS.Newmail")
Set objCheckRS=Server.CreateObject("ADODB.RecordSet")
mailMessage=""
mailMessage=mailMessage&"Name :"&Request.Form("gname")&" "
mailMessage=mailMessage&"Address :"&Request.Form("address")&" "
mailMessage=mailMessage&"State :"&Request.Form("state")&" "
mailMessage=mailMessage&"Zip :"&Request.Form("zip")&" "
mailMessage=mailMessage&"Visited :"&Request.Form("visited")&" "
email.BodyFormat=0
email.MailFormat = 0
email.To= "info@dchairbytori.com"
email.From=Request.Form("emailid")
email.Subject="New Guest Book Sign Up"
email.Body=mailMessage
email.Send
Response.Redirect "thankyou.asp"
end if
%>
Welcome to Tori Platania – Aqua Hair and Skin Care
