Please Help Newbie

aduggan · April 3rd, 2007, 08:58 AM

Please someone take a look at this code, I've been bashing my head against a wall, it gives a 500 internal server error whenever I submit the page. Any help would be greatly appreciated!

<%@ Language="VBScript" %>
<% Option Explicit %>
<html>
<head>
<title>Submit Application</title>
</head>
<body>
<%
Dim release, referenceaddress3, referencedistrict3, reference1, EOreason4, EOemployer2, ETschool_district3, ETattendanceto3, ETattendancefrom3, STcooperatingteacher1, STgrade_subject1, ARattendanceto4, ARstatus3, ARdegreedate3, retired, terminated, referenceaddress4, referencedistrict4, reference2, PraxisOther1, PRAXISwrittenwscore, PRAXIS, OOScertarea, EOemployer3, ETschool_district4, ETattendanceto4, ETattendancefrom4, STcooperatingteacher2, STgrade_subject2, ARstatus4, ARdegreedate4, 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, ARdegreedate1, Address, citizenship, appdate, LATAAPlocation, referenceaddress2, referencedistrict2, PRAXISscore3, PRAXIScomputermscore, NTE_sascore, OOScerttype, EOposition4, EOreason3, EOemployer1, ETgrade_subject4, ETschool_district2, ETattendanceto2, ETattendancefrom2, STattendanceto4, ARattendanceto3, ARstatus2, ARdegreedate2, retirementdate
Dim sConnString, connection, sSQL
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")
ARdegreedate3 = Request.Form("ARdegreedate3")
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")
ARdegreedate4 = Request.Form("ARdegreedate4")
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")
ARdegreedate1 = Request.Form("ARdegreedate1")
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")
ARdegreedate2 = Request.Form("ARdegreedate2")
retirementdate = Request.Form("retirementdate")

sSQL = "INSERT into employees (release, referenceaddress3, referencedistrict3, reference1, EOreason4, EOemployer2, ETschool_district3, ETattendanceto3, ETattendancefrom3, STcooperatingteacher1, STgrade_subject1, ARattendanceto4, ARstatus3, ARdegreedate3, retired, terminated, referenceaddress4, referencedistrict4, reference2, PraxisOther1, PRAXISwrittenwscore, PRAXIS, OOScertarea, EOemployer3, ETschool_district4, ETattendanceto4, ETattendancefrom4, STcooperatingteacher2, STgrade_subject2, ARstatus4, ARdegreedate4, 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, ARdegreedate1, Address, citizenship, appdate, LATAAPlocation, referenceaddress2, referencedistrict2, PRAXISscore3, PRAXIScomputermscore, NTE_sascore, OOScerttype, EOposition4, EOreason3, EOemployer1, ETgrade_subject4, ETschool_district2, ETattendanceto2, ETattendancefrom2, STattendanceto4, ARattendanceto3, ARstatus2, ARdegreedate2, retirementdate) values ('"& release & "', '"& referenceaddress3 & "', '"& referencedistrict3 & "', '"& reference1 & "', '"& EOreason4 & "', '"& EOemployer2 & "', '"& ETschool_district3 & "', '"& ETattendanceto3 & "', '"& ETattendancefrom3 & "', '"& STcooperatingteacher1 & "', '"& STgrade_subject1 & "', '"& ARattendanceto4 & "', '"& ARstatus3 & "', '"& ARdegreedate3 & "', '"& retired & "', '"& terminated & "', '"& referenceaddress4 & "', '"& referencedistrict4 & "', '"& reference2 & "', '"& PraxisOther1 & "', '"& PRAXISwrittenwscore & "', '"& PRAXIS & "', '"& OOScertarea & "', '"& EOemployer3 & "', '"& ETschool_district4 & "', '"& ETattendanceto4 & "', '"& ETattendancefrom4 & "', '"& STcooperatingteacher2 & "', '"& STgrade_subject2 & "', '"& ARstatus4 & "', '"& ARdegreedate4 & "', '"& 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 & "', '"& ARdegreedate1 & "', '"& Address & "', '"& citizenship & "', '"& appdate & "', '"& LATAAPlocation & "', '"& referenceaddress2 & "', '"& referencedistrict2 & "', '"& PRAXISscore3 & "', '"& PRAXIScomputermscore & "', '"& NTE_sascore & "', '"& OOScerttype & "', '"& EOposition4 & "', '"& EOreason3 & "', '"& EOemployer1 & "', '"& ETgrade_subject4 & "', '"& ETschool_district2 & "', '"& ETattendanceto2 & "', '"& ETattendancefrom2 & "', '"& STattendanceto4 & "', '"& ARattendanceto3 & "', '"& ARstatus2 & "', '"& ARdegreedate2 & "', '"& retirementdate & "')"

sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("application.mdb")

Set connection = Server.CreateObject("ADODB.Connection")
connection.Open(sConnString)
connection.execute(sSQL)
response.write "Thank you for your application. Please submit appropriate documentation to the personnel department."
connection.Close
Set connection = Nothing
%>
</body>
</html>

dparsons · April 3rd, 2007, 10:08 AM

O.o Holy Unreadable Code Batman! First Im going to say you might want to revise how you go about coding things because, even if this code worked, it is going to be an absolute pain to come back to it at any point in time and make any revisions to it.

Second, I can make and educated guess and say that the error you are getting is occuring in the last 10 lines of your code.

Something i noticed: sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("application.mdb")
in your physical file, if this line does NOT span 2 lines remove the _ (underscore)

Also, dont do this:

connection.execute(sSQL)
response.write "Thank you for your application. Please submit appropriate documentation to the personnel department."
connection.Close
Set connection = Nothing

Open your connection, call any process's that rely on that connection, and close it.
connection.execute(sSQL)
connection.Close
Set connection = Nothing
response.write "Thank you for your application. Please submit appropriate documentation to the personnel department."

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from planoie's profile^^
^^Modified text taken from gbianchi profile^^
================================================== =========
Technical Editor for: Professional Search Engine Optimization with ASP.NET
http://www.wiley.com/WileyCDA/WileyT...470131470.html
================================================== =========
Why can't Programmers, program??
http://www.codinghorror.com/blog/archives/000781.html
================================================== =========

aduggan · April 3rd, 2007, 10:19 AM

Thanks for the help, still not working. Any ideas about why I'd still get a 500 error. I know it's messy but I'm completely new to this and I have to make this work under a time crunch

dparsons · April 3rd, 2007, 10:35 AM

Hmm not sure. Try this.

Dim rs

Set RS = connection.execute(sSQL)
connection.close
Set RS = Nothing
Set connection = Nothing

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from planoie's profile^^
^^Modified text taken from gbianchi profile^^
================================================== =========
Technical Editor for: Professional Search Engine Optimization with ASP.NET
http://www.wiley.com/WileyCDA/WileyT...470131470.html
================================================== =========
Why can't Programmers, program??
http://www.codinghorror.com/blog/archives/000781.html
================================================== =========

aduggan · April 3rd, 2007, 10:53 AM

Ok, now i'm getting this -- i'm not sure what i was supposed to do with your last response.

Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

dparsons · April 3rd, 2007, 11:37 AM

Ok. I want you to humor me create a new asp page with just this code:

data_source="PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("application.mdb")
sql_insert = "INSERT INTO someTable(column)VALUES('foo')"

' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert

' Done. Close the connection
con.Close
Set con = Nothing

replace sql_insert with a valid (small) insert statement that you know will insert some data into a table

Execute it, does it work?

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from planoie's profile^^
^^Modified text taken from gbianchi profile^^
================================================== =========
Technical Editor for: Professional Search Engine Optimization with ASP.NET
http://www.wiley.com/WileyCDA/WileyT...470131470.html
================================================== =========
Why can't Programmers, program??
http://www.codinghorror.com/blog/archives/000781.html
================================================== =========

aduggan · April 3rd, 2007, 11:45 AM

no, still the 500 error

dparsons · April 3rd, 2007, 11:50 AM

change the data_source variable to this:
data_source="PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("application.mdb") &";"

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from planoie's profile^^
^^Modified text taken from gbianchi profile^^
================================================== =========
Technical Editor for: Professional Search Engine Optimization with ASP.NET
http://www.wiley.com/WileyCDA/WileyT...470131470.html
================================================== =========
Why can't Programmers, program??
http://www.codinghorror.com/blog/archives/000781.html
================================================== =========

Imar · April 3rd, 2007, 11:59 AM

Take a look here for an explanation and a fix for 80004005 errors: http://imar.spaanjaars.com/QuickDocId.aspx?quickdoc=263

Cheers,

Imar
---------------------------------------
Imar Spaanjaars
http://Imar.Spaanjaars.Com
Everyone is unique, except for me.
Author of ASP.NET 2.0 Instant Results and Beginning Dreamweaver MX / MX 2004
Want to be my colleague? Then check out this post.

dparsons · April 3rd, 2007, 12:01 PM

Imar comes through with another QuickDoc; very nice ^^

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from planoie's profile^^
^^Modified text taken from gbianchi profile^^
================================================== =========
Technical Editor for: Professional Search Engine Optimization with ASP.NET
http://www.wiley.com/WileyCDA/WileyT...470131470.html
================================================== =========
Why can't Programmers, program??
http://www.codinghorror.com/blog/archives/000781.html
================================================== =========