<% if request.form("Submit")<> "Submit" then %>
Location
Please Choose
Vacation Snaps
Worldwide Vacation Snaps
Other
What's Wrong
Please Choose
Copyrighted Material
Professional Image
Fake
Obscene
That is my picture. Remove it
Other
First Name
Last Name
Email Address
Required
Comments
Please include the URL of photo concerned
<% else strType=Request.form("Type") strArea=Request.form("Area") strFirstName=Request.form("FirstName") strLastName=Request.form("LastName") stremail=Request.form("email") strDate=Date strComments=Request.form("Comments") Set objConn = Server.CreateObject("ADODB.Connection") ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("fpdb/comments.mdb") objConn.Open ConnectionString sqlQuery = "SELECT * FROM Comments" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open sqlQuery, objConn, 1, 2 objRS.AddNew objRS("Type")=strType objRS("Area")=strArea objRS("FirstName")=strFirstName objRS("LastName")=strLastName objRS("email")=stremail objRS("SubmitDate")=strDate objRS("comments")=strcomments objRS.Update objRS.Close Set objRS = Nothing strBody = "Type ------> " & strType & chr(10) & chr(13) strBody=strBody & "Area ------> " & strArea & chr(10) & chr(13) strBody=strBody & "Name ------> " & strFirstName & " " & strLastName & chr(10) & chr(13) strBody=strBody & "email -----> " & stremail & chr(10) & chr(13) strBody=strBody & "Comments --> " & strComments & chr(10) & chr(13) strBody=strBody & "Date ------> " & strDate & chr(10) & chr(13) strBody=strBody & "--------------- " & chr(10) & chr(13) Dim iMsg Dim iConf Dim Flds Const cdoSendUsingPort = 2 Set iMsg = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.dls.net" .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Update End With With iMsg Set .Configuration = iConf .To = "ob_info@orientbeach.com" .From = "ob_info@orientbeach.com" .Subject = "Orient Beach Contact Us" .TextBody = strBody .Send End With With iMsg Set .Configuration = iConf .To = stremail .From = "ob_info@orientbeach.com" .Subject = "Orient Beach Contact Us" .Textbody = strBody .Send End With Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing Response.Write "Your information has been sent to us succesfully
" Response.Write strFirstName & " " & strLastName Response.Write ", thank you for the " & strType Response.Write " about the " & strArea Response.Write " . " Response.Write " .
" Response.Write " Click the link below to return to the home page " end if %>
-- Return to Home page --
