Error al ingresar a BD con ASP

mmm, no!, probé de otro equipo y no puede, el mensaje es el mismo.

:-(
Saludos
Gracias
Jose D.
"Matias Iacono" escribió en el
mensaje news:
> La base de datos esta correctamente attachada en el servidor en cuestion?
>
> Puedes acceder desde algun otro lugar a la base de datos que se encuentra
> en
> el servidor final?
>
> Saludos.
>
> Microsoft MVP
> Orador Regional INETA
>
>
> "JDRapido" wrote:
>
>> Pero lo extraño es que en modo local en mi equipo, funciona
>> perfectamente,
>> cuando lo trato de correr en un servidor distinto es que no me permite el
>> acceso a la BD.
>>
>> Yo instale el SQL Server 2000, de cero en un servidor de mi intranet, y
>> la
>> base de de datos la copie desde mi equipo al directorio de data, del
>> servidor recien instalado en este caso "Server1", este servidor corre con
>> SO
>> Winserver 2000...
>>
>> pero no sé que mas podrá ser...
>> y la razon por la que repito dos veces usuario y password, es por el
>> acceso,
>> usando ODBC, o DNS, si a eso es lo que terefieres...
>>
>> Gracias, por la ayuda, y si algo mas puedes aportar te lo agradezco...
>> Saludos
>> Jose D.:
>>
>>
>> "Matias Iacono" escribió en el
>> mensaje news:
>> > El problema aparenta estar en esta linea:
>> >
>> > ### usando ODBC direct
>> > DB.ConnectionString = "Trusted Connection=true;driver={SQL
>> > Server};server="
>> > & MSSQL_HOST & ";uid=" & uid & ";pwd=" & acc & ";User Id=" & uid &
>> > ";Password=" & acc & ";database=" & MSSQL_DB
>> >
>> > No necesariamente porque este incorrecta, si no, que el error del
>> > principio
>> > es claro.
>> >
>> > No puede encontrarse el servidor SQL en cuestion. Para esto tienes dos
>> > opciones. El valor de MSSQL_HOST no es el correcto. O, siguiendo con el
>> > error, el UID y el ACC no son adecuados.
>> >
>> > Ya que no tienes permisos para acceder. Lo que no me queda claro es
>> > porque
>> > en la cadena de coneccion, tienes dos veces el Password y dos veces el
>> > Nombre
>> > de Usuario.
>> >
>> > En todo caso, te recomiendo veas este sitio:
>> >
>> > http://www.connectionstrings.com/
>> >
>> > Aqui encontraras el formato ideal para la conexion a cualquier base de
>> > datos.
>> >
>> > Saludos.
>> >
>> > Microsoft MVP
>> > Orador Regional INETA
>> >
>> >
>> > "JDRapido" wrote:
>> >
>> >> upss...ok
>> >> aquí te lo pego...
>> >>
>> >> <!-- #include file ="../libreria/database_config.asp" -->
>> >> <%
>> >> DbOpened=false
>> >> Dim DB
>> >> Dim LastDbError
>> >>
>> >>
>> >>
>> >> 'ABRIR LA BASE DE DATOS
>> >> sub DbOpen()
>> >> on Error resume next
>> >>
>> >> if (DbOpened) then exit sub
>> >> set DB = Server.CreateObject("ADODB.Connection")
>> >>
>> >>
>> >> if (not USE_DSN) then
>> >> DB.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MDB_PATH
>> >> else
>> >> if (USE_MSSQL) then
>> >> DB.ConnectionTimeout = 30
>> >> '### usando ODBC direct
>> >> DB.ConnectionString = "Trusted Connection=true;driver={SQL
>> >> Server};server="
>> >> & MSSQL_HOST & ";uid=" & uid & ";pwd=" & acc & ";User Id=" & uid &
>> >> ";Password=" & acc & ";database=" & MSSQL_DB
>> >> else
>> >> '### usando DSN
>> >> DB.ConnectionString = "DSN=" & DSN_NAME & ";UID=" & uid & ";PWD="&
>> >> acc
>> >> end if
>> >>
>> >> DB.open
>> >> end if
>> >> if err.number<>0 then showerror("El Sistema no Tiene Acceso a la
>> >> Aplicacion." & err.description)
>> >> escribeLog("Se Abrio la Base")
>> >> DbOpened = true
>> >>
>> >> end sub
>> >>
>> >>
>> >> 'EJECUTAR UNA CONSULTA PARA CONOCER REGISTROS AFECTADOS
>> >> function DbExec(SQL)
>> >> if not DbOpened then DbOpen
>> >>
>> >> if (USE_MSSQL) then SQL=replace(SQL,"Date()","getdate()")
>> >>
>> >> on error resume next
>> >> escribeLog("se va a ejectutar : " & SQL )
>> >> rowAffect=0
>> >> DB.execute SQL, rowAffect
>> >> DbExec=rowAffect
>> >> if err.number <> 0 then
>> >> DbExec=-1
>> >> LastDbError=err.description
>> >> end if
>> >>
>> >> end Function
>> >>
>> >>
>> >>
>> >> 'EJECUTAR CONSULTA PARA OBTEGER UN RecordSet
>> >> function DbRecordset(SQL)
>> >>
>> >> if (USE_MSSQL) then SQL=replace(SQL,"Date()","getdate()")
>> >>
>> >> DbOpen
>> >> on error resume next
>> >> escribeLog("Obtener registro : " & SQL )
>> >> set DbRecordset = DB.execute (SQL)
>> >> if err.number <> 0 then ShowError(err.description & ": " & SQL )
>> >> end function
>> >>
>> >> 'EXISTE UN REGISTRO
>> >> function DbExists(SQL)
>> >> if (USE_MSSQL) then SQL=replace(SQL,"Date()","getdate()")
>> >> DbOpen
>> >> Dim rs
>> >> Set rs=DbRecordset(SQL)
>> >> DbExists=not Rs.EOF
>> >> end function
>> >>
>> >>
>> >> 'EJECUTAR CONSULTA PARA OBTEGER UN VALOR
>> >> function DbValue(SQL,predet)
>> >> if (USE_MSSQL) then SQL=replace(SQL,"Date()","getdate()")
>> >> DbOpen
>> >> escribeLog("Obtener valor : " & SQL )
>> >> on error resume next
>> >> set rsx = DB.execute (SQL)
>> >> if err.number <> 0 then ShowError(err.description & ":" & SQL):
>> >> DbValue=null
>> >> DbValue=""
>> >> if rsx.EOF then
>> >> DbValue=predet
>> >> exit function
>> >> end if
>> >>
>> >> if IsNull(rsx.fields(0).value) then
>> >> DbValue=predet
>> >> else
>> >> DbValue=rsx.fields(0).value
>> >> end if
>> >>
>> >> for x=1 to rsx.fields.count-1
>> >> Dbvalue = DbValue & " " & rsx.fields(x).value
>> >> next
>> >>
>> >> if err.number <> 0 then ShowError(err.description): DbValue=null
>> >> end function
>> >>
>> >>
>> >> function closeDb()
>> >> if (dbOpened) then
>> >> DB.Close
>> >> escribeLog("Se Cerró la Base")
>> >> DbOpened = false
>> >> end if
>> >> end function
>> >>
>> >>
>> >> sub DbBegin()
>> >> DbOpen
>> >> errState = false
>> >> DB.BeginTrans
>> >> onTrans = true
>> >> escribeLog("Sse Incio la Transacción.")
>> >> end sub
>> >>
>> >> sub DbCommit()
>> >> if DbOpened and onTrans then
>> >> DB.CommitTrans
>> >> escribeLog("Se Comprometió la Transacción")
>> >> onTrans = false
>> >> errState = false
>> >> end if
>> >> end sub
>> >>
>> >> sub DbAbort()
>> >> if false and DbOpened and onTrans then
>> >> DB.Rollback
>> >> escribeLog("Se Anuló la Transacción")
>> >> onTrans = false
>> >> errState = false
>> >> end if
>> >> end sub
>> >>
>> >> sub escribeLog(strLog)
>> >> 'Dim fs, f
>> >> 'Set fs = CreateObject("Scripting.FileSystemObject")
>> >> 'Set f > >> >> fs.OpenTextFile("c:\inetpub\wwwroot\15abr\logDbVirtualCollege.txt", 8,
>> >> true)
>> >> 'f.Write( now & "|" & strLog & vbCr)
>> >> 'f.Close
>> >> 'DB.execute "insert into t values ('" & strLog & "')", rowAffect
>> >> end sub
>> >>
>> >> %>
>> >>
>> >>
>> >> "Matias Iacono" escribió en
>> >> el
>> >> mensaje news:
>> >> > Desde el web no se pueden ver archivos adjuntos :(
>> >> >
>> >> > Si pudieras pegar el codigo seria ideal.
>> >> >
>> >> > Saludos.
>> >> >
>> >> > Microsoft MVP
>> >> > Orador Regional INETA
>> >> >
>> >> >
>> >> > "JDRapido" wrote:
>> >> >
>> >> >> perdon aca...en el adjunto es donde voy abrir la base de datos...
>> >> >>
>> >> >>
>> >> >> "Matias Iacono" escribió
>> >> >> en
>> >> >> el
>> >> >> mensaje news:
>> >> >> > Me referia al codigo.
>> >> >> >
>> >> >> > En el codigo posteado no veo donde tratas de abrir la conexion.
>> >> >> >
>> >> >> > Saludos.
>> >> >> >
>> >> >> > Microsoft MVP
>> >> >> > Orador Regional INETA
>> >> >> >
>> >> >> >
>> >> >> > "JDRapido" wrote:
>> >> >> >
>> >> >> >> Cuando abro la pagina ASP, tengo una pagina inicio que me
>> >> >> >> pregunta
>> >> >> >> la
>> >> >> >> cuenta
>> >> >> >> del usuario y la clave, en ese momento va a consultar a la base
>> >> >> >> de
>> >> >> >> datos
>> >> >> >> si
>> >> >> >> existe dicha cuenta y clave...
>> >> >> >> saludos
>> >> >> >> Jose D.
>> >> >> >> "Matias Iacono"
>> >> >> >> escribió
>> >> >> >> en

En ese caso, la base de datos puede que no este correctamente adicionada
al
servidor sql server.

Saludos.

Microsoft MVP
Orador Regional INETA


"JDRapido" wrote:

mmm, no!, probé de otro equipo y no puede, el mensaje es el mismo.

:-(
Saludos
Gracias
Jose D.
"Matias Iacono" escribió en el
mensaje news:
> La base de datos esta correctamente attachada en el servidor en
> cuestion?
>
> Puedes acceder desde algun otro lugar a la base de datos que se
> encuentra
> en
> el servidor final?
>
> Saludos.
>
> Microsoft MVP
> Orador Regional INETA
>
>
> "JDRapido" wrote:
>
>> Pero lo extraño es que en modo local en mi equipo, funciona
>> perfectamente,
>> cuando lo trato de correr en un servidor distinto es que no me permite
>> el
>> acceso a la BD.
>>
>> Yo instale el SQL Server 2000, de cero en un servidor de mi intranet,
>> y
>> la
>> base de de datos la copie desde mi equipo al directorio de data, del
>> servidor recien instalado en este caso "Server1", este servidor corre
>> con
>> SO
>> Winserver 2000...
>>
>> pero no sé que mas podrá ser...
>> y la razon por la que repito dos veces usuario y password, es por el
>> acceso,
>> usando ODBC, o DNS, si a eso es lo que terefieres...
>>
>> Gracias, por la ayuda, y si algo mas puedes aportar te lo agradezco...
>> Saludos
>> Jose D.:
>>
>>
>> "Matias Iacono" escribió en
>> el
>> mensaje news:
>> > El problema aparenta estar en esta linea:
>> >
>> > ### usando ODBC direct
>> > DB.ConnectionString = "Trusted Connection=true;driver={SQL
>> > Server};server="
>> > & MSSQL_HOST & ";uid=" & uid & ";pwd=" & acc & ";User Id=" & uid &
>> > ";Password=" & acc & ";database=" & MSSQL_DB
>> >
>> > No necesariamente porque este incorrecta, si no, que el error del
>> > principio
>> > es claro.
>> >
>> > No puede encontrarse el servidor SQL en cuestion. Para esto tienes
>> > dos
>> > opciones. El valor de MSSQL_HOST no es el correcto. O, siguiendo con
>> > el
>> > error, el UID y el ACC no son adecuados.
>> >
>> > Ya que no tienes permisos para acceder. Lo que no me queda claro es
>> > porque
>> > en la cadena de coneccion, tienes dos veces el Password y dos veces
>> > el
>> > Nombre
>> > de Usuario.
>> >
>> > En todo caso, te recomiendo veas este sitio:
>> >
>> > http://www.connectionstrings.com/
>> >
>> > Aqui encontraras el formato ideal para la conexion a cualquier base
>> > de
>> > datos.
>> >
>> > Saludos.
>> >
>> > Microsoft MVP
>> > Orador Regional INETA
>> >
>> >
>> > "JDRapido" wrote:
>> >
>> >> upss...ok
>> >> aquí te lo pego...
>> >>
>> >> <!-- #include file ="../libreria/database_config.asp" -->
>> >> <%
>> >> DbOpened=false
>> >> Dim DB
>> >> Dim LastDbError
>> >>
>> >>
>> >>
>> >> 'ABRIR LA BASE DE DATOS
>> >> sub DbOpen()
>> >> on Error resume next
>> >>
>> >> if (DbOpened) then exit sub
>> >> set DB = Server.CreateObject("ADODB.Connection")
>> >>
>> >>
>> >> if (not USE_DSN) then
>> >> DB.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MDB_PATH
>> >> else
>> >> if (USE_MSSQL) then
>> >> DB.ConnectionTimeout = 30
>> >> '### usando ODBC direct
>> >> DB.ConnectionString = "Trusted Connection=true;driver={SQL
>> >> Server};server="
>> >> & MSSQL_HOST & ";uid=" & uid & ";pwd=" & acc & ";User Id=" & uid &
>> >> ";Password=" & acc & ";database=" & MSSQL_DB
>> >> else
>> >> '### usando DSN
>> >> DB.ConnectionString = "DSN=" & DSN_NAME & ";UID=" & uid & ";PWD="&
>> >> acc
>> >> end if
>> >>
>> >> DB.open
>> >> end if
>> >> if err.number<>0 then showerror("El Sistema no Tiene Acceso a la
>> >> Aplicacion." & err.description)
>> >> escribeLog("Se Abrio la Base")
>> >> DbOpened = true
>> >>
>> >> end sub
>> >>
>> >>
>> >> 'EJECUTAR UNA CONSULTA PARA CONOCER REGISTROS AFECTADOS
>> >> function DbExec(SQL)
>> >> if not DbOpened then DbOpen
>> >>
>> >> if (USE_MSSQL) then SQL=replace(SQL,"Date()","getdate()")
>> >>
>> >> on error resume next
>> >> escribeLog("se va a ejectutar : " & SQL )
>> >> rowAffect=0
>> >> DB.execute SQL, rowAffect
>> >> DbExec=rowAffect
>> >> if err.number <> 0 then
>> >> DbExec=-1
>> >> LastDbError=err.description
>> >> end if
>> >>
>> >> end Function
>> >>
>> >>
>> >>
>> >> 'EJECUTAR CONSULTA PARA OBTEGER UN RecordSet
>> >> function DbRecordset(SQL)
>> >>
>> >> if (USE_MSSQL) then SQL=replace(SQL,"Date()","getdate()")
>> >>
>> >> DbOpen
>> >> on error resume next
>> >> escribeLog("Obtener registro : " & SQL )
>> >> set DbRecordset = DB.execute (SQL)
>> >> if err.number <> 0 then ShowError(err.description & ": " & SQL )
>> >> end function
>> >>
>> >> 'EXISTE UN REGISTRO
>> >> function DbExists(SQL)
>> >> if (USE_MSSQL) then SQL=replace(SQL,"Date()","getdate()")
>> >> DbOpen
>> >> Dim rs
>> >> Set rs=DbRecordset(SQL)
>> >> DbExists=not Rs.EOF
>> >> end function
>> >>
>> >>
>> >> 'EJECUTAR CONSULTA PARA OBTEGER UN VALOR
>> >> function DbValue(SQL,predet)
>> >> if (USE_MSSQL) then SQL=replace(SQL,"Date()","getdate()")
>> >> DbOpen
>> >> escribeLog("Obtener valor : " & SQL )
>> >> on error resume next
>> >> set rsx = DB.execute (SQL)
>> >> if err.number <> 0 then ShowError(err.description & ":" & SQL):
>> >> DbValue=null
>> >> DbValue=""
>> >> if rsx.EOF then
>> >> DbValue=predet
>> >> exit function
>> >> end if
>> >>
>> >> if IsNull(rsx.fields(0).value) then
>> >> DbValue=predet
>> >> else
>> >> DbValue=rsx.fields(0).value
>> >> end if
>> >>
>> >> for x=1 to rsx.fields.count-1
>> >> Dbvalue = DbValue & " " & rsx.fields(x).value
>> >> next
>> >>
>> >> if err.number <> 0 then ShowError(err.description): DbValue=null
>> >> end function
>> >>
>> >>
>> >> function closeDb()
>> >> if (dbOpened) then
>> >> DB.Close
>> >> escribeLog("Se Cerró la Base")
>> >> DbOpened = false
>> >> end if
>> >> end function
>> >>
>> >>
>> >> sub DbBegin()
>> >> DbOpen
>> >> errState = false
>> >> DB.BeginTrans
>> >> onTrans = true
>> >> escribeLog("Sse Incio la Transacción.")
>> >> end sub
>> >>
>> >> sub DbCommit()
>> >> if DbOpened and onTrans then
>> >> DB.CommitTrans
>> >> escribeLog("Se Comprometió la Transacción")
>> >> onTrans = false
>> >> errState = false
>> >> end if
>> >> end sub
>> >>
>> >> sub DbAbort()
>> >> if false and DbOpened and onTrans then
>> >> DB.Rollback
>> >> escribeLog("Se Anuló la Transacción")
>> >> onTrans = false
>> >> errState = false
>> >> end if
>> >> end sub
>> >>
>> >> sub escribeLog(strLog)
>> >> 'Dim fs, f
>> >> 'Set fs = CreateObject("Scripting.FileSystemObject")
>> >> 'Set f >> >> >> fs.OpenTextFile("c:\inetpub\wwwroot\15abr\logDbVirtualCollege.txt",
>> >> 8,
>> >> true)
>> >> 'f.Write( now & "|" & strLog & vbCr)
>> >> 'f.Close
>> >> 'DB.execute "insert into t values ('" & strLog & "')", rowAffect
>> >> end sub
>> >>
>> >> %>
>> >>
>> >>
>> >> "Matias Iacono" escribió
>> >> en
>> >> el
>> >> mensaje news:
>> >> > Desde el web no se pueden ver archivos adjuntos :(
>> >> >
>> >> > Si pudieras pegar el codigo seria ideal.
>> >> >
>> >> > Saludos.
>> >> >
>> >> > Microsoft MVP
>> >> > Orador Regional INETA
>> >> >
>> >> >
>> >> > "JDRapido" wrote:
>> >> >
>> >> >> perdon aca...en el adjunto es donde voy abrir la base de
>> >> >> datos...
>> >> >>
>> >> >>
>> >> >> "Matias Iacono"
>> >> >> escribió
>> >> >> en
>> >> >> el
>> >> >> mensaje
>> >> >> news:
>> >> >> > Me referia al codigo.
>> >> >> >
>> >> >> > En el codigo posteado no veo donde tratas de abrir la
>> >> >> > conexion.
>> >> >> >
>> >> >> > Saludos.
>> >> >> >
>> >> >> > Microsoft MVP
>> >> >> > Orador Regional INETA
>> >> >> >
>> >> >> >
>> >> >> > "JDRapido" wrote:
>> >> >> >
>> >> >> >> Cuando abro la pagina ASP, tengo una pagina inicio que me
>> >> >> >> pregunta
>> >> >> >> la
>> >> >> >> cuenta
>> >> >> >> del usuario y la clave, en ese momento va a consultar a la
>> >> >> >> base
>> >> >> >> de
>> >> >> >> datos
>> >> >> >> si
>> >> >> >> existe dicha cuenta y clave...
>> >> >> >> saludos
>> >> >> >> Jose D.
>> >> >> >> "Matias Iacono"
>> >> >> >> escribió
>> >> >> >> en