VP-ASP :: Shopping Cart Software

Shopping Cart Software Solutions for anywhere in the World

US/Canada(Toll Free): +1 888 587 2278
Europe/UK: +44 (020) 7193 9408
Australia/New Zealand: +61 3 9016 4497

VP-ASP Shopping Cart Customer Forum

Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 VPCart Forum
 Customization
 Edit Contact Us Form
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

rtnsolutions
Starting Member

USA
11 Posts

Posted - December 10 2008 :  17:27:18  Show Profile  Visit rtnsolutions's Homepage  Reply with Quote
I am trying to create a second form on my website, so i went and copied the contact us form, which works great. Then i edited the new form's code and added several fields in order to create an employment application form. It works but when you recieve the email from it, all the data is scrambled up and not in the order it is supposed to be. Can someone please help me with this?

James Hickey

rtnsolutions
Starting Member

USA
11 Posts

Posted - December 10 2008 :  17:31:10  Show Profile  Visit rtnsolutions's Homepage  Reply with Quote
HERE IS MY SOURCE CODE:

<%option explicit%>
<!--#include file="shop$db.asp"-->
<!--#include file="shopcustomerform.asp"-->
<!--#include file="shopmail.asp"-->
<%
dim my_to, my_toaddress,my_system,my_from,my_To2,my_To3,my_Refphone2,my_Refphone3,my_phone,my_Addy1,my_Addy2,my_ECity,my_EState,my_EZip,my_Referral,my_Refby,my_Pos,my_Datest,my_Employ,my_Inquire,my_Sal,my_Applied,my_Where,my_When,my_Schlnm,my_Grad,my_Scloc,my_Scst,my_Studies,my_Hschlnm,my_Hgrad,my_Hscloc,my_Hscst,my_Hstudies,my_Cschlnm,my_Cgrad,my_Cscloc,my_Cscst,my_Cstudies,my_Tschlnm,my_Tgrad,my_Tscloc,my_Tscst,my_Tstudies,my_Lang,my_Read,my_Rite,my_Spcl,my_Act,my_DMY1,my_DMY2,my_DMY3,my_NAPP1,my_NAPP2,my_NAPP3,my_Wage1,my_Wage2,my_Wage3,my_Held1,my_Held2,my_Held3,my_Leav1,my_Leav2,my_Leav3,my_From1,my_From2,my_From3,my_To1,my_To2my_To3,my_Refname1,my_Refname2,my_Refname3,my_Refaddy1,my_Refaddy2,my_Refaddy3,my_Refphone1,my_Refphone2my_Refphone3,my_Refbus1,my_Refbus2,my_Refbus3,my_Refyrs1,my_Refyrs2,my_Refyrs3,my_fromaddress,my_subject,mailtype,strRefby,strPos,strCgrad,strCscloc,strWage,strHeld,strLeav,strRefname,strRefaddy,strRefphone,strRefbus,strRefyrs,strWage2,strWage3,strLeav1,strLeav2,strLeav3,strAddy1,strAddy2,strECity,strEState,strEZip,strECountry,strReferral,strRefbystrPos,strDatest,strEmploy,strInquire,strSal,strApplied,strWhere,strWhen,strSchlnm,strGrad,strScloc,strScst,strStudies,strHschlnm,strHgrad,strHscloc,strHscst,strHstudies,strCschlnm,strCgradstrCscloc,strCscst,strCstudies,strTschlnm,strTgrad,strTscloc,strTscst,strTstudies,strLang,strRead,strRite,strSpcl,strAct,strDMY1,strDMY2,strDMY3,strNAPP1,strNAPP2,strNAPP3,strWage1,strWage2strWage3,strHeld1,strHeld2,strHeld3,strLeav1strLeav2strLeav3,strFrom1,strFrom2,strFrom3,strTo1,strTo2,strTo3,strRefname1,strRefname2,strRefname3,strRefaddy1,strRefaddy2,strRefaddy3,strRefphone1,strRefphone2,strRefphone3,strRefbus1,strRefbus2,strRefbus3,strRefyrs1,strRefyrs2,strRefyrs3

dim mailer, my_attachment
dim customeradmin

'VP-ASP 6.09 - adjust to time difference, if required
dim newdate, newtime

'**********************************************************
' adds customer Contact form
' Display compnay information and allows customer to send messages
'
' Version 6.50 Nov 11, 2005
'*********************************************************
Dim sAction, dbtable
Dim strPassword1, strPassword2
dim body, strsubject,strcomment
setsess "currenturl","shopcustemployment.asp"
sAction=Request("Action")
if saction="" then
sAction=Request("Action.x")
end if
If getconfig("xcontactform")<>"Yes" then
shoperror getlang("LangCustNotAllowed")
end if
Serror=""
ShopPageHeader
'VP-ASP 6.09 - added breadcrumb / VP-ASP 6.50 - added config option to turn breadcrumb on/off
if getconfig("xbreadcrumbs") = "Yes" then
response.write "<div class='breadcrumb'><a href='" & getconfig("xhome") & "'>" & getlang("langcommonhome") & "</a> " & SubCatSeparator & getlang("langcontactus") & "</div>"
end if
If sAction = "" Then
DisplayForm
Else
ValidateData()
if sError = "" Then
SendMailToMerchant strsubject
WriteInfo
DisplayCompanyinfo
else
DisplayForm
end if
end if
ShopPageTrailer
Sub DisplayForm()
Displayerrors
DisplayMinimumForm
DisplayCompanyinfo
End Sub

