En este grupo En todos

Foro de ASP



ERROR DE CONEXION

Andromeda
Sistemas tesoem
Escrito por Andromeda Ajax
el 23/12/2010

Buen Dia:

Quisiera saber si pueden ayudarme o explicarme que estoy haciendo mal, ya que tengo un proyecto en asp, de manera local me funciona sin ningun problema, pero al cargar los archivos en el servidor, no funciona, visualiza las paginas que no tienen conexion a la bd, de hecho mi pagina principal la muestra, es una que pide usuario y contraseña pero cuando ingreso los datos no me permite seguir, esto es lo que visualiza al cargar el proyecto en el servidor "An error occurred on the server when processing the URL. Please contact the system administrator". Ya intente una y otra vez configurando el sitio pero me manda lo mismo. Tambien lo intente cargandolo a otro servidor. El servidor cuenta con Win Server 2008.

Anexo el codigo de mi pagina principal. Pienso que no es el codigo pero ustedes me diran.

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252"/>
<title>Sistema de Solicitud y Prestamo de Expedientes</title>
<link rel="stylesheet" href="/Prestamos/estilos/estilo_rs. Css" type="text/css"/>
<style type="text/css">
. Style1
{
font-family: "Trebuchet MS";
font-weight: bold;
}
</style>
</head>
<body bgcolor="#003366">

<%if request. Form("usuario")="" then%>

<table width="780" align="center" bgcolor="#EBEBEB">
<tr>
<td>
<table cellspacing="0" cellpadding="0" width="760" border="0" align="center">
<td><img height="110" src="/Prestamos/images/uno. Jpg" width="760" border="0"></td>
</table>

<form action="PrincipalLogin. Asp" method="post">
<p align="center" style="font-family: 'Trebuchet MS'; font-size: x-small; font-weight: 700; color: #800000">
<%=request. Querystring("msg") %>
</p>

<table width="550" align="center">
<tr>
<td width="550" bgcolor="#003366" colspan="6">
<font size="2" color="#FFFFFF"><center class="style1">Login Usuarios DGCRAM</center></font>
</td>
</tr>

<tr>
<td width="275" bgcolor="#CCCCCC" align="center" class="style1"><font size="2">Usuario</font></td>
<td width="275" bgcolor="#CCCCCC" align="center" class="style1"><font size="2">Contraseña</font></td>
</tr>

<tr>
<td width="275" bgcolor="#CCCCCC" align="center"><b><font size="2" face="Verdana">
<input name="usuario" size="40" style="font-family: 'Trebuchet MS'; font-weight: 700; text-align: center"/></font></b>
</td>
<td width="275" bgcolor="#CCCCCC" align="center"><b><font size="2" face="Verdana">
<input type="password" name="password" size="40" style="font-weight: 700; font-family: 'Trebuchet MS'; text-align: center"/></font></b>
</td>
</tr>

<tr>
<td width="275" bgcolor="#CCCCCC" align="center"><b><font size="2" face="Verdana">
<input type="reset" value="Restablecer Datos" style="font-family: 'Trebuchet MS'; font-weight: 700; font-size: x-small;"/></font></b>
</td>
<td width="275" bgcolor="#CCCCCC" align="center"><b><font size="2" face="Verdana">
<input type="submit" value="Ingresar al Fichero" style="font-family: 'Trebuchet MS'; font-weight: 700; font-size: x-small;"/></font></b>
</td>
</tr>

<table>
<BR><BR>
</form>
</TD>
</TR>
</table>
</center>
</div>
</form>


<%else
Const adOpenKeyset = 1
Const adLockOptimistic = 3


'eliminamos las posibles comillas de la entrada
'para evitar la introducción de sentencias SQL
usuario=replace(request. Form("usuario"),"'","")
password=replace(request. Form("password"),"'","")

Set Conn = Server. CreateObject("ADODB. Connection")


'poner el path de la base de datos de usuarios de administracion
Conn. Open("DRIVER={Microsoft Access Driver (*. Mdb)}; DBQ=" & Server. MapPath("/Prestamos/database/MiBase. Mdb"))


set rs = CreateObject("ADODB. Recordset")
sqltxt="SELECT Usuarios. Num_Usu, Usuarios. Usuario, Usuarios. Contraseña, Usuarios. Status, Vales. Num_Val, Prestamos. Control FROM (Usuarios INNER JOIN Vales ON Usuarios. Num_Usu = Vales. Num_Usu) INNER JOIN Prestamos ON Vales. Num_Val = Prestamos. Num_Val where Usuarios. Usuario='"&usuario&"' and Usuarios. Contraseña= '"&password&"'"
'response. Write sqltxt
rs. Open sqltxt, conn
if not rs. Eof then
' nos ha devuelto un registro, ahora miraremos si es valido
if rs("Usuario")=usuario and rs("Contraseña")=password and rs("Status")="ACTIVO" then
' si el usuario esta en la base de datos y la password coincide
session("autorizacion")=1
session("Usuario")=usuario
session("Contraseña")=password
session("Status")=status
session("Nval")=rs("Num_Val")
session("Num")=rs("Num_Usu")
response. Redirect "default. Asp"
end if
else
session("autorizacion")=-1


end if
rs. Close
set rs=nothing
conn. Close
set conn=nothing
if session("autorizacion")=-1 or session("autorizacion")="" then
' no hemos encontrado el registro
' eso indica que el usuario y/o la password son erroneos
response. Redirect "PrincipalLogin. Asp? Msg=Usuario%20o%20password%20incorrecto"
end if

End if%>




Mucho les agradecere su ayuda.