El código que puse fue el siguiente:
<%
Option Explicit
Response.Expires = -1000
Dim oConn
Dim oRS
Dim sSQL
Dim sColor
Dim sConnection
Set oConn = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("db\acceso.mdb") & ";" & _
"Persist Security Info=False"
oConn.Open(sConnection)
sSQL = "SELECT usuario, pass FROM filtro"
Set oRS = oConn.Execute(sSQL)
Response.Write("<table border=1 cellpadding=1 cellspacing=1 style='font-family:arial; font-size:10pt;'>")
Response.Write("<tr bgcolor=black style='color:white;'><td>usuario</td>")
Response.Write("<td>pass</td>")
sColor = "white"
Do While NOT oRS.EOF
If sColor = "silver" Then
sColor = "white"
Else
sColor = "silver"
End If
Response.Write("<tr bgcolor='" & sColor & "'>")
Response.Write("<td>" & oRS("usuario").Value & "</td>")
Response.Write("<td>" & oRS("pass").Value & "</td>")
oRS.MoveNext
Loop
Response.Write("</table><br><br>")
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
%>
Aunque mi código funcionó bien en PC, cambié utilizando la pantilla que ellos te dan, para ver si de esta forma funciona.
Mi DB se llama "acceso" la tabla se llama "filtro" y los campos que
la componen son "usuario" y "pass".
Puedes probarlo en:
http://www34.brinkster.com/duvic
Mirar a ver si me podies hechar una mano. Estoy empezando con ASP y necesito tener acceso y manipular la DB con urgencia. Tengo un par de encargos y hasta que no domine no puedo meterme.
GRACIAS A LOS DOS...