Sub ValidateData
'VP-ASP 6.50 - precautionary security fix
strFirstname = cleanchars(Request.Form("strFirstname"))
strLastname = cleanchars(Request.Form("strLastname"))
strPhone = cleanchars(request("strPhone"))
strEmail = cleanchars(Request.Form("strEmail"))
strcomment = cleanchars(request("strcomment"))
strsubject = cleanchars(request("strsubject"))
strcompany = cleanchars(request("strcompany"))
strAddy1 = cleanchars(request("strAddy1"))
strAddy2 = cleanchars(request("strAddy2"))
strECity = cleanchars(request("strECity"))
strEState = cleanchars(request("strEState"))
strEZip = cleanchars(request("strEZip"))
strECountry = cleanchars(request("strECountry"))
strReferral = cleanchars(request("strReferral"))
strRefby = cleanchars(request("strRefby"))
strPos = cleanchars(request("strPos"))
strDatest = cleanchars(request("strDatest"))
strEmploy = cleanchars(request("strEmploy"))
strInquire = cleanchars(request("strInquire"))
strSal = cleanchars(request("strSal"))
strApplied = cleanchars(request("strApplied"))
strWhere = cleanchars(request("strWhere"))
strWhen = cleanchars(request("strWhen"))
strSchlnm = cleanchars(request("strSchlnm"))
strHschlnm = cleanchars(request("strHschlnm"))
strCschlnm = cleanchars(request("strCschlnm"))
strTschlnm = cleanchars(request("strTschlnm"))
strGrad = cleanchars(request("strGrad"))
strHgrad = cleanchars(request("strHgrad"))
strCgrad = cleanchars(request("strCgrad"))
strTgrad = cleanchars(request("strTgrad"))
strScloc = cleanchars(request("strScloc"))
strHscloc = cleanchars(request("strHscloc"))
strCscloc = cleanchars(request("strCscloc"))
strTscloc = cleanchars(request("strTscloc"))
strScst = cleanchars(request("strScst"))
strHscst = cleanchars(request("strHscst"))
strCscst = cleanchars(request("strCscst"))
strTscst = cleanchars(request("strTscst"))
strStudies = cleanchars(request("strStudies"))
strHstudies = cleanchars(request("strHstudies"))
strCstudies = cleanchars(request("strCstudies"))
strTstudies = cleanchars(request("strTstudies"))
strLang = cleanchars(request("strLang"))
strRead = cleanchars(request("strRead"))
strRite = cleanchars(request("strRite"))
strSpcl = cleanchars(request("strSpcl"))
strAct = cleanchars(request("strAct"))
strDMY1 = cleanchars(request("strDMY1"))
strDMY2 = cleanchars(request("strDMY2"))
strDMY3 = cleanchars(request("strDMY3"))
strNAPP1 = cleanchars(request("strNAPP1"))
strNAPP2 = cleanchars(request("strNAPP2"))
strNAPP3 = cleanchars(request("strNAPP3"))
strWage1 = cleanchars(request("strWage1"))
strWage2 = cleanchars(request("strWage2"))
strWage3 = cleanchars(request("strWage3"))
strHeld1 = cleanchars(request("strHeld1"))
strHeld2 = cleanchars(request("strHeld2"))
strHeld3 = cleanchars(request("strHeld3"))
strLeav1 = cleanchars(request("strLeav1"))
strLeav2 = cleanchars(request("strLeav2"))
strLeav3 = cleanchars(request("strLeav3"))
strFrom1 = cleanchars(request("strFrom1"))
strFrom2 = cleanchars(request("strFrom2"))
strFrom3 = cleanchars(request("strFrom3"))
strTo1 = cleanchars(request("strTo1"))
strTo2 = cleanchars(request("strTo2"))
strTo3 = cleanchars(request("strTo3"))
strRefname1 = cleanchars(request("strRefname1"))
strRefname2 = cleanchars(request("strRefname2"))
strRefname3 = cleanchars(request("strRefname3"))
strRefaddy1 = cleanchars(request("strRefaddy1"))
strRefaddy2 = cleanchars(request("strRefaddy2"))
strRefaddy3 = cleanchars(request("strRefaddy3"))
strRefphone1 = cleanchars(request("strRefphone1"))
strRefphone2 = cleanchars(request("strRefphone2"))
strRefphone3 = cleanchars(request("strRefphone3"))
strRefbus1 = cleanchars(request("strRefbus1"))
strRefbus2 = cleanchars(request("strRefbus2"))
strRefbus3 = cleanchars(request("strRefbus3"))
strRefyrs1 = cleanchars(request("strRefyrs1"))
strRefyrs2 = cleanchars(request("strRefyrs2"))
strRefyrs3 = cleanchars(request("strRefyrs3"))
ValidateMininumInfo
End Sub
Sub WriteInfo
%> <table><H1>YOUR APPLICATION HAS BEEN SENT</H1>
<td style="border-style: none; border-width: none" width="263"><strong><%=getlang("langyourfirstname")%></strong></td>
<td style="border-style: none; border-width: none" width="222"><strong><%=getlang("langyourlastname")%></strong></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strFirstname%></td>
<td style="border-style: none; border-width: none" width="222"><%=strLastname%></td>
</tr>
<td style="border-style: none; border-width: none" width="263"><strong><%=getlang("langloginemail")%></strong></td>
<td style="border-style: none; border-width: none" width="222"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strEmail%></td>
<td style="border-style: none; border-width: none" width="222" rowspan="3">
</td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><strong><%=getlang("langPhone")%></strong></td>
<td style="border-style: none; border-width: none" width="222"><strong></strong></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strPhone%></td>
<td style="border-style: none; border-width: none" width="222"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><strong><%=getlang("langPresaddy")%></strong></td>
<td style="border-style: none; border-width: none" width="222"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langAddy1")%></td>
<td style="border-style: none; border-width: none" width="222"><%=getlang("langAddy2")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strAddy1%></td>
<td style="border-style: none; border-width: none" width="222"><%=strAddy2%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langECity")%></td>
<td style="border-style: none; border-width: none" width="222"><%=getlang("langEState")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strECity%></td>
<td style="border-style: none; border-width: none" width="222"><%=strEState%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langEZip")%></td>
<td style="border-style: none; border-width: none" width="222"><%=getlang("langECountry")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strEZip%></td>
<td style="border-style: none; border-width: none" width="222"><%=strECountry%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><strong><%=getlang("langReferral")%></strong></td>
<td style="border-style: none; border-width: none" width="222"><br><%=getlang("langRefby")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263">
<font size="2">If related to anyone in our employ, state name and
department (omit spouse):</font><br><%=strReferral%></td>
<td style="border-style: none; border-width: none" width="222"><%=strRefby%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263">
<font color="#0099FF"><span style="font-weight: 700">EMPLOYMENT DESIRED:</span></font><span style="FONT-WEIGHT: bold"><font color="#0099ff">
</font></span></td>
<td style="border-style: none; border-width: none" width="222"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langPos")%></td>
<td style="border-style: none; border-width: none" width="222"><%=getlang("langDatest")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strPos%></td>
<td style="border-style: none; border-width: none" width="222"><%=strDatest%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langEmploy")%></td>
<td style="border-style: none; border-width: none" width="222"><%=getlang("langInquire")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strEmploy%><br></td>
<td style="border-style: none; border-width: none" width="222"><%=strInquire%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langSal")%></td>
<td style="border-style: none; border-width: none" width="222"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strSal%></td>
<td style="border-style: none; border-width: none" width="222"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langApplied")%></td>
<td style="border-style: none; border-width: none" width="222"><%=getlang("langWhere")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strApplied%></td>
<td style="border-style: none; border-width: none" width="222"><%=strWhere%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"></td>
<td style="border-style: none; border-width: none" width="222"><%=getlang("langWhen")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"></td>
<td style="border-style: none; border-width: none" width="222"><%=strWhen%></td>
</tr></table>
<table>
<tr>
<td style="border-style: none; border-width: none" width="263">
<font color="#0099FF"><span style="font-weight: 700">EDUCATIONAL HISTORY
</span></font></td>
<td style="border-style: none; border-width: none" width="222"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><strong><%=getlang("langGram")%></strong></td>
<td style="border-style: none; border-width: none" width="222"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langSchlnm")%></td>
<td style="border-style: none; border-width: none" width="222"><%=getlang("langGrad")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strSchlnm%></td>
<td style="border-style: none; border-width: none" width="222"><%=strGrad%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langScloc")%></td>
<td style="border-style: none; border-width: none" width="222"><%=getlang("langScst")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strScloc%></td>
<td style="border-style: none; border-width: none" width="222"><%=strScst%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><strong><%=getlang("langStudies")%></strong></td>
<td style="border-style: none; border-width: none" width="222"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="485" colspan="2"><%=strComments%></td>
</tr></table><table>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langHigh")%></td>
<td style="border-style: none; border-width: none" width="222"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langHschlnm")%></td>
<td style="border-style: none; border-width: none" width="222"><%=getlang("langHgrad")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strHschlnm%></td>
<td style="border-style: none; border-width: none" width="222"><%=strHgrad%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langHscloc")%></td>
<td style="border-style: none; border-width: none" width="222"><%=getlang("langHscst")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strHscloc%></td>
<td style="border-style: none; border-width: none" width="222"><%=strHscst%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><strong><%=getlang("langHstudies")%></strong></td>
<td style="border-style: none; border-width: none" width="222"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="485" colspan="2"><%=strHstudies%></td>
</tr></table><table>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langCol")%></td>
<td style="border-style: none; border-width: none" width="222"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langCschlnm")%></td>
<td style="border-style: none; border-width: none" width="222"><%=getlang("langCgrad")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strCschlnm%></td>
<td style="border-style: none; border-width: none" width="222"><%=strCgrad%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langCscloc")%></td>
<td style="border-style: none; border-width: none" width="222"><%=getlang("langCscst")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strCscloc%></td>
<td style="border-style: none; border-width: none" width="222"><%=strCscst%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><strong><%=getlang("langCstudies")%></strong></td>
<td style="border-style: none; border-width: none" width="222"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="485" colspan="2"><%=strCstudies%></td>
</tr></table><table>
<tr>
<td style="border-style: none; border-width: none" width="263" colspan="2"><%=getlang("langTrade")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langTschlnm")%></td>
<td style="border-style: none; border-width: none" width="222"><%=getlang("langTgrad")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strTschlnm%></td>
<td style="border-style: none; border-width: none" width="222"><%=strTgrad%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langTscloc")%></td>
<td style="border-style: none; border-width: none" width="222"><%=getlang("langTscst")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strTscloc%></td>
<td style="border-style: none; border-width: none" width="222"><%=strTscst%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><strong><%=getlang("langTstudies")%></strong></td>
<td style="border-style: none; border-width: none" width="222"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="485" colspan="2"><%=strTstudies%></td>
</tr></table><table>
<tr>
<td style="border-style: none; border-width: none" width="485" colspan="2">
<strong><font color="#0099FF">LANGUAGES, STUDIES, RESEARCH & ACTIVITIES:</font></strong></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263" colspan="2"><%=getlang("langLang")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263" colspan="2"><%=strLang%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langRead")%></td>
<td style="border-style: none; border-width: none" width="222"><%=getlang("langRite")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strRead%></td>
<td style="border-style: none; border-width: none" width="222"><%=strRite%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=getlang("langSpcl")%></td>
<td style="border-style: none; border-width: none" width="222"><%=getlang("langAct")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263"><%=strSpcl%></td>
<td style="border-style: none; border-width: none" width="222"><%=strAct%></td>
</tr>
</tr>
<td style="border-style: none; border-width: none" width="485" colspan="2">
 </td>
