problema con el localhost y asp

[gemelohdez]

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