Problema de dirreccionamiento?? me tiene complicado

mc_quake · #1 (**permalink**) 06/10/2006, 15:23

hola amigos tengo una aplicacion tipo catalogo con la siguiente estructura

archivo cn.asp

Cita:

<%
' Connection Strings
dim Conn
' Add full path of database with filename here
strCon = Server.MapPath("database/aspProductCatalog.mdb")
cnProvider = "Provider=Microsoft.JET.OLEDB.4.0;"
cnDataSource = "Data Source=" & strCon
Conn = cnProvider & cnDataSource

%>

mi problema surge cuando kiero entrar a la zona de administracion
al entrar me aparece la pagina login.asp donde relleno el formulario con usuario y clave
al momneto de darle al boton submit me envia el siguiente error

error

Cita:

Tipo de error:
Microsoft JET Database Engine (0x80004005)
'C:\Inetpub\wwwroot\catalogo\admin\database\aspPro ductCatalog.mdb' no es una ruta de acceso válida. Asegúrese de que la ruta está escrita correctamente y que está conectado al servidor donde se encuentra el archivo.
/admin/login.asp, line 18

pagina Login.asp

Código:

<!--#include file="cn.asp"-->
  <%
	dim username
	dim pass
	dim msg
	dim checked
	
	username = Request.Form("username")
	pass = Request.Form("password")
	
	if request.Form("Submit")="Submit" then
		dim rs
		dim cn
		
		set cn = server.CreateObject("Adodb.Connection")
		set rs = server.CreateObject("Adodb.Recordset")
		
		cn.Open conn
		rs.open "Select * From Admin Where User_ID='" & username & "'",cn
		if not rs.eof then
		
			if pass = rs.fields("Password") then
			session("AdminOk") = "true"
			session("Username") = username
			
			response.Redirect("admin.asp")
			else
			msg = ("Password not correct")
			end if
		
		else
			msg = ("Username not correct")
		end if

		rs.Close
		cn.Close
		
		set rs = nothing
		set cn = nothing
		
	End if


	if request.QueryString("cmd") = "logout" then
		session.Abandon()
	End if

%>

he marcado de rojo la linea del error

y como dato si pongo la carpeta database dentro de la carpeta admin
la zona de administracion accede sin ningun problema y la pagina defaulds.asp me manda problemas cuando trato de ver los articulos del catalogo

rara la custion si no es una es la otra no puedo hacer funcionar las dos a la ves jajajaja

gracias por su cooperacion

JuanRAPerez · #2 (**permalink**) 06/10/2006, 15:36

admin/login.asp
admin/cn.asp
database/aspPro ductCatalog.mdb

tu cn dice

Cita:

Server.MapPath("database/aspProductCatalog.mdb")

entonces cuando la busca la busca a partir de donde se ejecuta el asp en este caso busca

admin/database/aspProductCatalog.mdb

pone en tu cn y proba

Cita:

Server.MapPath("../database/aspProductCatalog.mdb")

suerte

mc_quake · #3 (**permalink**) 06/10/2006, 15:46

ok compadre lo hice pero ahora me sale este error

Cita:

Tipo de error:
Microsoft JET Database Engine (0x80004005)
'C:\Inetpub\wwwroot\database\aspProductCatalog.mdb ' no es una ruta de acceso válida. Asegúrese de que la ruta está escrita correctamente y que está conectado al servidor donde se encuentra el archivo.
/Default.asp, line 11

y probe escribiendo en la barra de direcciones
http://localhost/admin/login.asp
y me aparece la pagina y relleno el formulario si funciona de lujo pero
ahora queda con fallas el default.asp

codigo default.asp

Código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#Include file="admin/cn.asp"-->
<%
	dim rs
	dim rs2
	dim cn
	dim msg
	
	set cn = Server.CreateObject("Adodb.Connection")
	set rs = server.CreateObject("Adodb.Recordset")
	cn.Open conn
	sqlstring = "Select * From ProductCategories"
	rs.open sqlstring, cn
	

%>
<html>
<head>
.
.
.
.

JuanRAPerez · #4 (**permalink**) 06/10/2006, 16:16

como es viernes no se me ocurre mas que esto

cn.asp
en el rais de tu sitio

Cita:

<%
dim Conn
Sub AbrirConexionPrincipal
strCon = Server.MapPath("database/aspProductCatalog.mdb")
cnProvider = "Provider=Microsoft.JET.OLEDB.4.0;"
cnDataSource = "Data Source=" & strCon
Conn = cnProvider & cnDataSource
end Sub

sub CerrarConexionPrincipal
Conn.Close
set Conn = nothing
end sub

dim ConnLogin
Sub AbrirConexionPrincipalLogin
strCon = Server.MapPath("../database/aspProductCatalog.mdb")
cnProvider = "Provider=Microsoft.JET.OLEDB.4.0;"
cnDataSource = "Data Source=" & strCon
ConnLogin = cnProvider & cnDataSource
end Sub

sub CerrarConexionPrincipalLogin
ConnLogin.Close
set ConnLogin = nothing
end sub
%>

y en la de login

Cita:

<%
AbrirConexionPrincipalLogin
%>
-aqui el codito
<%
CerrarConexionPrincipalLogin
%>

en tus otras paginas

Cita:

<%
AbrirConexionPrincipal
%>
-aqui el codigo
<%
CerrarConexionPrincipal
%>

mc_quake · #5 (**permalink**) 10/10/2006, 12:04

ok muchas gracias a mi tambien se me avia ocurrido eso mismo ajjajaja pero no era la idea hacerlo asi ajjaja gracias de todas formas pero igual aceptare otras opiniones

gracias