</tr>
</tr>

<%'VP-ASP 6.50 - add a random string to email form to stop bots spamming it
if getconfig("xprotectemailforms") = "Yes" then
CreateCAPTCHA
end if%>
</table>
<table width="88%" border="1" cellpadding="5" cellspacing="0" id="table10">
<tr>
<td colspan="6"><strong><%=getlang("langFormer")%></strong></td>
</tr>
<tr>
<td height="59" colspan="2"><strong><%=getlang("langDMY")%></strong></td>
<td width="24%"><%=getlang("langNAPP")%></td>
<td width="10%"><%=getlang("langWage")%></td>
<td width="12%"><%=getlang("langHeld")%></td>
<td width="39%"><%=getlang("langLeav")%></td>
</tr>
<tr>
<td width="7%"><%=getlang("langTo")%></td>
<td width="8%" valign="top"><%=strTo1%> </td>
<td rowspan="2" valign="top"><%=strNAPP1%> </td>
<td rowspan="2" valign="top"><%=strWage%> </td>
<td rowspan="2" valign="top"><%=strHeld%> </td>
<td rowspan="2" valign="top"><%=strLeav%> </td>
</tr>
<tr>
<td><%=getlang("langFrom")%></td>
<td valign="top"><%=strFrom1%> </td>
</tr>
<tr>
<td><%=getlang("langTo")%></td>
<td valign="top"><%=strTo2%></td>
<td rowspan="2" valign="top"><%=strNAPP1%> </td>
<td rowspan="2" valign="top"><%=strWage%> </td>
<td rowspan="2" valign="top"><%=strHeld%> </td>
<td rowspan="2" valign="top"><%=strLeav%> </td>
</tr>
<tr>
<td><%=getlang("langFrom")%></td>
<td valign="top"><%=strFrom2%> </td>
</tr>
<tr>
<td><%=getlang("langTo")%></td>
<td valign="top"><%=strTo3%></td>
<td rowspan="2" valign="top"><%=strNAPP1%> </td>
<td rowspan="2" valign="top"><%=strWage%> </td>
<td rowspan="2" valign="top"><%=strHeld%> </td>
<td rowspan="2" valign="top"><%=strLeav%> </td>
</tr>
<tr>
<td><%=getlang("langFrom")%></td>
<td valign="top"><%=strFrom3%> </td>
</tr>
</table>
<table width="100%" border="1" cellspacing="0" cellpadding="5" id="table11">
<tr>
<td colspan="5"><strong><%=getlang("langRefr")%></strong></td>
</tr>
<tr>
<td><strong><%=getlang("langRefname")%></strong></td>
<td><strong><%=getlang("langRefaddy")%></strong></td>
<td><strong><%=getlang("langRefphone")%></strong></td>
<td><strong><%=getlang("langRefbus")%></strong></td>
<td><strong><%=getlang("langRefyrs")%></strong></td>
</tr>
<tr>
<td><%=strRefname%> </td>
<td><%=strRefaddy%> </td>
<td><%=strRefphone%> </td>
<td><%=strRefbus%> </td>
<td><%=strRefyrs%> </td>
</tr>
<tr>
<td><%=strRefname2%> </td>
<td><%=strRefaddy2%> </td>
<td><%=strRefphone2%> </td>
<td><%=strRefbus2%> </td>
<td><%=strRefyrs2%> </td>
</tr>
<tr>
<td><%=strRefname3%> </td>
<td><%=strRefaddy3%> </td>
<td><%=strRefphone3%> </td>
<td><%=strRefbus3%> </td>
<td><%=strRefyrs3%> </td>
</tr>
</table>
<p> </p>
<%
End Sub

