colega, menudo caos que tienes en el codigo, lo increible hubiera sido que te funcionara. Te paso los cambios que hice. No digo que te vaya a funcionar por que no lo he probado creandome una base de datos igual a la tuya, y con los campo sy todo eso, pero lo que si espero es que si da error sea distinto. El error te lo daba en esa linea por que no has cerrado el tag de asp anterior. PEro bueno, a parte de eso:
- te faltaba por cerrar mas de un tag de asp
- el while que tenias te iba a cantar un error por que no tienes la condicion de salto, solo poner que se mueva al proximo registro, pero no le dices que salte a la nueva iteracion del while
- tenias un comentario de asp (con la marca ') fuera del codigo asp, en el codigo html)
Código:
<html>
<head>
<title>Untitled Document</title>
<%
set coneccion=Server.CreateObject("ADODB.Connection")
coneccion.Provider="Microsoft.Jet.OLEDB.4.0"
coneccion.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBFile
set tabla = Server.CreateObject("ADODB.recordset")
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="#996600">Usuarios</font></b></td>
<td align="center"><b><font size="2" color="#996600">Contraseña</font></b></td>
<td align="center"><b><font size="2" color="#996600">E-Mail</font></b></td>
<td align="center"><b><font size="2" color="#996600">Comunidad</font></b></td>
<td align="center"><b><font size="2" color="#996600">Provincia</font></b></td>
<td align="center"><b><font size="2" color="#996600">Pais</font></b></td>
<td align="center"><b><font size="2" color="#996600">Alta</font></b></td>
<td align="center"><b><font size="2" color="#996600">Nivel</font></b></td>
<td align="center"><b><font size="2" color="#996600">Baja</font></b></td>
<td align="center"><b><font size="2" color="#996600">Conectado</font></b></td>
</tr>
<%
'recorriendo los registros de tu tabla
if (not tabla.eof) then
do while (not tabla.eof)
%>
<td style="border-top: 2px ridge #0000FF">
<input type=text name=campo1 value="<%=tabla("usuario")%>" size="20">
</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
loop
end if
%>
</table>
</body>
</html>
Avisa si te sigue fallando
ToKaTa.