Error al ingresar a BD con ASP

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
>> el
>> mensaje news:
>> > En que momento haces tu conexion a la base de datos?
>> >
>> > Saludos.
>> >
>> > Microsoft MVP
>> > Orador Regional INETA
>> >
>> >
>> > "JDRapido" wrote:
>> >
>> >> Hola Amigos
>> >> tengo el siguiente, estoy tratando de ingresar a una base de datos
>> >> que
>> >> tengo
>> >> en un servidor en la intranet, a travez de una aplicacion ASP,
>> >> cuando
>> >> me
>> >> trato de logear, ingreso la cuenta de usuario y la password, me
>> >> devulve
>> >> este
>> >> error:
>> >> El Sistema no Tiene Acceso a la Aplicacion.[Microsoft][ODBC SQL
>> >> Server
>> >> Driver][DBNETLIB]No existe el servidor SQL Server o se ha denegado
>> >> el
>> >> acceso
>> >> al mismo.
>> >> tengo la base de dato registrada en el servidor que se llama
>> >> "SERVER1", y
>> >> los servicios estan arriba, pero no se porque no logra ingresar a
>> >> la
>> >> BD.
>> >> tengo este string para redireccionar el servidor, en la pagina...
>> >> CHARFECHA="#"
>> >> USE_DSN=true
>> >> DSN_NAME = ""
>> >> USE_MSSQL=true
>> >> if (USE_MSSQL) then SSQL_HOST="(SERVER1)" MSSQL_DB="DataSohi"
>> >> CHARFECHA="'"
>> >> USE_DSN=true
>> >> end if
>> >> uid="sohi"
>> >> acc="so9009"
>> >> MDB_PATH = Server.MapPath("../db.mdb")
>> >> por su ayuda gracias
>> >> saludos
>> >> Jose D:
>> >>
>> >>
>> >>
>>
>>
>>

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
>> >> el
>> >> mensaje news:
>> >> > En que momento haces tu conexion a la base de datos?
>> >> >
>> >> > Saludos.
>> >> >
>> >> > Microsoft MVP
>> >> > Orador Regional INETA
>> >> >
>> >> >
>> >> > "JDRapido" wrote:
>> >> >
>> >> >> Hola Amigos
>> >> >> tengo el siguiente, estoy tratando de ingresar a una base de datos
>> >> >> que
>> >> >> tengo
>> >> >> en un servidor en la intranet, a travez de una aplicacion ASP,
>> >> >> cuando
>> >> >> me
>> >> >> trato de logear, ingreso la cuenta de usuario y la password, me
>> >> >> devulve
>> >> >> este
>> >> >> error:
>> >> >> El Sistema no Tiene Acceso a la Aplicacion.[Microsoft][ODBC SQL
>> >> >> Server
>> >> >> Driver][DBNETLIB]No existe el servidor SQL Server o se ha denegado
>> >> >> el
>> >> >> acceso
>> >> >> al mismo.
>> >> >> tengo la base de dato registrada en el servidor que se llama
>> >> >> "SERVER1", y
>> >> >> los servicios estan arriba, pero no se porque no logra ingresar a
>> >> >> la
>> >> >> BD.
>> >> >> tengo este string para redireccionar el servidor, en la pagina...
>> >> >> CHARFECHA="#"
>> >> >> USE_DSN=true
>> >> >> DSN_NAME = ""
>> >> >> USE_MSSQL=true
>> >> >> if (USE_MSSQL) then SSQL_HOST="(SERVER1)" MSSQL_DB="DataSohi"
>> >> >> CHARFECHA="'"
>> >> >> USE_DSN=true
>> >> >> end if
>> >> >> uid="sohi"
>> >> >> acc="so9009"
>> >> >> MDB_PATH = Server.MapPath("../db.mdb")
>> >> >> por su ayuda gracias
>> >> >> saludos
>> >> >> Jose D:
>> >> >>
>> >> >>
>> >> >>
>> >>
>> >>
>> >>
>>
>>
>>

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
>> >> el
>> >> mensaje news:
>> >> > En que momento haces tu conexion a la base de datos?
>> >> >
>> >> > Saludos.
>> >> >
>> >> > Microsoft MVP
>> >> > Orador Regional INETA
>> >> >
>> >> >
>> >> > "JDRapido" wrote:
>> >> >
>> >> >> Hola Amigos
>> >> >> tengo el siguiente, estoy tratando de ingresar a una base de
>> >> >> datos
>> >> >> que
>> >> >> tengo
>> >> >> en un servidor en la intranet, a travez de una aplicacion ASP,
>> >> >> cuando
>> >> >> me
>> >> >> trato de logear, ingreso la cuenta de usuario y la password, me
>> >> >> devulve
>> >> >> este
>> >> >> error:
>> >> >> El Sistema no Tiene Acceso a la Aplicacion.[Microsoft][ODBC SQL
>> >> >> Server
>> >> >> Driver][DBNETLIB]No existe el servidor SQL Server o se ha
>> >> >> denegado
>> >> >> el
>> >> >> acceso
>> >> >> al mismo.
>> >> >> tengo la base de dato registrada en el servidor que se llama
>> >> >> "SERVER1", y
>> >> >> los servicios estan arriba, pero no se porque no logra ingresar
>> >> >> a
>> >> >> la
>> >> >> BD.
>> >> >> tengo este string para redireccionar el servidor, en la
>> >> >> pagina...
>> >> >> CHARFECHA="#"
>> >> >> USE_DSN=true
>> >> >> DSN_NAME = ""
>> >> >> USE_MSSQL=true
>> >> >> if (USE_MSSQL) then SSQL_HOST="(SERVER1)" MSSQL_DB="DataSohi"
>> >> >> CHARFECHA="'"
>> >> >> USE_DSN=true
>> >> >> end if
>> >> >> uid="sohi"
>> >> >> acc="so9009"
>> >> >> MDB_PATH = Server.MapPath("../db.mdb")
>> >> >> por su ayuda gracias
>> >> >> saludos
>> >> >> Jose D:
>> >> >>
>> >> >>
>> >> >>
>> >>
>> >>
>> >>
>>
>>
>>

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
>> >> >> el
>> >> >> mensaje news:
>> >> >> > En que momento haces tu conexion a la base de datos?
>> >> >> >
>> >> >> > Saludos.
>> >> >> >
>> >> >> > Microsoft MVP
>> >> >> > Orador Regional INETA
>> >> >> >
>> >> >> >
>> >> >> > "JDRapido" wrote:
>> >> >> >
>> >> >> >> Hola Amigos
>> >> >> >> tengo el siguiente, estoy tratando de ingresar a una base de
>> >> >> >> datos
>> >> >> >> que
>> >> >> >> tengo
>> >> >> >> en un servidor en la intranet, a travez de una aplicacion ASP,
>> >> >> >> cuando
>> >> >> >> me
>> >> >> >> trato de logear, ingreso la cuenta de usuario y la password, me
>> >> >> >> devulve
>> >> >> >> este
>> >> >> >> error:
>> >> >> >> El Sistema no Tiene Acceso a la Aplicacion.[Microsoft][ODBC SQL
>> >> >> >> Server
>> >> >> >> Driver][DBNETLIB]No existe el servidor SQL Server o se ha
>> >> >> >> denegado
>> >> >> >> el
>> >> >> >> acceso
>> >> >> >> al mismo.
>> >> >> >> tengo la base de dato registrada en el servidor que se llama
>> >> >> >> "SERVER1", y

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
>> >> >> el
>> >> >> mensaje
>> >> >> news:
>> >> >> > En que momento haces tu conexion a la base de datos?
>> >> >> >
>> >> >> > Saludos.
>> >> >> >
>> >> >> > Microsoft MVP
>> >> >> > Orador Regional INETA
>> >> >> >
>> >> >> >
>> >> >> > "JDRapido" wrote:
>> >> >> >
>> >> >> >> Hola Amigos
>> >> >> >> tengo el siguiente, estoy tratando de ingresar a una base de
>> >> >> >> datos
>> >> >> >> que
>> >> >> >> tengo
>> >> >> >> en un servidor en la intranet, a travez de una aplicacion
>> >> >> >> ASP,
>> >> >> >> cuando
>> >> >> >> me
>> >> >> >> trato de logear, ingreso la cuenta de usuario y la password,
>> >> >> >> me
>> >> >> >> devulve
>> >> >> >> este
>> >> >> >> error:
>> >> >> >> El Sistema no Tiene Acceso a la Aplicacion.[Microsoft][ODBC
>> >> >> >> SQL
>> >> >> >> Server
>> >> >> >> Driver][DBNETLIB]No existe el servidor SQL Server o se ha
>> >> >> >> denegado
>> >> >> >> el
>> >> >> >> acceso
>> >> >> >> al mismo.
>> >> >> >> tengo la base de dato registrada en el servidor que se llama
>> >> >> >> "SERVER1", y