Sub DisplayErrors
if sError<> "" then
shopwriteError SError
Serror=""
end if

end Sub

Sub SendMailToMerchant (isubject)
dim acount
dim my_attachment, htmlformat
htmlformat="Text"
my_attachment=""
mailtype=getconfig("xemailtype")
'VP-ASP 6.08a - no lastname in form, so it wasn't showing anything
'my_from=strlastname
my_from=strfirstname & " " & strlastname
my_phone=strPhone
my_Addy1=strAddy1
my_Addy2=strAddy2
my_ECity=strECity
my_EState=strEState
my_Referral=strReferral
my_Refby=strRefby
my_Pos=strPos
my_Datest=strDatest
my_Employ=strEmploy
my_Inquire=strInquire
my_Sal=strSal
my_Applied=strApplied
my_Where=strWhere
my_When=strWhen
my_Schlnm=strSchlnm
my_Hschlnm=strHschlnm
my_Cschlnm=strCschlnm
my_Tschlnm=strTschlnm
my_Grad=strGrad
my_Hgrad=strHgrad
my_Cgrad=strCgrad
my_Tgrad=strTgrad
my_Scloc=strScloc
my_Hscloc=strHscloc
my_Cscloc=strCscloc
my_Tscloc=strTscloc
my_Scst=strScst
my_Hscst=strHscst
my_Cscst=strCscst
my_Tscst=strTscst
my_Studies=strStudies
my_Hstudies=strHstudies
my_Cstudies=strCstudies
my_Tstudies=strTstudies
my_Lang=strLang
my_Read=strRead
my_Rite=strRite
my_Spcl=strSpcl
my_Act=strAct
my_DMY1=strDMY1
my_DMY2=strDMY2
my_DMY3=strDMY3
my_NAPP1=strNAPP1
my_NAPP2=strNAPP2
my_NAPP3=strNAPP3
my_Wage1=strWage1
my_Wage2=strWage2
my_Wage3=strWage3
my_Held1=strHeld1
my_Held2=strHeld2
my_Held3=strHeld3
my_Leav1=strLeav1
my_Leav2=strLeav2
my_Leav3=strLeav3
my_From1=strFrom1
my_From2=strFrom2
my_From3=strFrom3
my_To1=strTo1
my_To2=strTo2
my_To3=strTo3
my_Refname1=strRefname1
my_Refname2=strRefname2
my_Refname3=strRefname3
my_Refaddy1=strRefaddy1
my_Refaddy2=strRefaddy2
my_Refaddy3=strRefaddy3
my_Refphone1=strRefphone1
my_Refphone2=strRefphone2
my_Refphone3=strRefphone3
my_Refbus1=strRefbus1
my_Refbus2=strRefbus2
my_Refbus3=strRefbus3
my_Refyrs1=strRefyrs1
my_Refyrs2=strRefyrs2
my_Refyrs3=strRefyrs3
my_fromaddress=stremail
my_toaddress=getconfig("xemail")
my_to=getconfig("xemailname")
my_system=getconfig("xemailsystem")
my_subject=isubject
Body=""

'VP-ASP 6.09 - adjust to time difference, if required
'body=body & shopdateformat(date(),getconfig("xdateformat")) & " " & time()& vbcrlf & vbcrlf
If getconfig("xTimeDifference")="" then
newDate = Date()
newTime = Time()
else
adjustdate newDate
adjusttime newTime
end if

body=body & shopdateformat(newdate,getconfig("xdateformat")) & " " & newtime & vbcrlf & vbcrlf


Body=Body & Strfirstname & " " & strLastname & vbcrlf
Body=body & strPhone & vbcrlf
Body=body & stremail & vbcrlf
Body=body & strAddy1 & vbcrlf & strAddy2 & vbcrlf & strECity & vbcrlf & strEState & vbcrlf & strEZip & vbcrlf & strECountry & vbcrlf
Body=body & vbcrlf
Body=body & strReferral & vbcrlf & strRefby & vbcrlf
Body=body & vbcrlf
Body=body & strPos & vbcrlf & strDatest & vbcrlf
Body=body & vbcrlf
Body=body & strEmploy & vbcrlf & strInquire & vbcrlf & strSal & vbcrlf & strWhen & vbcrlf
Body=body & vbcrlf
Body=body & strApplied & vbcrlf & strWhere & vbcrlf
Body=body & vbcrlf
Body=body & strSchlnm & vbcrlf & strGrad & vbcrlf & strScloc & vbcrlf & strScst & vbcrlf & strStudies & vbcrlf
Body=body & vbcrlf
Body=body & strHschlnm & vbcrlf & strHgrad & vbcrlf & strHscloc & vbcrlf & strHscst & vbcrlf & strHstudies & vbcrlf
Body=body & vbcrlf
Body=body & strCschlnm & vbcrlf & strCgrad & vbcrlf & strCscloc & vbcrlf & strCscst & vbcrlf & strCstudies & vbcrlf
Body=body & vbcrlf
Body=body & strTschlnm & vbcrlf & strTgrad & vbcrlf & strTscloc & vbcrlf & strTscst & vbcrlf & strTstudies & vbcrlf
Body=body & vbcrlf
Body=body & strLang & vbcrlf & strRead & vbcrlf & strRite & vbcrlf
Body=body & vbcrlf
Body=body & strSpcl & vbcrlf & strAct & vbcrlf
Body=body & vbcrlf
Body=body & strFrom1 & vbcrlf & strTo1 & vbcrlf & strDMY1 & vbcrlf & strNAPP1 & vbcrlf & strWage1 & vbcrlf & strHeld1 & vbcrlf & strLeav1 & vbcrlf
Body=body & vbcrlf
Body=body & strFrom2 & vbcrlf & strTo2 & vbcrlf & strDMY2 & vbcrlf & strNAPP2 & vbcrlf & strWage2 & vbcrlf & strHeld2 & vbcrlf & strLeav2
Body=body & vbcrlf & vbcrlf
Body=body & strFrom3 & vbcrlf & strTo3 & vbcrlf & strDMY3 & vbcrlf & strNAPP3 & vbcrlf & strWage3 & vbcrlf & strHeld3 & vbcrlf & strLeav3
Body=body & vbcrlf & vbcrlf
Body=body & strRefname1 & vbcrlf & strRefaddy1 & vbcrlf & strRefphone1 & vbcrlf & strRefbus1 & vbcrlf & strRefyrs1 & vbcrlf
Body=body & vbcrlf
Body=body & strRefname2 & vbcrlf & strRefaddy2 & vbcrlf & strRefphone2 & vbcrlf & strRefbus2 & vbcrlf & strRefyrs2 & vbcrlf
Body=body & vbcrlf
Body=body & strRefname3 & vbcrlf & strRefaddy3 & vbcrlf & strRefphone3 & vbcrlf & strRefbus3 & vbcrlf & strRefyrs3 & vbcrlf
if strcompany<>"" then
Body=body & getlang("LangCustcompany") & " " & strcompany & vbcrlf
end if
body=body & vbcrlf
body=body & strcomment
acount=0
ExecuteMail mailtype,My_from,my_fromaddress,my_to,my_toaddress,my_subject,body,htmlformat,my_attachment,acount
If getconfig("xdebug")="Yes" then
debugwrite "Mailing to: " & my_to & "(" & my_toaddress & ") from " & strlastname & " " & stremail
end if
end sub



