<% 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 %>

Please contact me to arrange a free Trial of QPshare:
<%= Reason %>
First name <%= errName1 %>
Family name <%= errName2 %>
Company Name in Full <%= errCompany %>
Position <%= errPosition %>
City <%= errCity %>
Country <%= errCountry %>
Phone Number <%= errPhonenum%>
Your Company Email address <%= errEmail %>
Comments