Bueno... Otra pregunta:
Alguien me puede ayudar a depurar el siguiente código? es que no doy con el problema, llevo un día de locos:
El error que me da es el siguiente:
Error en Base de Datos: [Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.
Y el código es el siguiente:
<%
Dim titulo_grabar, test1, test2, test3, test4, test5, firma
titulo_grabar = Request.Form("titulo")
test1 = Request.Form("texto1")
test2 = Request.Form("texto2")
test3 = Request.Form("texto3")
test4 = Request.Form("texto4")
test5 = Request.Form("texto5")
firma = Request.Form("firma")
Dim Valores
Valores = "'" & Request.Form("titulo") & "','" & Request.Form("texto1") & "','" & Request.Form("texto2") & "','" & Request.Form("texto3") & "','" & Request.Form("texto4") & "','" & Request.Form("texto5") & "'"
%>
<%
On Error Resume Next
Set Conexion = CreateObject("ADODB.Connection")
Conexion.Open "pp"
strSQL ="SELECT db_numero FROM noticias ORDER BY 1 DESC"
Set miConexion = Conexion.Execute(strSQL)
Dim Id
If Not miConexion.EOF Then
Id = miConexion("db_numero")
Id = Id + 1
Else
Id = 1
End If
Valores_1 = "'" & Id & "'," & Valores
strSQL = "INSERT INTO noticias VALUES(Valores_1)"
Set miConexion = Conexion.Execute(strSQL)
If Err.Description <> "" then
Response.Write "<B>Error en Base de Datos: " & Err.Description & "</B>"
Else
Response.Write("<P><FONT FACE=Verdana SIZE=2 COLOR=#FFFFDD><B>Se han actualizado los datos</B></FONT></P>")
End If
miConexion.Close
Conexion.Close
Set miConexion = Nothing
Set Conexion = Nothing
%>
El resultado del Id es correcto ( en este caso 4 pues tengo grabados 3 registros) y los Request.form he comprobado los valores y están bien. E problema, evidentemente está en:
Gracias por vuestra ayuda.