Sub DisplayMinimumForm
%>
<h1><%=getlang("langcontactus")%></h1>
<form name="contactform" method="Post" action="shopcustemployment.asp">
<% shopwriteheaderpic getlang("langemployment") , "images/icons/mail.gif" %>
<div class="std_table">
<table width="769">
<tr>
<td class="divide" colSpan="3"> </td>
</tr>
<tr>
<td colSpan="2">
<h2><span style="FONT-WEIGHT: bold"><font color="#0099ff">
PERSONAL INFORMATION:
 </font></span></h2>Are you willing to submit to a
pre-employment alcohol/drug screening?</td>
<td vAlign="top" align="middle" width="253" rowSpan="17">
<table id="table12" cellSpacing="15" cellPadding="0" width="100%" border="0">
<tr>
<td>
<a target="_blank" href="http://www.fullcircleautowash.com/employment/FullCircleEmploymentForm.pdf">
<img height="108" src="http://www.fullcircleautowash.com/images/employment_click_here.jpg" width="129" border="0"></a><br>
<a target="_blank" href="http://www.adobe.com/products/acrobat/">
<img height="31" src="http://www.fullcircleautowash.com/employment/get_adobe_reader.gif" width="88" border="0"></a><br>
<br>
 <div id="box">
<span style="FONT-WEIGHT: bold">Avondale</span><br>
<a href="http://www.fullcircleautowash.com/locations-avondale.asp">
1607 N. Dysart Rd.<br>
Avondale, AZ 85338</a><br>
<span style="FONT-WEIGHT: bold">
-------------------<br>
Chandler</span> <br>
<a href="http://www.fullcircleautowash.com/locations-chandler.asp">
2755 W. Chandler Blvd.<br>
Chandler, AZ 85224</a><span style="FONT-WEIGHT: bold"><br>
-------------------<br>
Mesa<br>
</span>
<a href="http://www.fullcircleautowash.com/locations-mesaBaseline.asp">
1140 E. Baseline Rd<br>
Mesa, AZ 85204</a><span style="FONT-WEIGHT: bold"><br>
-------------------<br>
Mesa</span><a href="http://www.fullcircleautowash.com/locations-mesasouthern.asp"><br>
6951 E. Southern Rd <br>
Mesa, AZ 85209 </a><br>
<span style="FONT-WEIGHT: bold">
-------------------<br>
Queen Creek </span><br>
<a href="http://www.fullcircleautowash.com/locations-queenCreek.asp">
7365 S. Power Rd<br>
Queen Creek, AZ 85242</a><span style="FONT-WEIGHT: bold"><br>
 </div>
