Por Favor Me Ajudem Com Esse Script

[la.snake]

Amigos eu estou com este script para autenticação de usuário, e estou trabalhando com ele OFF-LINE, ou seja no PWS, sem esta no servidor online, mas toda vez que tento visualizar a pagina tanto LOGIN como a REG sempre me aparece esta linha:

Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

[Microsoft][Driver ODBC para Microsoft Access] Não foi possível encontrar o arquivo '(desconhecido)'. 

/meu/login.asp, line 1062 

Fui até a linha indicada e vejo isto:

Conexao.Open Constr

O banco de dados esta na raiz principal, ou seja não esta em pasta nenhuma.

O script para REGISTRO é este:

<%

if request.form("reg") = "yes" then

'get variables from form

usn = request.form("usn")

pwd = request.form("pwd")

pwd2 = request.form("pwd2")

fname = request.form("fname")

lname = request.form("lname")

email = request.form("email")

'check varables are present and correct

if usn = "" then

  err = 1

  errmess = "You didnt insert a username<br>"

end if

if pwd = "" then

  err = 1

  errmess = errmess & "You didnt insert a password<br>"

end if

if pwd2 = "" then

  err = 1

  errmess = errmess & "You didnt insert a password again<br>"

end if

if fname = "" then

  err = 1

  errmess = errmess & "You didnt insert your first name<br>"

end if

if lname = "" then

  err = 1

  errmess = errmess & "You didnt insert your last name<br>"

end if

if InStr(email,"@") = 0 or InStr(email,".") = 0 or email = "" then

  err = 1

  errmess = errmess & "You didnt enter a valid email address<br>"

end if

if pwd <> pwd2 then

  err = 1

  errmess = errmess & "Your passwords dont match<br>"

end if

  if err = 0 then

  set dataconn = server.createobject ("ADODB.connection")

  set rs1 = server.createobject ("ADODB.recordset")

  dataconn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=d:\meu\db2.mdb"( este é o lugar aonde esta o banco de dados off-line)

  MYSQL = "SELECT * FROM members WHERE usern = '" & usn & "'"

  rs1.open MYSQL, dataconn, 1, 3

    if not rs1.EOF or not rs1.BOF then 'username exists already

    errmess = "Your choosen Username already exists"

    else

   

    rs1.AddNew

    rs1.Fields("usern") = usn

    rs1.Fields("passwo") = pwd

    rs1.Fields("fname") = fname

    rs1.Fields("lname") = lname

    rs1.Fields("email") = email

    rs1.Update

    response.redirect "login.asp"

    end if

  rs1.close()

  dataconn.close()

  end if

end if

%> Registre-se

<form name="form1" method="post" action="reg.asp">

  <table width="100%" border="0" cellspacing="0" cellpadding="0">

    <tr>

      <td width="16%" align="right">Username </td>

      <td width="23%">

        <input type="text" name="usn" value="<%= usn %>">

      </td>

      <td width="12%" align="right">Senha</td>

      <td width="49%">

        <input type="password" name="pwd">

      </td>

    </tr>

    <tr>

      <td width="16%" align="right">Confirme Senha</td>

      <td width="23%">

        <input type="password" name="pwd2">

      </td>

      <td width="12%" align="right"> Email </td>

      <td width="49%">

        <input type="text" name="email" value="<%= email %>">

      </td>

    </tr>

    <tr>

      <td width="16%" height="27" align="right">Nome</td>

      <td width="23%" height="27">

        <input type="text" name="fname" value="<%= fname %>">

      </td>

      <td width="12%" height="27" align="right">Sobre Nome</td>

      <td width="49%" height="27">

        <input type="text" name="lname" value="<%= lname %>">

      </td>

    </tr>

    <tr>

      <td width="16%" height="27" align="right">&nbsp;</td>

      <td width="23%" height="27">

        <input type="submit" name="Submit" value="Submit">

        <input type="reset" name="Submit2" value="Reset">

        <input type="hidden" name="reg" value="yes">

      </td>

      <td width="12%" height="27" align="right">&nbsp;</td>

      <td width="49%" height="27">&nbsp;</td>

    </tr>

  </table>

</form>

<%= errmess %>

E o script para login é este:

<%

' BEGIN LOGON PROCEDURE

dologin = request.form("login")

usn = request.form("username")

psw = request.form("password")

if request.cookies("logoncookie")("cookname")<>"" then

usn = request.cookies("logoncookie")("cookname")

psw = request.cookies("logoncookie")("cookpass")

dologin = "login"

end if

if request.form("logoff")="logoff" then

dologin = "no"

session("logon")="no"

session("usn") = ""

session("admin") = "no"

response.cookies("logoncookie").expires = date  -1

end if

'decide whether to login or not

if dologin ="login" then

  set dataconn = server.createobject ("ADODB.connection")

  set rs1 = server.createobject ("ADODB.recordset")

  dataconn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=d:\meu\db2.mdb""( este é o lugar aonde esta o banco de dados off-line)

  MYSQL = "SELECT * FROM members WHERE usern = '" & usn & "'"

  rs1.open MYSQL, dataconn, 1, 3

  if not rs1.EOF or not rs1.BOF then 'username checker

  if psw = (rs1("passwo")) then  'check password

    session("logon") = "yes"

    session("usn") = usn

    if rs1("level") = "admin" then session("admin") = "yes"

    if request.form("rem") = "yes" then 'checkbox and create cookie

    response.cookies("logoncookie").Expires = date + 31

    response.cookies("logoncookie")("cookname")= usn

    response.cookies("logoncookie")("cookpass")= psw

    end if

  else

    session("logon") = "no" 'incorect password error

    errmess="password incorrect"

  end if

  else

  errmess="Incorect Username" 'incorrect username error

  end if

  rs1.close()

  dataconn.close()

 

end if

'show user logged in

if session("logon") = "yes" then

call logonyes

else

'show login required

call logonno

response.write errmess

end if

' END LOGIN PROCEDURE

%>

    </td>

  </tr>

</table>

<% function logonno() %>

<form name="form1" method="post" action="login.asp">

              Username

              <input type="text" name="username" size="17">

              <br>

              Password

              <input type="password" name="password" size="17">

              <br>

  Lembrar

  <input type="checkbox" name="rem" value="yes">

              <input type="submit" name="login" value="login">

</form>

<p>Por favor <a href="reg.asp">Clique Aqui</a> e registre-se</p>

<form name = "form1" method="post" action="login.asp">

              <input type="submit" name="logoff" value="logoff">

</form>

<% end function %>

O que devo fazer e como fazer?

Peço por favor a ajuda de vocês.

Obrigado.

PS: Este script eu peguei do PORTAL FIREMASTERS. Ele se constitue em:

Um banco de dados ACCESS

Uma página para LOGIN

Uma Página para REGISTRO

[bareta]

ele não encontra o banco de dados..

verifique se o arquivo esta no local correto ou seja em:

d:\meu\db2.mdb

[la.snake]

Esta sim meu amigo, verifiquei isso antes de postar este. infelizmente não sei aonde esta o erro, será que você poderia me ajudar por favor.

Desde já te agradeço muito.

[bareta]

se esta no pws creio que o arquivo devera ficar dentro da pasta wwwroot.... se não isso não ira funcionar.... faça um teste jogue dentro do wwwroot e veja!!!