Este es el codigo
<%
response.buffer = false
muestra = request.querystring("id")
%>
<html>
<head>
<title>title</title></head>
<body bgcolor="#cccccc">
<font size="3">Edita empresas</font><br>
<%
Dim conexion, RS, basedatos
basedatos = Server.MapPath("miboda.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
RS.CursorType=1
RS.LockType=2
SQL=("SELECT * FROM empresas WHERE id='"&muestra&"'")
RS.Open SQL, conexion
Do while Not RS.EOF
giro = RS.Fields("giro")
response.write giro
RS.MoveNext
Loop
RS.Close
%>
</body></html>
Y me marca este error:
Microsoft JET Database Engine error '80040e07'
No coinciden los tipos de datos en la expresión de criterios.
/usuarios/guiaguanatos/boda/editaemp.asp, line 49
HELP MEEE
JAM <font size="1">desde la tierra del tequila, el mariachi y mujeres guapas[/CODE]
<a href="mailto:
[email protected]">
[email protected]</a>