</span></td>
</tr>
</table>
</td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><strong><%=getlang("langyourfirstname")%></strong></td>
<td style="border-style: none; border-width: none" width="262"><strong><%=getlang("langyourlastname")%></strong></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><input class="txtfield" border="none" type="text" size="25" name="strfirstname" value="<%=strFirstname & " " & strLastname%>"></td>
<td style="border-style: none; border-width: none" width="262"><input class="txtfield" size="25" border="none" type="text" name="strLastname" value="<%=strPhone%>"></td>
</tr>
<td style="border-style: none; border-width: none" width="233"><strong><%=getlang("langloginemail")%></strong></td>
<td style="border-style: none; border-width: none" width="262"><strong><%=getlang("langssnum")%></strong></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><input class="txtfield" border="none" type="text" size="25" name="strEmail" value="<%=strEmail%>"></td>
<td style="border-style: none; border-width: none" width="262" rowspan="3">
<em style="font-style: normal">
<font size="2">Will need to be provided upon completion of employment
inquiry. We will contact you for this private information.</font></em></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><strong><%=getlang("langPhone")%></strong></td>
<td style="border-style: none; border-width: none" width="4"><strong></strong></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><input class="txtfield" border="none" type="text" size="25" name="strPhone" value="<%=strPhone%>"></td>
<td style="border-style: none; border-width: none" width="4"><input class="txtfield" border="none" type="hidden" size="25" name="strsubject" value="<%=strSubject%>Online Job Application"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><strong><%=getlang("langPresaddy")%></strong></td>
<td style="border-style: none; border-width: none" width="262"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><%=getlang("langAddy1")%></td>
<td style="border-style: none; border-width: none" width="262"><%=getlang("langAddy2")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><input class="txtfield" border="none" type="text" size="25" name="strAddy1" value="<%=strAddy1%>"></td>
<td style="border-style: none; border-width: none" width="262"><input class="txtfield" size="25" border="none" type="text" name="strAddy2" value="<%=strAddy2%>"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><%=getlang("langECity")%></td>
<td style="border-style: none; border-width: none" width="262"><%=getlang("langEState")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><input class="txtfield" border="none" type="text" size="25" name="strECity" value="<%=strECity%>"></td>
<td style="border-style: none; border-width: none" width="262"><input class="txtfield" size="25" border="none" type="text" name="strEState" value="<%=strEState%>"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><%=getlang("langEZip")%></td>
<td style="border-style: none; border-width: none" width="262"><%=getlang("langECountry")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><input class="txtfield" border="none" type="text" size="25" name="strEZip" value="<%=strEZip%>"><br></td>
<td style="border-style: none; border-width: none" width="262"><input class="txtfield" size="25" border="none" type="text" name="strECountry" value="<%=strECountry%>"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><strong></strong><br><font size="2">If related to anyone
in our employ, state
name and department
(omit spouse):</font></td>
<td style="border-style: none; border-width: none" width="262"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><%=getlang("langReferral")%><br>
<input class="txtfield" border="none" type="text" size="25" name="strReferral" value="<%=strReferral%>"></td>
<td style="border-style: none; border-width: none" width="262"><%=getlang("langRefby")%><br>
<input class="txtfield" size="25" border="none" type="text" name="strRefby" value="<%=strRefby%>"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233">
<font color="#0099FF"><span style="font-weight: 700">EMPLOYMENT DESIRED:</span></font><span style="FONT-WEIGHT: bold"><font color="#0099ff">
</font></span></td>
<td style="border-style: none; border-width: none" width="262"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><%=getlang("langPos")%></td>
<td style="border-style: none; border-width: none" width="262"><%=getlang("langDatest")%></td>
</tr><br>
<tr>
<td style="border-style: none; border-width: none" width="233">
<input class="txtfield" border="none" type="text" size="25" name="strPos" value="<%=strPos%>"></td>
<td style="border-style: none; border-width: none" width="262">
<input class="txtfield" size="25" border="none" type="text" name="strDatest" value="<%=strDatest%>"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233" height="17"><br><%=getlang("langEmploy")%></td>
<td style="border-style: none; border-width: none" width="262" height="17"><br><%=getlang("langInquire")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><input class="txtfield" border="none" type="text" size="25" name="strEmploy" value="<%=strEmploy%>"></td>
<td style="border-style: none; border-width: none" width="262"><input class="txtfield" size="25" border="none" type="text" name="strInquire" value="<%=strInquire%>"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><br><%=getlang("langSal")%></td>
<td style="border-style: none; border-width: none" width="262"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><input class="txtfield" border="none" type="text" size="25" name="strSal" value="<%=strSal%>"></td>
<td style="border-style: none; border-width: none" width="262"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><br><%=getlang("langApplied")%></td>
<td style="border-style: none; border-width: none" width="262"><br><%=getlang("langWhere")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233">
<input type="checkbox" name="C1" value="I have Applied Here Before<%=strApplied%>">Yes    <input type="checkbox" name="C2" value="I Have Not Applied Here Before<%=strApplied%>" checked>No</td>
<td style="border-style: none; border-width: none" width="262"><input class="txtfield" size="25" border="none" type="text" name="strWhere" value="<%=strWhere%>"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"></td>
<td style="border-style: none; border-width: none" width="262"><br><%=getlang("langWhen")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"></td>
<td style="border-style: none; border-width: none" width="262"><input class="txtfield" size="25" border="none" type="text" name="strWhen" value="<%=strWhen%>"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233">
<font color="#0099FF"><span style="font-weight: 700">EDUCATIONAL HISTORY
</span></font></td>
<td style="border-style: none; border-width: none" width="262"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><br><strong><%=getlang("langGram")%></strong></td>
<td style="border-style: none; border-width: none" width="262"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><br><%=getlang("langSchlnm")%></td>
<td style="border-style: none; border-width: none" width="262"><br></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><input class="txtfield" border="none" type="text" size="25" name="strSchlnm" value="<%=strSchlnm%>"></td>
<td style="border-style: none; border-width: none" width="262"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><%=getlang("langScloc")%></td>
<td style="border-style: none; border-width: none" width="262"><%=getlang("langScst")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><input class="txtfield" size="25" border="none" type="text" name="strScloc" value="<%=strScloc%>"></td>
<td style="border-style: none; border-width: none" width="262"><input class="txtfield" size="25" border="none" type="text" name="strWhere" value="<%=strScst%>"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><br><strong><%=getlang("langStudies")%></strong></td>
<td style="border-style: none; border-width: none" width="262"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="485" colspan="2">
<textarea class="txtfield" border="none" rows="10" id="strComments" name="strComments" cols="58"><%=strComments%>Type Here...</textarea></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><br><strong><%=getlang("langHigh")%></strong></td>
<td style="border-style: none; border-width: none" width="262"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><br><%=getlang("langHschlnm")%></td>
<td style="border-style: none; border-width: none" width="262"><br><%=getlang("langHgrad")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><input class="txtfield" border="none" type="text" size="25" name="strHschlnm" value="<%=strHschlnm%>"></td>
<td style="border-style: none; border-width: none" width="262">
<input type="checkbox" name="strHgrad" value="I graduated High School<%=strHgrad%>">Yes    <input type="checkbox" name="strHgrad" value="I Did Not Graduate High School<%=strHgrad%>" checked>No</td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><%=getlang("langHscloc")%></td>
<td style="border-style: none; border-width: none" width="262"><%=getlang("langHscst")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><input class="txtfield" size="25" border="none" type="text" name="strHscloc" value="<%=strHscloc%>"></td>
<td style="border-style: none; border-width: none" width="262"><input class="txtfield" size="25" border="none" type="text" name="strHscst" value="<%=strHscst%>"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><br><strong><%=getlang("langHstudies")%></strong></td>
<td style="border-style: none; border-width: none" width="262"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="485" colspan="2">
<textarea class="txtfield" border="none" rows="10" name="strHstudies" cols="58"><%=strHstudies%>Type Here...</textarea></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><br><strong><%=getlang("langCol")%></strong></td>
<td style="border-style: none; border-width: none" width="262"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><br><%=getlang("langCschlnm")%></td>
<td style="border-style: none; border-width: none" width="262"><br><%=getlang("langCgrad")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><input class="txtfield" border="none" type="text" size="25" name="strHschlnm" value="<%=strCschlnm%>"></td>
<td style="border-style: none; border-width: none" width="262">
<input type="checkbox" name="strHgrad" value="I graduated College<%=strCgrad%>">Yes    <input type="checkbox" name="strHgrad" value="I Did Not Graduate College<%=strCgrad%>" checked>No</td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><%=getlang("langCscloc")%></td>
<td style="border-style: none; border-width: none" width="262"><%=getlang("langCscst")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><input class="txtfield" size="25" border="none" type="text" name="strHscloc" value="<%=strCscloc%>"></td>
<td style="border-style: none; border-width: none" width="262"><input class="txtfield" size="25" border="none" type="text" name="strHscst" value="<%=strCscst%>"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><br><strong><%=getlang("langCstudies")%></strong></td>
<td style="border-style: none; border-width: none" width="262"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="485" colspan="2">
<textarea class="txtfield" border="none" rows="10" name="strCstudies" cols="58"><%=strCstudies%>Type Here...</textarea></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263" colspan="2"><br><strong><%=getlang("langTrade")%></strong></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><br><%=getlang("langTschlnm")%></td>
<td style="border-style: none; border-width: none" width="262"><br><%=getlang("langTgrad")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><input class="txtfield" border="none" type="text" size="25" name="strHschlnm" value="<%=strTschlnm%>"></td>
<td style="border-style: none; border-width: none" width="262">
<input type="checkbox" name="strHgrad" value="I Graduated Trade School<%=strTgrad%>">Yes    <input type="checkbox" name="strHgrad" value="I Did Not Graduate Trade School<%=strTgrad%>" checked>No</td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><%=getlang("langTscloc")%></td>
<td style="border-style: none; border-width: none" width="262"><%=getlang("langTscst")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><input class="txtfield" size="25" border="none" type="text" name="strHscloc" value="<%=strTscloc%>"></td>
<td style="border-style: none; border-width: none" width="262"><input class="txtfield" size="25" border="none" type="text" name="strHscst" value="<%=strTscst%>"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><br><strong><%=getlang("langTstudies")%></strong></td>
<td style="border-style: none; border-width: none" width="262"> </td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="485" colspan="2">
<textarea class="txtfield" border="none" rows="10" name="strTstudies" cols="58"><%=strTstudies%>Type Here...</textarea></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="485" colspan="2">
<strong><font color="#0099FF"><br>
LANGUAGES, STUDIES, RESEARCH & ACTIVITIES:<br>
 </font></strong></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263" colspan="4"><%=getlang("langLang")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="263" colspan="2"><input class="txtfield" size="25" border="none" type="text" name="strLang" value="<%=strLang%>"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><%=getlang("langRead")%></td>
