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
