Jonathan Stein wrote in dk.edb.internet.webdesign.serverside.asp:
> Hanne Kaarsberg wrote:
>
> > Alle mine databaser fejler, når jeg bruger PWS med fejlmedd.:
>
> Jeg skyder på, at fejlen opstår i den kode, hvor du åbner databasen, men det er
> lidt svært at komme nærmere uden at se selve koden.
>
> > ----------
> > Microsoft OLE DB Provider for ODBC Drivers fejl '80004005'
> > [Microsoft][ODBC Microsoft Access-driver] Filen "(ukendt)" kan ikke findes.
> > /login_version2.asp, linje 13
> > ----------
>
> Prøv at poste linje 13 - samt linjerne deromkring, så vi får helheden med.
>
> M.v.h.
>
> Jonathan
>
> --
> Start med PHP, Perl eller JSP uden at omskrive al din gamle ASP-kode.
> jsp-hotel.dk tilbyder nu Chili!Soft ASP på alle hoteller.
>
http://www.jsp-hotel.dk/
>
>
> Linjer ser sådanne ud:
Som omtalt virker det helt fint på
http://asp.darak.dk
men ikke på localhost.
Jeg vil være utrolig glad for hjælp, da jeg er ret ny i det med
ASP og web udvikling, men kender meget til Access og VBA. Derfor irriterer det mig
meget, at jeg ikke kan gennemskue dette problem.
Jeg har prøvet at eksperimentere med at lægge databasen andre steder - uden held.
Hilsen Hanne
--------
<%
If Request.Form("Action") = "Login" Then
strUID = Trim(Replace(Request.Form("medlemsnr"),"'",""))
strPWD = Trim(Replace(Request.Form("postnr"),"'",""))
' Hvis der er skrevet noget i både brugernavn og adgangskode
If Len(strUID) > 0 And Len(strPWD) > 0 Then
' DSNLess forbindelse til databasen
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath("medlem.mdb")
' Opbygning af SQL streng
strSQL = "SELECT * FROM medlem" &_
" WHERE (medlemsnr = " & strUID & ") "&_
" AND (postnr = " & strPWD & ") "
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis brugeren fandtes i databasen
intUID = rs("medlemID")
Else
' Hvis brugeren ikke fandtes i databasen
strERR = "Du blev ikke godkendt af systemet"
End If
'test om betaling er ok
' if re.("betaltar") <> '2001' then
' strerr_betalt = "Din betaling er ikke registreret! - Kontakt Hanne Kaarsberg"
' end if
' Rydder op i vores connection objekt
myConn.Close
Set myConn = Nothing
If Len(intUID) Then
session("medlemID") = intUID
Response.Redirect("beskyttet.asp")
End If
Else
' Hvis der ikke var angivet brugernavn og adgangskode
strErr = "Du skal skrive både medlemsnr og postnr"
End If
If Len(strErr) > 0 Then
' Her laves fejlmeddelsen om til rød skrift
strErr = "<p><font color=red>" & strErr & "</font></p>"
End If
End If
' If Len(strErr_betalt) > 0 Then
' ' Her laves fejlmeddelsen om til rød skrift
' strErr = "<p><font color=red>" & strErr & "</font></p>"
' End If
'End If
%>
--
Brug Validator service:
http://www.html.dk/validator
- Tast din URL én gang, og validér dokumentet hos 12 validatorer
- Understøtter HTML, CSS og søgemaskineoptimering