<td style="border-style: none; border-width: none" width="262"><%=getlang("langRite")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><input class="txtfield" size="25" border="none" type="text" name="strRead" value="<%=strRead%>"></td>
<td style="border-style: none; border-width: none" width="262"><input class="txtfield" size="25" border="none" type="text" name="strRite" value="<%=strRite%>"></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233"><%=getlang("langSpcl")%></td>
<td style="border-style: none; border-width: none" width="262"><%=getlang("langAct")%></td>
</tr>
<tr>
<td style="border-style: none; border-width: none" width="233">
<textarea class="txtfield" border="none" rows="10" name="strSpcl" cols="27"><%=strSpcl%></textarea></td>
<td style="border-style: none; border-width: none" width="262"><textarea class="txtfield" border="none" rows="10" name="strAct" cols="27"><%=strAct%></textarea></td>
</tr>
</tr>
<td style="border-style: none; border-width: none" width="755" colspan="3">
<em style="font-style: normal"><font size="1">*EXCLUDE ORGANIZATIONS, THE NAME OR CHARACTER OF WHICH INDICATES THE
RACE, CREED, SEX, MARITAL STATUS, AGE, COLOR OR
NATIONAL ORIGIN OF ITS MEMBERS.<br>
</font></em><br></td><br>
</tr>
</tr>

<%'VP-ASP 6.50 - add a random string to email form to stop bots spamming it
if getconfig("xprotectemailforms") = "Yes" then
CreateCAPTCHA
end if%>
</table>
<table width="88%" border="1" cellpadding="5" cellspacing="0" id="table10">
<tr>
<td colspan="6"><strong><%=getlang("langFormer")%><br>
 </strong></td>
</tr>
<tr>
<td height="29" colspan="2"><center><%=getlang("langDMY")%></center></td>
<td width="24%"><center><%=getlang("langNAPP")%></center></td>
<td width="10%"><center><%=getlang("langWage")%></center></td>
<td width="12%"><center><%=getlang("langHeld")%></center></td>
<td width="39%"><center><%=getlang("langLeav")%></center></td>
</tr>
<tr>
<td width="7%"><br><%=getlang("langTo")%></td>
<td width="8%" valign="top"> <input name="strTo1" value="<%=strTo1%>" type="TEXT" id="TO1" size="10" ></td>
<td rowspan="2" valign="top"> <textarea name="strNAPP1" value="<%=strNAPP1%>" cols="25" rows="3" id="EmpInfo1" onFocus="if(this.value=='Your comments or suggestions...')this.value='';" onBlur="if(this.value=='')this.value='Your comments or suggestions...';">Enter Information...</textarea></td>
<td rowspan="2" valign="top"> <input name="strWage1" value="<%=strWage%>" type="TEXT" id="Wage1" size="10" ></td>
<td rowspan="2" valign="top"><input name="strHeld1" value="<%=strHeld%>" type="TEXT" id="Position1" size="27" ></td>
<td rowspan="2" valign="top"><textarea name="strLeav1" value="<%=strLeav%>" cols="20" rows="3" id="leaving1" onFocus="if(this.value=='Your comments or suggestions...')this.value='';" onBlur="if(this.value=='')this.value='Your comments or suggestions...';">Enter Information...</textarea></td>
</tr>
<tr>
<td><br><%=getlang("langFrom")%></td>
<td valign="top"> <input name="strFrom1" value="<%=strFrom1%>" type="TEXT" id="FROM1" size="10" ></td>
</tr>
<tr>
<td><br><%=getlang("langTo")%></td>
<td valign="top"> <input name="strTo2" value="<%=strTo2%>" type="TEXT" id="TO2" size="10" ></td>
<td rowspan="2" valign="top"> <textarea name="strNAPP2" value="<%=strNAPP1%>" cols="25" rows="3" id="EmpInfo2" onFocus="if(this.value=='Your comments or suggestions...')this.value='';" onBlur="if(this.value=='')this.value='Your comments or suggestions...';">Enter Information...</textarea></td>
<td rowspan="2" valign="top"> <input name="strWage2" value="<%=strWage%>" type="TEXT" id="Wage2" size="10" ></td>
<td rowspan="2" valign="top"><input name="strHeld2" value="<%=strHeld%>" type="TEXT" id="Position2" size="27" ></td>
<td rowspan="2" valign="top"><textarea name="strLeav2" value="<%=strLeav%>" cols="20" rows="3" id="leaving2" onFocus="if(this.value=='Your comments or suggestions...')this.value='';" onBlur="if(this.value=='')this.value='Your comments or suggestions...';">Enter Information...</textarea></td>
</tr>
<tr>
<td><br><%=getlang("langFrom")%></td>
<td valign="top"> <input name="strFrom2" value="<%=strFrom2%>" type="TEXT" id="FROM2" size="10" ></td>
</tr>
<tr>
<td><br><%=getlang("langTo")%></td>
<td valign="top"> <input name="strTo3" value="<%=strTo3%>" type="TEXT" id="TO3" size="10" ></td>
<td rowspan="2" valign="top"> <textarea name="strNAPP3" value="<%=strNAPP1%>" cols="25" rows="3" id="EmpInfo3" onFocus="if(this.value=='Your comments or suggestions...')this.value='';" onBlur="if(this.value=='')this.value='Your comments or suggestions...';">Enter Information...</textarea></td>
<td rowspan="2" valign="top"> <input name="strWage3" value="<%=strWage%>" type="TEXT" id="Wage3" size="10" ></td>
<td rowspan="2" valign="top"><input name="strHeld3" value="<%=strHeld%>" type="TEXT" id="Position3" size="27" ></td>
<td rowspan="2" valign="top"><textarea name="strLeav3" value="<%=strLeav%>" cols="20" rows="3" id="leaving3" onFocus="if(this.value=='Your comments or suggestions...')this.value='';" onBlur="if(this.value=='')this.value='Your comments or suggestions...';">Enter Information...</textarea></td>
</tr>
<tr>
<td><br><%=getlang("langFrom")%></td>
<td valign="top"> <input name="strFrom3" value="<%=strFrom3%>" type="TEXT" id="FROM3" size="10" ></td>
</tr>
</table>
<table width="100%" border="1" cellspacing="0" cellpadding="5" id="table11">
<tr>
<td colspan="5"><br><strong><%=getlang("langRefr")%></strong><p></td>
</tr>
<tr>
<td><center><%=getlang("langRefname")%></center></td>
<td><center><%=getlang("langRefaddy")%></center></td>
<td><center><%=getlang("langRefphone")%></center></td>
<td><center><%=getlang("langRefbus")%></center></td>
<td><center><%=getlang("langRefyrs")%></center></td>
</tr>
<tr>
<td><input name="strRefname1" value="<%=strRefname%>" type="TEXT" id="refname1" size="20" ></td>
<td><input name="strRefaddy1" value="<%=strRefaddy%>" type="TEXT" id="refaddy1" size="30" ></td>
<td><input name="strRefphone1" value="<%=strRefphone%>" type="TEXT" id="refphone1" size="15" ></td>
<td><input name="strRefbus1" value="<%=strRefbus%>" type="TEXT" id="refbus1" size="17" ></td>
<td><input name="strRefyrs1" value="<%=strRefyrs%>" type="TEXT" id="refyrs1" size="15" ></td>
</tr>
<tr>
<td><input name="strRefname2" type="TEXT" value="<%=strRefname2%>" id="Refname2" size="20" ></td>
<td><input name="strRefaddy2" type="TEXT" value="<%=strRefaddy2%>" id="Refaddy2" size="30" ></td>
<td><input name="strRefphone2" type="TEXT" value="<%=strRefphone2%>" id="Refpone2" size="15" ></td>
<td><input name="strRefbus2" type="TEXT" value="<%=strRefbus2%>" id="Refbus2" size="17" ></td>
<td><input name="strRefyrs2" type="TEXT" value="<%=strRefyrs2%>" id="Refyrs2" size="15" ></td>
</tr>
<tr>
<td><input name="strRefname3" value="<%=strRefname3%>" type="TEXT" id="refname3" size="20" ></td>
<td><input name="strRefaddy3" value="<%=strRefaddy3%>" type="TEXT" id="refaddy3" size="30" ></td>
<td><input name="strRefphone3" value="<%=strRefphone3%>" type="TEXT" id="refphone3" size="15" ></td>
<td><input name="strRefbus3" value="<%=strRefbus3%>" type="TEXT" id="refbus3" size="17" ></td>
<td><input name="strRefyrs3" value="<%=strRefyrs3%>" type="TEXT" id="refyrs3" size="15" ></td>
</tr>
</table>
</div>
<div class="std_table ar">
<input type="submit" name="action" value=" <%=getlang("langcommoncontinue")%> " class="submitbtn">
</div>
</form>
<%
end sub


