<%
reason = ""
//Check if name1, name2 and email entered ok.
success = true
//If the form has been posted...
if Request.Form("formPosted")="true" then
//Read values from the form
strName1 = Request.Form("name1")
strName2 = Request.Form("name2")
strCompany = Request.Form("company")
strPosition = Request.Form("position")
strCity = Request.Form("city")
strCountry = Request.Form("country")
strPhonenum = Request.Form("phonenum")
strEmail = Request.Form("email")
strComments = Request.Form("comments")
//Validate everything
if len(strName1)<1 then
success = false
errName1 = "** Please enter your First name
"
end if
if len(strName2)<1 then
success = false
errName2 = "** Please enter your Family name
"
end if
if len(strCompany)<1 then
success = false
errCompany = "** Please enter your Company name
"
end if
if len(strPosition)<1 then
success = false
errPosition = "** Please enter your Position
"
end if
if len(strCity)<1 then
success = false
errCity = "** Please enter your City
"
end if
if strCountry="Select country" then
success = false
errCountry = "** Please select your Country
"
end if
if len(strPhonenum)<1 then
success = false
errPhonenum = "** Please enter your phone number
"
end if
if len(strEmail)<1 or instr(strEmail, "@")=0 then
success = false
errEmail = "** Please enter a Vaild Email Address
"
end if
// if strComments="" then
// success = false
//errComments = "**
"
//end if
//top code to get rid of the apostrophes
if instr(strComments, "'") > 0 then
pos = instr(strComments, "'")
oldpos = pos
while pos > 0
strComments = left(strComments, pos - 1) & "''" & right(strComments, len(strComments) - pos)
pos = instr(oldpos + 2, strComments, "'")
oldpos = pos
wend
end if
if success = false then reason = "There have been errors on your form :- **Please check"
if success = true then
//Message to Digital image
strMessage = "Dear Digital Image employee" & chr(13) & chr(13)
strMessage = strMessage & "Name of Applicant = " & request.form("name1")& " "& request.form("name2") & chr(13)
strMessage = strMessage & "Company = " & request.form("company") & chr(13)
strMessage = strMessage & "Position = " & request.form("position") & chr(13)
strMessage = strMessage & "City = " & request.form("city") & chr(13)
strMessage = strMessage & "Country = " & request.form("country") & chr(13)
strMessage = strMessage & "Phone Number = " & request.form("phonenum") & chr(13)
strMessage = strMessage & "Email = " & request.form("email") & chr(13)
strMessage = strMessage & "Applicant's Comments = " & request.form("comments") & chr(13) & chr(13)
strMessage = strMessage & "This person has used the 'Free Trial' page via www.QPshare.com" & chr(13) & chr(13)
Set objNewMail =CreateObject("CDONTS.NewMail")
objNewMail.From="QPshare.com"
objNewMail.To="allstaff@digitalimage.co.uk"
objNewMail.Subject="QPshare - Trial request: (" & request.form("name1") & " " & request.form("name2") & ") - " & date
objNewMail.Body=strMessage
objNewMail.BodyFormat = 0
objNewMail.MailFormat = 1
objNewMail.Importance = 1
objNewMail.send
set objNewMail=Nothing
Response.redirect("email_thanks.asp")
end if
end if
%>