Siempre error Syntax error (missing operator) in query expression 'ID=' en edit.asp, line 26
(LÍNEA 26 QUE DA ERROR) RS.Open sql, Conn
Paso código.
Envío los dos valores ID y fname por form.
Código:
<%
Dim ID, fname, Conn, RS
ID = Request.Form("ID")
fname = Request.Form("fname")
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/mdb-database/FileDB.mdb")
sql = "SELECT * FROM files WHERE ID= " & ID & ""
Set RS = Server.CreateObject ("ADODB.RecordSet")
(LÍNEA 26 QUE DA ERROR) RS.Open sql, Conn
'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el dni.
If (RS.EOF = false) then
'Ahora creamos la sentencia SQL
SQL="Update files Set fname= " & fname & " where ID= " & ID
Conn.execute (sql)
Response.Write "<meta http-equiv=refresh content='2;URL=../tries/show.asp'>"
Response.Write "<div align=center><font type=verdana><b>Referencia <b><font color=red>" & ID & "</b></font> ha sido editada correctamente.</b></div>"
Response.Write "<br><br><div align=center><a href=javascript:history.go(-1); title='VOLVER ATRÁS'><b><font face='Flat Brush' color=#008080 style=font-size:10pt><u>Atrás</u></font></b></em></a></span></div>"
Else
Response.Write "<meta http-equiv=refresh content='2;URL=../tries/show.asp'>"
Response.Write "<div align=center><font type=verdana><b>No ha sido editado correctamente.</b></div>"
Response.Write "<div align=center><font type=verdana><b>El ID <b><font color=red>" & ID & "</b></font> no es correcto, o no ha sido registrado previamente.</b></div>"
Response.Write "<br><br><div align=center><a href=javascript:history.go(-1); title='VOLVER ATRÁS'><b><font face='Flat Brush' color=#008080 style=font-size:10pt><u>Atrás</u></font></b></em></a></span></div>"
End If
'Cerramos el sistema de conexion
Conn.Close
%>
No sé como evitar ese dichoso mensaje de error en query expressión ID.