nhurst1369
MIS
This works to update the database as long as there are no ' (Apostrophes) in the fields. Can anybody recomend a solution to this problem?
<%
Dim ID, status, results, tester, notes, timestamp, arr_ids
ID= Request.Form("ID"
Dim Conn, Rs, sql, sql_update
Set Conn = Server.CreateObject("ADODB.Connection"
Set Rs = Server.CreateObject("ADODB.Recordset"
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sr6.mdb"
sql= "Update tbldts Set status='"&Request.Form("status"&"', results='"&Request.Form("results"&"', tester='"&Request.Form("tester"&"', notes='"&Request.Form("notes"&"' WHERE index="&ID
Rs.Open sql, Conn
Conn.Close
Set Rs=Nothing
Set Conn = Nothing
Response.Write "Successfully Updated"
%>
<%
Dim ID, status, results, tester, notes, timestamp, arr_ids
ID= Request.Form("ID"
Dim Conn, Rs, sql, sql_update
Set Conn = Server.CreateObject("ADODB.Connection"
Set Rs = Server.CreateObject("ADODB.Recordset"
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sr6.mdb"
sql= "Update tbldts Set status='"&Request.Form("status"&"', results='"&Request.Form("results"&"', tester='"&Request.Form("tester"&"', notes='"&Request.Form("notes"&"' WHERE index="&ID
Rs.Open sql, Conn
Conn.Close
Set Rs=Nothing
Set Conn = Nothing
Response.Write "Successfully Updated"
%>