%
dim objvmail,strcname,strdesc,strtxtweb,stremail,strflag
function getformValues()
strcname=Request.Form("cname")
strtxtweb=Request.Form("txtweb")
stremail=Request.Form("email")
strdesc=Request.Form("desc")
strdesc = "Company Name: "&strcname & "
URL: " & strtxtweb & "
Company Description: " & strdesc
end function
getformValues()
if LCase(Request.Form("btnsubmit")) = "submit" then
'If strEmail <> "" Then
SendMailtoDatarecoverySearch strcname,strdesc,strtxtweb,stremail
'end if
strflag = 1
end if
Function SendMailtoDatarecoverySearch(cname,desc,txtweb,stremail)
Set objvmail = Server.CreateObject("CDONTS.Newmail")
objvmail.Subject = "Link submission - Data Recovery Search"
objvmail.From = stremail
objvmail.To = "admin@datarecoverysearch.com"
objvmail.BodyFormat = 0
objvmail.MailFormat = 0
objvmail.Body = desc
objvmail.Send
Set objvmail = Nothing
'Auto Reply
Dim sMailBody
sMailBody = "
"
sMailBody = sMailBody + "Hello,
"
sMailBody = sMailBody + "Thank you for submitting your URL to www.datarecoverysearch.com. Before we add your link in our website please review our terms and conditions.
"
sMailBody = sMailBody + "