Microsoft JET Database Engine error '80040e10'
No se han especificado valores para algunos de los parámetros requeridos
/pruebas/clicks.asp, line 14
Código:
BD<% Response.Buffer=TRUE id = Request.Querystring("id") if id <>"" then Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("pcmstore.mdb")&";" strsql = "SELECT * FROM pcm_productos WHERE id = '" & id_prod & "'" Set rs = Server.CreateObject("ADODB.RecordSet") RS.open strsql, oConn, 3, 3 if rs.eof then rs.AddNew rs("clicks")= 1 rs("id_prod") = id_prod rs.update else rs("clicks")=rs("clicks")+1 rs.update end if rs.Close set rs=nothing oConn.Close response.redirect url end if %>
id_prod (Autonumerico)
producto (texto)
descripcion (texto)
url (texto)
clicks (numerico)
votos (numerico)
total_votos (numerico)