Hulp bij restricted pagina's ASP

[Verwijderd]

Hallo allemaal,

Ik loop tegen een probleem aan waar ik maar niet uitkom. Ik heb een aantal pagina's beveiligd met uiteraart naam, wachtwoord, en ook een userid die mee wordt gegeven aan de pagina waar ik daarna heen ga. Ik log dus in op een pagina met naam, wachtwoord, en kom terrecht op de pagina met de restrictie die wordt meegegeven via de userid van de 1e pagina.

In de database staat alles goed, de connectie naar de database is ook goed maar ik krijg voortdurend deze foutmelding:


Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access-stuurprogramma] De component LEVEL bevat een syntaxisfout.

/pages/adminlogin.asp, line 35


Dit is de code waar het om zou moeten gaan:


<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("textfield"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization="level"
MM_redirectLoginSuccess="admin.asp"
MM_redirectLoginFailed="../index.htm"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_login_STRING
MM_rsUser.Source = "SELECT naam, wachtwoord"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM login WHERE naam='" & Replace(MM_valUsername,"'","''") &"' AND wachtwoord='" & Replace(Request.Form("textfield2"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>

Kan iemand mij helpen?


Groeten,

Marco

[faabman]

welke regel is lijn 35

en zet je script eens tussen [code] tags

[j_du_pee]

Als jij beloofd volgende keer je vraag netter op te maken aan de hand van de FAQ vertel ik je dat level een reserved word is in SQL

[party42]

heb je het antwoord toch stieken al gegeven ofniet

[Verwijderd]

Oops...... op zich wel handig he als ik dat regelnummer even geef :

regel 35 is: MM_rsUser.Open

En mijn script dus tussen [code] tags zetten? Werkt dat beter?

Sorry dat ik niet netjes volgens de faq heb gewerkt maar ik zag door de bomen het bos niet meer en heb ook geprobeerd eerst te zoeken.....

Bedankt voor jullie tips!

Ik ga het allemaal toepassen...

[party42]

Als je dan toch bezig bent, wat voor SQL krijg je terug? Het zou ook daarin wel 'es mis kunnen gaan.

[j_du_pee]

party42 schreef op 20 oktober 2004 @ 11:13:
heb je het antwoord toch stieken al gegeven ofniet

[Verwijderd]

Het wordt steeds leuker, ik heb nu de volgende melding:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access-stuurprogramma] Kan (onbekend) niet gebruiken. Het bestand is al in gebruik.

/pages/adminlogin.asp, line 8

Regel 8 is: Recordset1.ActiveConnection = MM_login_STRING

Het heeft dus iets met mijn loginstring te maken maar wat....
Ik heb op internet al heel lang gezocht naar deze foutmelding maar kom er niet uit.

p.s.

Als ik dit ergens anders moet vragen kunnen jullie me dan vertellen waar ik deze moet plaatsen?

Vriendelijke groet,

Marco

[Verwijderd]

Wat voor sql krijg ik terug...oehhh... weet je, ik ben niet echt een programmeur dus kan ook niet direct begrijpen waar ik dat zou kunnen zien, kan jij het me uitleggen?

Alvast bedankt!

Marco

[LuCarD]

Voor het eerste probleem...

level is een reserved word, zet hem tussen [ ]

http://support.microsoft....aspx?scid=kb;en-us;109312
http://support.microsoft....aspx?scid=kb;en-us;286335
http://support.microsoft....aspx?scid=kb;en-us;209187

Verder is het misschien handig om een tutorial door te nemen?

kleine note:
Het is niet nodig om elke keer te groeten... Wij zijn namelijk nogal zuinig op onze bandbreedte

[j_du_pee]

Ik ben bang dat het uiteindelijk toch wel aan te raden is om niet op Macromedia functies te vertrouwen (dat gebeurt nu toch ), maar om een kleine basistutorial te lezen over ASP en vbScript.
Die gegenereerde code is namelijk leuk zolang het werkt, maar debuggen wordt een heel ander verhaal
Het lijkt me iig dat je nu de database op ontwerpweergave hebt staan en dan een connectie probeert te maken oid... Sluit de access db ff voor je het opnieuw probeert...

en als aanvulling op bovenstaande post; tussen [] zetten lost het wel op, maar ik zou je toch aanraden de naam helemaal te veranderen...

[party42]

of zoals je eerder al zei, de code sowieso even kritisch door te nemen. Want volgens mij is dit het enige wat gebeurt:

1. kijk of er een username / wachtwoord is ingevuld
2. kijk of dit matched met een record uit de database
2.1 ja-> vul wat sessies en forward naar een andere pagina
2.2. nee-> ga terug naar de inlog met een melding.

Volgens mij kan dat makkelijker. En inderdaad, de "MM" functies zijn niet erg prettig om te debuggen. Het uitvragen van je sQL is al lastig omdat alles in de .Source gezet wordt.

[Verwijderd]

Ik heb level veranderd en geen DB openstaan, maar toch die foutmelding.
Ik gebruik inderdaad macromedia en zal maar een tutorial gaan doen van asp / vbscript.

Bedankt weer!

Marco

[j_du_pee]

lijkt me een goed begin ja Kijk eens in de FAQ voor sites en links: P&W FAQ - ASP

klik daarna ook eens door naar overige foutmeldingen: P&W FAQ - ASP

en klik eens door naar die macromedia link. Mocht je nu jouw foutmelding naar het Engels vertalen _zou_ het zomaar kunnen dat je hier wat interessante info tussen vindt

[Verwijderd]

Ok dan, perfect bedankt!

Groet

Marco

[party42]

Verwijderd schreef op 20 oktober 2004 @ 13:00:
Ok dan, perfect bedankt!

Groet
Marco

LuCarD schreef op 20 oktober 2004 @ 11:29:
kleine note:
Het is niet nodig om elke keer te groeten... Wij zijn namelijk nogal zuinig op onze bandbreedte

Algemene regels hoe je op het forum te gedragen (Netiquette) #reageren

[gorgi_19]

Hoi Marcovdo !

Ik zie dat dit je eerste topic is op het forum, dus als eerste welkom!

Zoals je hebt gezien bestaat het forum uit een aantal subforums en heeft ieder subforum (zoals Programming & Webscripting in dit geval) een aantal eisen. Bij ons is dat P&W FAQ - Het FAQ/Beleid topic, zoals overal te vinden bovenin de topics van het forum (sticky). Een handig onderdeel daarvan is P&W FAQ - De "quickstart", een stappenplan om een bruikbaar topic te openen.

Jouw topic heeft meer weg van een 'neem-mij-aan-het-handje' mee topic Stapje voor stapje moeten we je door het proces van debuggen heen helpen. Daar is Programming & Webscripting niet voor bedoeld. Debuggen, waarom iets wel of niet werkt, en welke waarden iets heeft, is iets wat je zelf moet kunnen, evenals het interpreteren van foutmeldingen en het opzoeken van deze op Google.

Voor meer informatie over debuggen en de meest voorkomende foutmeldinge: zie P&W FAQ - ASP . Met deze lijst moet je we wel uit kunnen komen. Mocht je er niet uit kunnen komen, dan kan je een topic openen, maar we vereisen dan wel enig voorwerk van jouw kant uit. Die eisen van een topic zijn te vinden in P&W Beleid

Daarnaast: het steeds groeten onder een post hebben we liever niet. Het stoort enorm als je een discussie wilt lezen

Veel plezier nog op het forum