Tengo el siguiente codigo pero no detecto cual es el problema.
Mi intención es ver todos los campos de una base de datos en access y al picar sobre un registro que me permita modificar la información, tenfo este codigo pero me esta dando error ( Error de compilación de Microsoft VBScript error '800a0400'
Se esperaba una instrucción
/libro_cambios.asp, line 34
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo1 value="<%=tabla("usuario")
^) , alguien me puede ayuda¨?
' creando enlace o coneccion a base de datos
set coneccion=Server.CreateObject("ADODB.Connection")
coneccion.Provider="Microsoft.Jet.OLEDB.4.0"
' abriendo la base de datos
coneccion.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBFile
' creando el recordset
set tabla=Server.CreateObject("ADODB.recordset")
' cargando el recordset con la tabla en disco
sql ="Select * from usuarios"
set tabla = coneccion.execute(sql)
%>
<meta name="Microsoft Theme" content="transgalicia 111">
<body><table style="border-collapse: collapse; border: 4px ridge #0000FF" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><b><font size="2" color="#FFFF00">Usuarios</font></b></td>
<td align="center"><b><font size="2" color="#FFFF00">Contraseña</font></b></td>
<td align="center"><b><font size="2" color="#FFFF00">E-Mail</font></b></td>
<td align="center"><b><font size="2" color="#FFFF00">Comunidad</font></b></td>
<td align="center"><b><font size="2" color="#FFFF00">Provincia</font></b></td>
<td align="center"><b><font size="2" color="#FFFF00">Pais</font></b></td>
<td align="center"><b><font size="2" color="#FFFF00">Alta</font></b></td>
<td align="center"><b><font size="2" color="#FFFF00">Nivel</font></b></td>
<td align="center"><b><font size="2" color="#FFFF00">Baja</font></b></td>
<td align="center"><b><font size="2" color="#FFFF00">Conectado</font></b></td>
</tr>
'recorriendo los registros de tu tabla
<%
if not tabla.eof then
while not tabla.eof
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo1 value="<%=tabla("usuario")%>" size="20"><td></td>
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo2 value="<%=tabla("clave")%>" size="20"></td>
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo3 value="<%=tabla("email")%>" size="20"></td>
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo4 value="<%=tabla("comunidad")%>" size="20"></td>
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo5 value="<%=tabla("provincia")%>" size="20"></td>
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo6 value="<%=tabla("pais")%>" size="20"></td>
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo7 value="<%=tabla("datealta")%>" size="20"></td>
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo8 value="<%=tabla("nivel")%>" size="20"></td>
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo9 value="<%=tabla("baja")%>" size="20"></td>
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo10 value="<%=tabla("online")%>" size="20"></td>
tabla.movenext
end if
%>
</table></body>
O si tienen una solución mejor, adelante, espero vuestra ayuda