Sub ValidateMininumInfo
If strFirstname = "" Then
sError = sError & getlang("LangCustFirstname") & getlang("LangCustrequired") & "<br />"
End If

If strEmail = "" Then
sError = sError & getlang("LangCustEmail") & getlang("LangCustrequired") & "<br />"
Else
CustomerValidateEmail stremail
end If


'VP-ASP 6.50 - add a random string to email form to stop bots spamming it
if getconfig("xprotectemailforms") = "Yes" then
%><!-- #include file="captcha/captcha_process_form.asp" --><%
If blnCAPTCHAcodeCorrect Then
'Fine
Else
sError = sError & getlang("langcaptchawrong") & "<br />"
End If
End if

end sub

Sub DisplaycompanyInfo

dim sql, rs, dbc, address, email, myemail
openorderdb dbc
sql="select * from mycompany"
set rs=dbc.execute(sql)
if rs.eof then
closerecordset rs
shopclosedatabase dbc
exit sub
end if

address=rs("address") & "<br />"
address=address & rs("city") & " " & rs("state") & " " & rs("postalcode")
address=address & "<br />" & rs("country")

%>
<h2><%=getlang("langcommoninformation")%></h2>
<div class="std_table">
<table>
<tr>
<th><%=getlang("LangCustCompany")%></th>
<td><%=rs("companyname")%></td>
</tr>
<tr>
<th><%=getlang("LangCustAddress")%></th>
<td><%=address%></td>
</tr>
<tr>
<th><%=getlang("LangCustPhone")%></th>
<td><%=rs("phonenumber")%></td>
</tr>
<tr>
<th><%=getlang("LangCustFax")%></th>
<td><%=rs("faxnumber")%></td>
</tr>
<% myemail=rs("myemail")
If not isnull(Myemail) then
email="<a href='mailto:" & myemail & "'>" & myemail & "</a>"
%>
<tr>
<th><%=getlang("LangCustEmail")%></th>
<td><%=email%></td>
</tr>
<% end if %>
</table>
</div>

<br />
<br />
<%
end sub

'VP-ASP 6.50 - add a random string to email form to stop bots spamming it
Sub CreateCAPTCHA
if getconfig("xprotectemailforms") <> "Yes" then exit sub
Response.write tablerow & tablecolumn
Response.write "<strong>" & getlang("langcaptchaenter") & "</strong>"
getCAPTCHA
Response.write tablecolumnend & tableRowend
End Sub

%>

James Hickey
Go to Top of Page

rtnsolutions
Starting Member

USA
11 Posts

Posted - December 15 2008 :  19:48:26  Show Profile  Visit rtnsolutions's Homepage  Reply with Quote
Does anyone ever reply to these posts?

James Hickey
Go to Top of Page

carfin
VP-ASP Expert

United Kingdom
948 Posts

Posted - December 16 2008 :  04:12:43  Show Profile  Reply with Quote
Hi there,

yes people do reply to the majority of posts, and we help where we can, but what you're asking for help with is a pretty big ask, and there aren't that many ASP programmers frequenting this forum. If someone sees the post and can help then I'm sure they will, but it could take a while and unfortunately there's no guarantee that you will get an answer.

Regards,

Carrol
www.deanston-electrical.co.uk
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000