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