|
rtnsolutions
Starting Member
USA
11 Posts |
 Posted - December 10 2008 : 17:31:10
|
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 |
 |
|
All Forums
Edit Contact Us Form
New Topic
Printer Friendly
Topic 
TrustGuard - PCI Security Scanner
