|
|
Is there anyone can help with is error message:
Microsoft JET Database Engine error '80040e14'
Syntax error in UPDATE statement.
/Jbank/itemedit.asp, line 322
This on line 322- Set rs = Conn.Execute(sqlst2)
originally I was getting object required "end"
No matter what I do with this it won't work. The code work pretty good on my localhost and another sever I used use, but it doesn't work with new sever i registered with recently. any help is appriciated.
below is edit.asp this is the only file (edit and delete files) that does not work properly rest of files work fine.
<!--#INCLUDE file="adovbs.inc"-->
<%If "Cancel" = Request.Form("Action") Then
Session("Aut") = "thepatch"
Response.Redirect "/forum/itemaddsearch.html"
End If%>
<%If "Post Another" = Request.Form("Action") Then
Session("Aut") = "thepatch"
Response.Redirect "/forum/itemadd.html"
End If%>
<% If Request.QueryString("ItemId") <> "" Then
Set BeanieBaby = Request.QueryString("ItemId")
Session("BBaby") = BBaby
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\premfs112\sites\premium112\myusername\database\data.mdb;" & _
"Persist Security Info=False"
Conn.Open (sConnection)
RS.Open "SELECT * FROM table1 WHERE ItemId='" & BBaby & "'", sConnection, adOpenKeyset,adLockReadOnly
If RS.EOF Then
Response.Write "There seems to be an error with that request. Please try again or contact the system administrator"
Else
%>
<% If "Edit Item" = Request.Form("Action") Or _
Session("Status") = "Employer" Or _
Session("Status") = "Contracts" Then
Dim Qstring
Qstring = Session("BBaby")
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\premfs112\sites\premium112\myusername\database\data.mdb;" & _
"Persist Security Info=False"
Conn.Open (sConnection)
RS.Open "Select * FROM table1 WHERE ItemId='" & Qstring & "'", sConnection, adOpenKeyset,adLockReadOnly
%>
<HTML>
<HEAD>
<TITLE></TITLE>
</head>
<body>
<form METHOD="POST" ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>" id="MyForm"
name="MyForm">
<input type="hidden" name="EMail" value="<%=Session("EMail")%>">
<table border="0" width="100%" id="table1" bgcolor="#000080" style="border-width: 0px">
<tr>
<td style="border-style: none; border-width: medium">
<center>
<strong><font
face="Trebuchet MS" color="#FFFFFF">Edit your job posting!
</font></strong>
</td>
</tr>
</table>
<table width="100%" bgcolor="#c0c0c0" ><font face="Verdana">
<tr>
<td align="center" bgcolor="#F0F0F0"><small><b><small>
<font size="2">Make changes to this record:</font></b></td>
<td align="center" bgcolor="#F0F0F0"><small><b><small>
<font size="2">Post another record:</font></b></td>
<td align="center" bgcolor="#F0F0F0"><small><b><small>
<font size="2">Delete this record</font></b></td>
<td align="center" bgcolor="#F0F0F0"><small><b><small>
<font size="2">Return to account:</font></b></td>
<td align="center" bgcolor="#F0F0F0"><small><b><small>
<font size="2">Cancel any changes made:</font></b></td>
</tr></font>
<tr>
<strong><small><font face="Verdana">
<td align="center" bgcolor="#FFFFFF">
<input TYPE="submit" VALUE="Update Changes!" id="submit1" name="Action" style="font-weight: 700; "></td>
<td align="center" bgcolor="#FFFFFF">
<input TYPE="submit" VALUE="Post Another" id="submit2" name="Action" style="font-weight: 700; "></td>
<td align="center" bgcolor="#FFFFFF">
<input TYPE="submit" VALUE="Delete Item" id="submit4" name="Action" style="font-weight: 700; "></td>
<td align="center" bgcolor="#FFFFFF">
<input TYPE="submit" VALUE="Cancel" id="submit3" name="Action" style="font-weight: 700; "></td>
<td align="center" bgcolor="#FFFFFF">
<input type="reset" value="Clear Form" id="reset1" name="reset1" style="font-weight: 700; "></td>
</font></small></strong></td>
</tr><p>
</table>
</form>
</body></html>
<% rs.close
End If
%>
<%End If%>
<% If "Delete Item" = Request.Form("Action") Then
Dim conn, BBaby
BeanieBaby = Session("BBaby")
Set Conn = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\premfs112\sites\premium112\myusername\database\data.mdb;" & _
"Persist Security Info=False"
Conn.Open (sConnection)
sqlstr= "DELETE * FROM table1 WHERE ItemId='" & BBaby & "';"
Set rs = Conn.Execute(sqlstr)
Response.Redirect "/forum/itemaddsearch.html"
end if
%>
<%end if
%>
<% If "Update Changes!" = Request.Form("Action") And _
Session("Status") = "Contracts" Then
Dim Ustring
Ustring = Session("BBaby")
ContactName = Replace(Request("ContactName"),"'","")
Qualifications = Replace(Request("Qualifications"),"'","")
Position = Replace(Request("Position"),"'","")
Goal = Replace(Request("Goal"),"'","")
Url = Replace(Request("Url"),"'","")
Phone = Replace(Request("phone"),"'","")
fax = Replace(Request("fax"),"'","")
Image = Replace(Request("image"),"'","")
Email = Replace(Session("Email"),"'","")
Status = Replace(Session("Status"),"'","")
Salary = Replace(Request("Salary"),"'","")
Description = Replace(Request("Description"),"'","")
Company = Replace(Request("Company"),"'","")
FP_time = Replace(Request("FP_time"),"'","")
Set Conn = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\premfs112\sites\premium112\myusername\database\data.mdb;" & _
"Persist Security Info=False"
Conn.Open (sConnection)
sqlst2= "UPDATE table1 "
sqlst2= sqlst2 & "SET ContactName ='" & ContactName & "', "
sqlst2= sqlst2 & "Qualifications ='" & Qualifications & "', "
sqlst2= sqlst2 & "Url ='" & Url & "', "
sqlst2= sqlst2 & "phone ='" & phone & "', "
sqlst2= sqlst2 & "fax ='" & fax & "', "
sqlst2= sqlst2 & "Image ='" & Image & "', "
sqlst2= sqlst2 & "Position ='" & Position & "', "
sqlst2= sqlst2 & "Goal ='" & Goal & "', "
sqlst2= sqlst2 & "Email ='" & Email & "', "
sqlst2= sqlst2 & "Salary ='" & Salary & "', "
sqlst2= sqlst2 & "Description ='" & Description & "', "
sqlst2= sqlst2 & "Company ='" & Company & "', "
sqlst2= sqlst2 & "FP_time ='" & FP_time & "', "
sqlst2= sqlst2 & "Status ='" & Status & "' "
sqlst2= sqlst2 & " WHERE ItemId='" & Ustring & "';"
Set rs = Conn.Execute(sqlst2)
Response.Redirect "/forum/itemaddsearch.html"
end if
%>
<% If "Update Changes!" = Request.Form("Action") And _
Session("Status") = "Employer" Then
Dim Istring
Istring = Session("BBaby")
ContactName = Replace(Request("ContactName"),"'","")
Qualifications = Replace(Request("Qualifications"),"'","")
Position = Replace(Request("Position"),"'","")
Goal = Replace(Request("Goal"),"'","")
Url = Replace(Request("Url"),"'","")
Phone = Replace(Request("phone"),"'","")
fax = Replace(Request("fax"),"'","")
Image = Replace(Request("image"),"'","")
Email = Replace(Session("Email"),"'","")
Status = Replace(Session("Status"),"'","")
Salary = Replace(Request("Salary"),"'","")
Description = Replace(Request("Description"),"'","")
Company = Replace(Request("Company"),"'","")
FP_time = Replace(Request("FP_time"),"'","")
Set Conn = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\premfs112\sites\premium112\myusername\database\data.mdb;" & _
"Persist Security Info=False"
Conn.Open (sConnection)
sqlst2= "UPDATE table1 "
sqlst2= sqlst2 & "SET ContactName ='" & ContactName & "', "
sqlst2= sqlst2 & "Qualifications ='" & Qualifications & "', "
sqlst2= sqlst2 & "Url ='" & Url & "', "
sqlst2= sqlst2 & "phone ='" & phone & "', "
sqlst2= sqlst2 & "fax ='" & fax & "', "
sqlst2= sqlst2 & "Image ='" & Image & "', "
sqlst2= sqlst2 & "Position ='" & Position & "', "
sqlst2= sqlst2 & "Goal ='" & Goal & "', "
sqlst2= sqlst2 & "Email ='" & Email & "', "
sqlst2= sqlst2 & "Salary ='" & Salary & "', "
sqlst2= sqlst2 & "Description ='" & Description & "', "
sqlst2= sqlst2 & "Company ='" & Company & "', "
sqlst2= sqlst2 & "FP_time ='" & FP_time & "', "
sqlst2= sqlst2 & "Status ='" & Status & "' "
sqlst2= sqlst2 & " WHERE ItemId='" & Istring & "';"
Set rs = Conn.Execute(sqlst2)
Response.Redirect "/forum/itemaddsearch.html"
end if
%>
|
|
|
|
|
|
|
|
runsh
