Foros del Web » Programando para Internet » ASP Clásico »

problema con el localhost y asp

Estas en el tema de problema con el localhost y asp en el foro de ASP Clásico en Foros del Web. hola de antemano muchas gracias, tengo este error en mi computadora al tratar de correr mi aplicacion web localmente http://localhost/sit/index.asp, le escribo usuario y contraseña ...
  #1 (permalink)  
Antiguo 07/07/2008, 02:07
 
Fecha de Ingreso: febrero-2008
Mensajes: 4
Antigüedad: 16 años, 4 meses
Puntos: 0
problema con el localhost y asp

hola de antemano muchas gracias, tengo este error en mi computadora al tratar de correr mi aplicacion web localmente http://localhost/sit/index.asp, le escribo usuario y contraseña y me sale un error cuando me redirecciona a http://localhost/sit/login.asp

HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server
--------------------------------------------------------------------------------
Información técnica (para personal de soporte técnico)

Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC SQL Server Driver][TCP/IP Sockets]No existe el servidor SQL Server o se ha denegado el acceso al mismo.
/sit/login.asp, línea 24


Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727)

Página:
POST 51 bytes to /sit/login.asp

Datos de POST:
login=mh&password=cfe&Save=on&Entrar.x=0&Entrar.y= 0

ya no se que mas hacer, mi localhost corre normalmente ya que puedo visualizar la pagina de mi sitio http://localhost/sit/index.asp pero al escribir el login me sale ese error, estoy usando sql server y el codigo de asp es el siguiente

<%@ Language=VBScript %>
<% Option Explicit %>
<!-- #include file="_private\gettools.asp" -->
<!-- #include file="_private\getsettings.asp" -->

<%
'Declaracion de Variables Default
Dim gcnnX, rstX, strSQL

'Otras Variables
Dim strLogin,strPassword, blnSave, strNombre, strDescr, strEmail
Dim strTipoUsuario, strCentros

'Recepción de Parámetros
strLogin = ucase(request.form("Login"))
strPassword = request.form("password")
blnSave = (request.form("Save") <> "")

'Objetos ADO
Set gcnnX = Server.CreateObject("ADODB.Connection")
Set rstX = Server.CreateObject("ADODB.Recordset")

'Abre conexión
gcnnX.Open gstrDSNSQL

'Query Principal
strSQL = "SELECT * FROM CATUSUARIO " & _
"WHERE CVEUSUARIO ='" & strLogin & "' "
rstX.Open strSQL, gcnnX, 3,2
If rstX.RecordCount> 0 Then
If unCrypted(rstX("Passwd")) = strPassword Then
strNombre = rstX("NomUsuario")
strDescr = rstX("DesUsuario")
strEmail = rstX("EmaUsuario")
strTipoUsuario = rstX("CveTipoUsuario")
Else
Response.Redirect "errors.asp?Error=3"
End If
'Salva la fecha de último acceso
rstX("UltimoAcceso") = Now
rstX.Update
Else
Response.Redirect "errors.asp?Error=4"
End If
rstX.Close

'Si es Jefe de Depto. verifica que centros tiene asignado
strCentros = ""
If strTipoUsuario = 2 Then 'Jefe de Depto
strSQL = "SELECT * " & _
"FROM USUARIOCENTRO " & _
"WHERE CVEUSUARIO = '" & strLogin & "' "
rstX.Open strSQL, gcnnX, 3,2
If rstX.RecordCount> 0 Then
Do until rstX.EOF
strCentros = strCentros & ",'" & trim(rstX("CveCentro")) & "'"
rstX.MoveNext
Loop
End If
rstX.Close
If strCentros <> "" Then
'Elimina la primera coma
strCentros = mid(strCentros,2,len(strCentros)-1)
End If
End If

set rstX = Nothing
gcnnX.Close
set gcnnX = Nothing

Session.Timeout = 240
Session(gCarpeta & "access") = "OK"
Session(gCarpeta & "login") = strLogin
Session(gCarpeta & "nombre") = strNombre
Session(gCarpeta & "descr") = strDescr
Session(gCarpeta & "email") = strEmail
Session(gCarpeta & "tipo") = strTipoUsuario
Session(gCarpeta & "centros") = strCentros

If blnSave Then
Response.Cookies(gCarpeta)("login") = UCase(strLogin)
Response.Cookies(gCarpeta)("Password") = strPassword
Response.Cookies(gCarpeta)("save") = "CHECKED"
Response.Cookies(gCarpeta).Expires = Now() + 30
Else
Response.Cookies(gCarpeta)("login") = ""
Response.Cookies(gCarpeta)("password") = ""
Response.Cookies(gCarpeta)("save") = ""
End If

response.redirect "index.asp"
%>__________________________________
y tengo en otra pagina la conexion de la base de datos este es el codigo:

<%
'Carpeta en que se encuentra el sistema
gCarpeta = "sit"

'Cadena de Conexión
gstrDSNSQL = "DRIVER={SQL Server};" & _
"Server=127.0.0.1;" & _
"Address=127.0.0.1,1433;" & _
"Network=DBMSSOCN;" & _
"Database=sit;" & _
"Uid=manolo " & _
"Pwd=tecnologico "

%>

ojala puedan ayudarme para poder solucionar mi problema que no me deja avanzar en mi proyecto, gracias
  #2 (permalink)  
Antiguo 07/07/2008, 08:14
Avatar de JuanRAPerez
Colaborador
 
Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 20 años, 7 meses
Puntos: 27
Respuesta: problema con el localhost y asp

bienvenido: gemelohdez

ummm dice

No existe el servidor SQL Server o se ha denegado el acceso al mismo

has verificado que el SQL este bien instalado, que este abierto el puerto que indicas?
que tenga acceso realmente el usuario con el que conectas?

verifica eso.

suerte
__________________
JuanRa Pérez
San Salvador, El Salvador
  #3 (permalink)  
Antiguo 07/07/2008, 18:13
 
Fecha de Ingreso: febrero-2008
Mensajes: 4
Antigüedad: 16 años, 4 meses
Puntos: 0
Respuesta: problema con el localhost y asp

ok sql funciona correctamente, el puerto ya puse una exepcion en el firewall, pero como se cual usuario poner :S si cuando instale sql server express 2005 no puse ninguno :(
  #4 (permalink)  
Antiguo 07/07/2008, 21:44
Avatar de JuanRAPerez
Colaborador
 
Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 20 años, 7 meses
Puntos: 27
Respuesta: problema con el localhost y asp

busca en los usuarios el SA y a ese activalo y colocale un password
__________________
JuanRa Pérez
San Salvador, El Salvador
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:02.