16/05/2003, 10:11
|
| | | Fecha de Ingreso: enero-2003
Mensajes: 39
Antigüedad: 21 años, 10 meses Puntos: 0 | |
| Problema con IIS al ejecutar mi web
Hola amigos.
Os comento tengo Windows 2000 Server, y estoy creando un site con páginas en ASP
La pagina principal, index.htm, tiene un control de acceso donde se solicita un login y pass. Al enviar el form se va a test.asp donde compruebo q ese usuario existe en una tabla de mi Base de Datos. Pues bien en el archvo test.asp me da el siguiente error:
HTTP 403.1 Forbidden: Execute Access Forbidden
Servicios de Internet Information Server
----- Fichero de conexion en una carpeta /include/Connection.asp
<%
option explicit
Dim strConn
Dim Conn
Set Conn = server.CreateObject("ADODB.Connection")
Conn.open "DSN=DATOS"
%>
----Fichero donde me da error Test.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #INCLUDE VIRTUAL="/include/Connection.asp" -->
<html>
<head>
<title>Acceso Denegado</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../hojas_estilo/admin.css" rel="stylesheet" type="text/css">
</head>
<%
'declaracion de variables de consultas
Dim sel_acceso
'declaracion de variables de objetos recordset
Dim rst_acceso
'instanciacion de los objetos
SET rst_acceso = Server.CreateObject("ADODB.Recordset")
sel_acceso = "SELECT LOGIN, PASSWORD FROM ADMIN WHERE LOGIN='" & Request.QueryString("txtLogin") & "' AND PASSWORD='" & Request.QueryString("txtPassword")& "'"
rst_acceso.Open sel_acceso,Conn
'set rst_acceso=conn.Execute (sel_acceso)
if not rst_acceso.eof and not rst_acceso.bof then
Response.Redirect("menu.htm")
else
respose.write ("acces denegado")
end if%>
Creo q no es ningun error de programacion sino mas bien de configurar el IIS, hay alguna opcion desde las propieddes de mi sitio creado para web que indique q debe ejecutar ASP o algo parecido???
Gracias |