Microsoft VBScript compilation error '800a0401'
I'm getting an expected end of statement for some reason on this. Any help would be appreciated.
<%@ Language="VBScript" %>
<% Option Explicit %>
<html>
<head>
<title>Submit Application</title>
</head>
<body>
<%
'declare your variables
Dim release, referenceaddress3, referencedistrict3, reference1, EOreason4, EOemployer2, ETschool_district3, ETattendanceto3, ETattendancefrom3, STcooperatingteacher1, STgrade_subject1, ARattendanceto4, ARstatus3, ARdegree&date3, retired, terminated, referenceaddress4, referencedistrict4, reference2, PraxisOther1, PRAXISwrittenwscore, PRAXIS, OOScertarea, EOemployer3, ETschool_district4, ETattendanceto4, ETattendancefrom4, STcooperatingteacher2, STgrade_subject2, ARstatus4, ARdegree&date4, title, LATAAP, related, reference3, PraxisOther2, EOemployer4, STcooperatingteacher3, STgrade_subject3, certified, reference4, PraxisOther3, PRAXISdate, STcooperatingteacher4, STgrade_subject4, NTE_csscore, NTE_pkscore, NTEdate, OOScertdate, certcurrent, certtype, STattendancefrom1, position, workedinasystem, MiddleName, PRAXIScomputerwscore, PRAXISwrittenrscore, OOScertnumber, STattendancefrom2, ARmajor1, certarea, STattendancefrom3, ARmajor2, retirementsystem, email, LATAAPcomplete, STattendancefrom4, ARmajor3, activities, phone, appfor, referencephone1, PRAXIScode1, textfieldName, certnumber, ETschool1, ARmajor4, LATAAPdate, referencephone2, PRAXIScode2, certdate, ETschool2, ETreason1, ARGPA1, acinstitution1, appliedtoteach, zip, SSN, righttowork, referencephone3, PRAXIScode3, PRAXIScomputerrscore, EOattendanceto1, ETschool3, ETreason2, STsupervisor1, ARGPA2, acinstitution2, city, FirstName, explanation, referencephone4, NTE, OOScert, EOattendanceto2, EOattendancefrom1, ETschool4, ETreason3, STsupervisor2, STschool1, ARGPA3, acinstitution3, ARattendancefrom1, coaching, altphone, felony, EOattendanceto3, EOattendancefrom2, EOposition1, ETreason4, ETgrade_subject1, STsupervisor3, STschool2, STattendanceto1, ARGPA4, acinstitution4, ARattendancefrom2, state, employed, PRAXISscore1, NTE_gkscore, EOattendanceto4, EOattendancefrom3, EOposition2, EOreason1, ETgrade_subject2, STsupervisor4, STschool3, STattendanceto2, ARattendancefrom3, ARattendanceto1, computer, LastName, referenceaddress1, referencedistrict1, PRAXISscore2, nationalboard, EOattendancefrom4, EOposition3, EOreason2, ETgrade_subject3, ETschool_district1, ETattendanceto1, ETattendancefrom1, STschool4, STattendanceto3, ARattendancefrom4, ARattendanceto2, ARstatus1, ARdegree&date1, Address, citizenship, appdate, LATAAPlocation, referenceaddress2, referencedistrict2, PRAXISscore3, PRAXIScomputermscore, NTE_sascore, OOScerttype, EOposition4, EOreason3, EOemployer1, ETgrade_subject4, ETschool_district2, ETattendanceto2, ETattendancefrom2, STattendanceto4, ARattendanceto3, ARstatus2, ARdegree&date2, retirementdate
Dim sConnString, connection, sSQL
'Receiving values from Form, assign the values entered to variables
release = Request.Form("release")
referenceaddress3 = Request.Form("referenceaddress3")
referencedistrict3 = Request.Form("referencedistrict3")
reference1 = Request.Form("reference1")
EOreason4 = Request.Form("EOreason4")
EOemployer2 = Request.Form("EOemployer2")
ETschool_district3 = Request.Form("ETschool_district3")
ETattendanceto3 = Request.Form("ETattendanceto3")
ETattendancefrom3 = Request.Form("ETattendancefrom3")
STcooperatingteacher1 = Request.Form("STcooperatingteacher1")
STgrade_subject1 = Request.Form("STgrade_subject1")
ARattendanceto4 = Request.Form("ARattendanceto4")
ARstatus3 = Request.Form("ARstatus3")
ARdegree&date3 = Request.Form("ARdegree&date3")
retired = Request.Form("retired")
terminated = Request.Form("terminated")
referenceaddress4 = Request.Form("referenceaddress4")
referencedistrict4 = Request.Form("referencedistrict4")
reference2 = Request.Form("reference2")
PraxisOther1 = Request.Form("PraxisOther1")
PRAXISwrittenwscore = Request.Form("PRAXISwrittenwscore")
PRAXIS = Request.Form("PRAXIS")
OOScertarea = Request.Form("OOScertarea")
EOemployer3 = Request.Form("EOemployer3")
ETschool_district4 = Request.Form("ETschool_district4")
ETattendanceto4 = Request.Form("ETattendanceto4")
ETattendancefrom4 = Request.Form("ETattendancefrom4")
STcooperatingteacher2 = Request.Form("STcooperatingteacher2")
STgrade_subject2 = Request.Form("STgrade_subject2")
ARstatus4 = Request.Form("ARstatus4")
ARdegree&date4 = Request.Form("ARdegree&date4")
title = Request.Form("title")
LATAAP = Request.Form("LATAAP")
related = Request.Form("related")
reference3 = Request.Form("reference3")
PraxisOther2 = Request.Form("PraxisOther2")
EOemployer4 = Request.Form("EOemployer4")
STcooperatingteacher3 = Request.Form("STcooperatingteacher3")
STgrade_subject3 = Request.Form("STgrade_subject3")
certified = Request.Form("certified")
reference4 = Request.Form("reference4")
PraxisOther3 = Request.Form("PraxisOther3")
PRAXISdate = Request.Form("PRAXISdate")
STcooperatingteacher4 = Request.Form("STcooperatingteacher4")
STgrade_subject4 = Request.Form("STgrade_subject4")
NTE_csscore = Request.Form("NTE_csscore")
NTE_pkscore = Request.Form("NTE_pkscore")
NTEdate = Request.Form("NTEdate")
OOScertdate = Request.Form("OOScertdate")
certcurrent = Request.Form("certcurrent")
certtype = Request.Form("certtype")
STattendancefrom1 = Request.Form("STattendancefrom1")
position = Request.Form("position")
workedinasystem = Request.Form("workedinasystem")
MiddleName = Request.Form("MiddleName")
PRAXIScomputerwscore = Request.Form("PRAXIScomputerwscore")
PRAXISwrittenrscore = Request.Form("PRAXISwrittenrscore")
OOScertnumber = Request.Form("OOScertnumber")
STattendancefrom2 = Request.Form("STattendancefrom2")
ARmajor1 = Request.Form("ARmajor1")
certarea = Request.Form("certarea")
STattendancefrom3 = Request.Form("STattendancefrom3")
ARmajor2 = Request.Form("ARmajor2")
retirementsystem = Request.Form("retirementsystem")
email = Request.Form("email")
LATAAPcomplete = Request.Form("LATAAPcomplete")
STattendancefrom4 = Request.Form("STattendancefrom4")
ARmajor3 = Request.Form("ARmajor3")
activities = Request.Form("activities")
phone = Request.Form("phone")
appfor = Request.Form("appfor")
referencephone1 = Request.Form("referencephone1")
PRAXIScode1 = Request.Form("PRAXIScode1")
textfieldName = Request.Form("textfieldName")
certnumber = Request.Form("certnumber")
ETschool1 = Request.Form("ETschool1")
ARmajor4 = Request.Form("ARmajor4")
LATAAPdate = Request.Form("LATAAPdate")
referencephone2 = Request.Form("referencephone2")
PRAXIScode2 = Request.Form("PRAXIScode2")
certdate = Request.Form("certdate")
ETschool2 = Request.Form("ETschool2")
ETreason1 = Request.Form("ETreason1")
ARGPA1 = Request.Form("ARGPA1")
acinstitution1 = Request.Form("acinstitution1")
appliedtoteach = Request.Form("appliedtoteach")
zip = Request.Form("zip")
SSN = Request.Form("SSN")
righttowork = Request.Form("righttowork")
referencephone3 = Request.Form("referencephone3")
PRAXIScode3 = Request.Form("PRAXIScode3")
PRAXIScomputerrscore = Request.Form("PRAXIScomputerrscore")
EOattendanceto1 = Request.Form("EOattendanceto1")
ETschool3 = Request.Form("ETschool3")
ETreason2 = Request.Form("ETreason2")
STsupervisor1 = Request.Form("STsupervisor1")
ARGPA2 = Request.Form("ARGPA2")
acinstitution2 = Request.Form("acinstitution2")
city = Request.Form("city")
FirstName = Request.Form("FirstName")
explanation = Request.Form("explanation")
referencephone4 = Request.Form("referencephone4")
NTE = Request.Form("NTE")
OOScert = Request.Form("OOScert")
EOattendanceto2 = Request.Form("EOattendanceto2")
EOattendancefrom1 = Request.Form("EOattendancefrom1")
ETschool4 = Request.Form("ETschool4")
ETreason3 = Request.Form("ETreason3")
STsupervisor2 = Request.Form("STsupervisor2")
STschool1 = Request.Form("STschool1")
ARGPA3 = Request.Form("ARGPA3")
acinstitution3 = Request.Form("acinstitution3")
ARattendancefrom1 = Request.Form("ARattendancefrom1")
coaching = Request.Form("coaching")
altphone = Request.Form("altphone")
felony = Request.Form("felony")
EOattendanceto3 = Request.Form("EOattendanceto3")
EOattendancefrom2 = Request.Form("EOattendancefrom2")
EOposition1 = Request.Form("EOposition1")
ETreason4 = Request.Form("ETreason4")
ETgrade_subject1 = Request.Form("ETgrade_subject1")
STsupervisor3 = Request.Form("STsupervisor3")
STschool2 = Request.Form("STschool2")
STattendanceto1 = Request.Form("STattendanceto1")
ARGPA4 = Request.Form("ARGPA4")
acinstitution4 = Request.Form("acinstitution4")
ARattendancefrom2 = Request.Form("ARattendancefrom2")
state = Request.Form("state")
employed = Request.Form("employed")
PRAXISscore1 = Request.Form("PRAXISscore1")
NTE_gkscore = Request.Form("NTE_gkscore")
EOattendanceto4 = Request.Form("EOattendanceto4")
EOattendancefrom3 = Request.Form("EOattendancefrom3")
EOposition2 = Request.Form("EOposition2")
EOreason1 = Request.Form("EOreason1")
ETgrade_subject2 = Request.Form("ETgrade_subject2")
STsupervisor4 = Request.Form("STsupervisor4")
STschool3 = Request.Form("STschool3")
STattendanceto2 = Request.Form("STattendanceto2")
ARattendancefrom3 = Request.Form("ARattendancefrom3")
ARattendanceto1 = Request.Form("ARattendanceto1")
computer = Request.Form("computer") LastName = Request.Form("LastName")
referenceaddress1 = Request.Form("referenceaddress1")
referencedistrict1 = Request.Form("referencedistrict1")
PRAXISscore2 = Request.Form("PRAXISscore2")
nationalboard = Request.Form("nationalboard")
EOattendancefrom4 = Request.Form("EOattendancefrom4")
EOposition3 = Request.Form("EOposition3")
EOreason2 = Request.Form("EOreason2")
ETgrade_subject3 = Request.Form("ETgrade_subject3")
ETschool_district1 = Request.Form("ETschool_district1")
ETattendanceto1 = Request.Form("ETattendanceto1")
ETattendancefrom1 = Request.Form("ETattendancefrom1")
STschool4 = Request.Form("STschool4")
STattendanceto3 = Request.Form("STattendanceto3")
ARattendancefrom4 = Request.Form("ARattendancefrom4")
ARattendanceto2 = Request.Form("ARattendanceto2")
ARstatus1 = Request.Form("ARstatus1")
ARdegree&date1 = Request.Form("ARdegree&date1")
Address = Request.Form("Address")
citizenship = Request.Form("citizenship")
appdate = Request.Form("appdate")
LATAAPlocation = Request.Form("LATAAPlocation")
referenceaddress2 = Request.Form("referenceaddress2")
referencedistrict2 = Request.Form("referencedistrict2")
PRAXISscore3 = Request.Form("PRAXISscore3")
PRAXIScomputermscore = Request.Form("PRAXIScomputermscore")
NTE_sascore = Request.Form("NTE_sascore")
OOScerttype = Request.Form("OOScerttype")
EOposition4 = Request.Form("EOposition4")
EOreason3 = Request.Form("EOreason3")
EOemployer1 = Request.Form("EOemployer1")
ETgrade_subject4 = Request.Form("ETgrade_subject4")
ETschool_district2 = Request.Form("ETschool_district2")
ETattendanceto2 = Request.Form("ETattendanceto2")
ETattendancefrom2 = Request.Form("ETattendancefrom2")
STattendanceto4 = Request.Form("STattendanceto4")
ARattendanceto3 = Request.Form("ARattendanceto3")
ARstatus2 = Request.Form("ARstatus2")
ARdegree&date2 = Request.Form("ARdegree&date2")
retirementdate = Request.Form("retirementdate")
'declare SQL statement that will query the database
sSQL = "INSERT into employees (release, referenceaddress3, referencedistrict3, reference1, EOreason4, EOemployer2, ETschool_district3, ETattendanceto3, ETattendancefrom3, STcooperatingteacher1, STgrade_subject1, ARattendanceto4, ARstatus3, ARdegree&date3, retired, terminated, referenceaddress4, referencedistrict4, reference2, PraxisOther1, PRAXISwrittenwscore, PRAXIS, OOScertarea, EOemployer3, ETschool_district4, ETattendanceto4, ETattendancefrom4, STcooperatingteacher2, STgrade_subject2, ARstatus4, ARdegree&date4, title, LATAAP, related, reference3, PraxisOther2, EOemployer4, STcooperatingteacher3, STgrade_subject3, certified, reference4, PraxisOther3, PRAXISdate, STcooperatingteacher4, STgrade_subject4, NTE_csscore, NTE_pkscore, NTEdate, OOScertdate, certcurrent, certtype, STattendancefrom1, position, workedinasystem, MiddleName, PRAXIScomputerwscore, PRAXISwrittenrscore, OOScertnumber, STattendancefrom2, ARmajor1, certarea, STattendancefrom3, ARmajor2, retirementsystem, email, LATAAPcomplete, STattendancefrom4, ARmajor3, activities, phone, appfor, referencephone1, PRAXIScode1, textfieldName, certnumber, ETschool1, ARmajor4, LATAAPdate, referencephone2, PRAXIScode2, certdate, ETschool2, ETreason1, ARGPA1, acinstitution1, appliedtoteach, zip, SSN, righttowork, referencephone3, PRAXIScode3, PRAXIScomputerrscore, EOattendanceto1, ETschool3, ETreason2, STsupervisor1, ARGPA2, acinstitution2, city, FirstName, explanation, referencephone4, NTE, OOScert, EOattendanceto2, EOattendancefrom1, ETschool4, ETreason3, STsupervisor2, STschool1, ARGPA3, acinstitution3, ARattendancefrom1, coaching, altphone, felony, EOattendanceto3, EOattendancefrom2, EOposition1, ETreason4, ETgrade_subject1, STsupervisor3, STschool2, STattendanceto1, ARGPA4, acinstitution4, ARattendancefrom2, state, employed, PRAXISscore1, NTE_gkscore, EOattendanceto4, EOattendancefrom3, EOposition2, EOreason1, ETgrade_subject2, STsupervisor4, STschool3, STattendanceto2, ARattendancefrom3, ARattendanceto1, computer, LastName, referenceaddress1, referencedistrict1, PRAXISscore2, nationalboard, EOattendancefrom4, EOposition3, EOreason2, ETgrade_subject3, ETschool_district1, ETattendanceto1, ETattendancefrom1, STschool4, STattendanceto3, ARattendancefrom4, ARattendanceto2, ARstatus1, ARdegree&date1, Address, citizenship, appdate, LATAAPlocation, referenceaddress2, referencedistrict2, PRAXISscore3, PRAXIScomputermscore, NTE_sascore, OOScerttype, EOposition4, EOreason3, EOemployer1, ETgrade_subject4, ETschool_district2, ETattendanceto2, ETattendancefrom2, STattendanceto4, ARattendanceto3, ARstatus2, ARdegree&date2, retirementdate) values ('"& release & "', '"& referenceaddress3 & "', '"& referencedistrict3 & "', '"& reference1 & "', '"& EOreason4 & "', '"& EOemployer2 & "', '"& ETschool_district3 & "', '"& ETattendanceto3 & "', '"& ETattendancefrom3 & "', '"& STcooperatingteacher1 & "', '"& STgrade_subject1 & "', '"& ARattendanceto4 & "', '"& ARstatus3 & "', '"& ARdegree&date3 & "', '"& retired & "', '"& terminated & "', '"& referenceaddress4 & "', '"& referencedistrict4 & "', '"& reference2 & "', '"& PraxisOther1 & "', '"& PRAXISwrittenwscore & "', '"& PRAXIS & "', '"& OOScertarea & "', '"& EOemployer3 & "', '"& ETschool_district4 & "', '"& ETattendanceto4 & "', '"& ETattendancefrom4 & "', '"& STcooperatingteacher2 & "', '"& STgrade_subject2 & "', '"& ARstatus4 & "', '"& ARdegree&date4 & "', '"& title & "', '"& LATAAP & "', '"& related & "', '"& reference3 & "', '"& PraxisOther2 & "', '"& EOemployer4 & "', '"& STcooperatingteacher3 & "', '"& STgrade_subject3 & "', '"& certified & "', '"& reference4 & "', '"& PraxisOther3 & "', '"& PRAXISdate & "', '"& STcooperatingteacher4 & "', '"& STgrade_subject4 & "', '"& NTE_csscore & "', '"& NTE_pkscore & "', '"& NTEdate & "', '"& OOScertdate & "', '"& certcurrent & "', '"& certtype & "', '"& STattendancefrom1 & "', '"& position & "', '"& workedinasystem & "', '"& MiddleName & "', '"& PRAXIScomputerwscore & "', '"& PRAXISwrittenrscore & "', '"& OOScertnumber & "', '"& STattendancefrom2 & "', '"& ARmajor1 & "', '"& certarea & "', '"& STattendancefrom3 & "', '"& ARmajor2 & "', '"& retirementsystem & "', '"& email & "', '"& LATAAPcomplete & "', '"& STattendancefrom4 & "', '"& ARmajor3 & "', '"& activities & "', '"& phone & "', '"& appfor & "', '"& referencephone1 & "', '"& PRAXIScode1 & "', '"& textfieldName & "', '"& certnumber & "', '"& ETschool1 & "', '"& ARmajor4 & "', '"& LATAAPdate & "', '"& referencephone2 & "', '"& PRAXIScode2 & "', '"& certdate & "', '"& ETschool2 & "', '"& ETreason1 & "', '"& ARGPA1 & "', '"& acinstitution1 & "', '"& appliedtoteach & "', '"& zip & "', '"& SSN & "', '"& righttowork & "', '"& referencephone3 & "', '"& PRAXIScode3 & "', '"& PRAXIScomputerrscore & "', '"& EOattendanceto1 & "', '"& ETschool3 & "', '"& ETreason2 & "', '"& STsupervisor1 & "', '"& ARGPA2 & "', '"& acinstitution2 & "', '"& city & "', '"& FirstName & "', '"& explanation & "', '"& referencephone4 & "', '"& NTE & "', '"& OOScert & "', '"& EOattendanceto2 & "', '"& EOattendancefrom1 & "', '"& ETschool4 & "', '"& ETreason3 & "', '"& STsupervisor2 & "', '"& STschool1 & "', '"& ARGPA3 & "', '"& acinstitution3 & "', '"& ARattendancefrom1 & "', '"& coaching & "', '"& altphone & "', '"& felony & "', '"& EOattendanceto3 & "', '"& EOattendancefrom2 & "', '"& EOposition1 & "', '"& ETreason4 & "', '"& ETgrade_subject1 & "', '"& STsupervisor3 & "', '"& STschool2 & "', '"& STattendanceto1 & "', '"& ARGPA4 & "', '"& acinstitution4 & "', '"& ARattendancefrom2 & "', '"& state & "', '"& employed & "', '"& PRAXISscore1 & "', '"& NTE_gkscore & "', '"& EOattendanceto4 & "', '"& EOattendancefrom3 & "', '"& EOposition2 & "', '"& EOreason1 & "', '"& ETgrade_subject2 & "', '"& STsupervisor4 & "', '"& STschool3 & "', '"& STattendanceto2 & "', '"& ARattendancefrom3 & "', '"& ARattendanceto1 & "', '"& computer & "', '"& LastName & "', '"& referenceaddress1 & "', '"& referencedistrict1 & "', '"& PRAXISscore2 & "', '"& nationalboard & "', '"& EOattendancefrom4 & "', '"& EOposition3 & "', '"& EOreason2 & "', '"& ETgrade_subject3 & "', '"& ETschool_district1 & "', '"& ETattendanceto1 & "', '"& ETattendancefrom1 & "', '"& STschool4 & "', '"& STattendanceto3 & "', '"& ARattendancefrom4 & "', '"& ARattendanceto2 & "', '"& ARstatus1 & "', '"& ARdegree&date1 & "', '"& Address & "', '"& citizenship & "', '"& appdate & "', '"& LATAAPlocation & "', '"& referenceaddress2 & "', '"& referencedistrict2 & "', '"& PRAXISscore3 & "', '"& PRAXIScomputermscore & "', '"& NTE_sascore & "', '"& OOScerttype & "', '"& EOposition4 & "', '"& EOreason3 & "', '"& EOemployer1 & "', '"& ETgrade_subject4 & "', '"& ETschool_district2 & "', '"& ETattendanceto2 & "', '"& ETattendancefrom2 & "', '"& STattendanceto4 & "', '"& ARattendanceto3 & "', '"& ARstatus2 & "', '"& ARdegree&date2 & "', '"& retirementdate & "')"
'define the connection string, specify database
'driver and the location of database
sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("application.mdb")
'create an ADO connection object
Set connection = Server.CreateObject("ADODB.Connection")
'Open the connection to the database
connection.Open(sConnString)
'execute the SQL
connection.execute(sSQL)
response.write "Thank you for your application. Please submit appropriate documentation to the personnel department."
'Done. Close the connection object
connection.Close
Set connection = Nothing
%>
</body>
</html>
|
