hola denuevo sabes estaba revisando mi pagina y me a salido el siguiente error:
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][Controlador ODBC Microsoft Access] No coinciden los tipos de datos en la expresión de criterios.
/pagina2/buscar/cpu/eliminarcpu.asp, línea 19
pero no se aque se puede dever bueno si alguien me puede ayudar mi codigo es
<HTML>
<HEAD>
<TITLE>eliminar registro</TITLE>
</HEAD>
<body>
<h2><center>Borrar de Base de Datos</center></h2>
<%
'Declarando...
objeto=Request("Registro")
Dim oConn, rs, SQL, iCuantos, iRegistro
'Conectando...
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\PAGINA2\cobranza.m db"
'Consultando...
SQL= "Select * from I_cpu where serie =" & objeto &""
'response.Write(sql)
rs.Open SQL, oConn es aqui donde marca el problema
if RS.eof then
response.write "el registro no existe"
else
eliminar = "Delete from I_cpu where serie =" & objeto &""
rs.Open eliminar, oConn
response.redirect "orden.asp"
end if
'Me voy al principio y pinto la tabla
rs.MoveFirst
PintarTabla
Response.Write("<p><li>El registro " & objeto & " ha sido borrado.</li>")
rs.Close
set rs = nothing
oConn.Close
set oConn = nothing
'================================================= =======
Sub PintarTabla ()
Response.Write( "<TABLE BORDER=""1"">" & vbCrlf)
Response.Write( "<TR>" & vbCrlf)
Response.Write( "<TD><B>Id</B></TD>" & vbCrlf )
Response.Write( "<TD><B>Nombre</B></TD>" & vbCrlf )
Response.Write( "<TD><B>Fecha</B></TD>" & vbCrlf )
Response.Write( "<TD><B>Dirección IP</B></TD>" & vbCrlf )
while not rs.EOF
Response.Write( "<TR>" & vbCrlf )
Response.Write( "<TD>" & rs.Fields("Id") & "</TD>" )
Response.Write( "<TD>" & rs.Fields("Nombre") & "</TD>" )
Response.Write( "<TD>" & rs.Fields("Fecha") & "</TD>" )
Response.Write( "<TD>" & rs.Fields("IP") & "</TD>" )
Response.Write( "</TR>" & vbCrlf )
rs.MoveNext
wend
Response.Write("</TABLE>")
End Sub 'PintarTabla
'================================================= =======
%>
</body>
</HTML>
