conexión Brinkster

[Elig]

Necesito alguien que tega alogada una DB en Brinkster... Es urgente. NO consigo que funcione mi enlace.



Ayudo en otros foros, pero de ASP ando pegado... HELPPPP.

[urjose]

Q error tienes?
Ya revisaste el Knowledge Base de la misma página de Brinkster?

[aonez]

éste es el código para conectarte a la base de datos, pero no sé si es lo que pides


Dim MyConn, sConnString
Set myConn = Server.CreateObject("ADODB.Connection")
sConnString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("\tu nombre de usuario \db\el nombre de tu base de datos ") & ";"
myConn.Open(sConnString)

[Elig]

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...

[Elig]

Tambien puse la clave de usuario


Server.MapPath("\miclavebrinkster\db\acceso.mdb..

Ya que a la base de datos no le puse clave de acceso cuando la creé

[aonez]

en la conexión a la base te falta el nombre de usuario
__________________________________________________ _

Set oConn = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("duvic \db\acceso.mdb") & ";" & _
"Persist Security Info=False"
oConn.Open(sConnection
__________________________________________________ _

pero no sé si será eso......

[Elig]

Vale!!! yo estaba poniendo la clave de acceso... Y NO EL NOMBRE DE USUARIO. Lo pruebo y te digo

GRacias.

[Elig]

Set oConn = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("\duvic\db\acceso.mdb") & ";" & _
"Persist Security Info=False"
oConn.Open(sConnection)

Y TAMPOCO FUNCIONÓ.

NO me abandones echale una mirada. Ya no se por donde darle.

[aonez]

no es que sepa mucho pero intentaré ayudarte....

oRS("usuario").Value

Response.Write("<td>" & oRS("pass").Value


ese .Value no lo entiendo... las variables pass y usuario son texto, no? yo lo pondría sin el .Value

prueba......

[Elig]

Voy a probar...

[Elig]

Sigue sin ni siquiera cargar la página... Da error 500. Sirve de algo este dato?

[aonez]

he canviado algunas cosas... yo creo que está todo correcto aquí. Pruébalo, y si no funciona comprueba que la base de datos tiene esa tabla y esos registros, porque no sé que más puede fallar...


<%Dim oConn, oRS, sSQL, sColor, sConnection

Set oConn = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("duvic\db\acceso.mdb") & ";" & _
"Persist Security Info=False"
oConn.Open(sConnection)


set oRS = oConn.Execute("select usuario, pass from filtro")

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"

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") & "</td>")
Response.Write("<td>" & oRS("pass") & "</td>")
oRS.MoveNext

oRS.movenext
wend

Response.Write("</table><br><br>")

oConn.Close
%>

[aonez]

como última prueba, pon:

sConnection = "DRIVER={Microsoft Access Driver (*.mdb)};" & _

donde tu tienes:

sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

ya más no puedo hacer.

[Elig]

Gracias.

Esto último ya lo hice. Voy a probar el código que me has enviado.

Gracias y a ver si salgo de este lio.

[Elig]

NO FUNCIONA. O la base de datos que yo he creado está, tengo muy mala suerte, hay espíritus... No lo se.

Te parece bien si te doy el user y password de brinkster y la das una mirada.

Es que hasta en mi PC funciona sin problmas. No se por donde darle. Puse inclusive el enlace con el ejemplo que ellos ponen y sigue con lo mismo. ME VOY A VOLVER LOCO. He atascado en lo que creía más sencillo. Y el caso es que me hace falta, si no... hacer puñe...

Anda mira a ver si puedes ver algo. El código, después de tanta prueba, estou seguro de que está bien...

Bueno el fichero verify.asp = al código que me has pasado ni + ni -

Gracias por tu paciencia.

Era feliz con el COBOL
Encantado con la ayuda

[aonez]

como tu quieras! pásame los datos en un mensaje privado y haré lo que pueda.

[Elig]

Gracias. Ahora te lo paso.

[aonez]

¡¡¡ YA ESTÁ !!!

los problemas:

en la base de datos el campo "pass" lo tenías como "paso"

el código de conexión estava mal, mírate el que he puesto yo, ok?

venga, a seguir con tu sitio!

[Elig]

Un abrazo ASÍ de grande. Lo que te haga falta. Después de muchos años de pelear con las computer uno ya sabe que el error siempre está en una chorrada de un punto, una variable mal puesta, etc...

Pero esta vez, ya empezaba a acobardarme, entre otras cosas, por ser la primera vez que trasteo ASP, no sabía verdaderamente donde podía estar el error..

OYE UN AMIGO