Notifikationer

Markér alle som læst Log ud

teknikeren Nybegynder

02. juni 2002 - 08:38 Der er 13 kommentarer og
1 løsning

Slut på sætning

Hej igen...
Det handler IGEN om det der brugersystem...
Når jeg logger ind med en nyoprettet bruger skriver den således:

Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0401'

Slut på sætning var ventet

Her er min kode:

<%
dim cn, strcn
Set cn = Server.CreateObject("ADODB.Connection")
strcn = "Provider = Microsoft.Jet.OLEDB.4.0;"
strcn = "data source = /WINDOWS/Skrivebord/hp/brugere.mdb;"
cn.ConnectionString = strcn
cn.Open
dim SQL
SQL = "Select * FROM brugere WHERE [brugernavn] = '" & Request.Form("BrugerNavn") & "' AND [password] = '" & Request.Form("Password")"'"
Set cn = cn.Execute(SQL)

If rs.EOF Then
Response.Write "Forkert Password / Brugernavn."
%>
<BR>
<A href = "default.asp">Prøv Igen</A>
<%
Else
%>
SIDEN ER HER
<%
End if
%>
Hvad kan der være galt?

Synes godt om

bullefardk Nybegynder

02. juni 2002 - 09:10 #1

Er databasen i samme mappe som de andre filer?

Synes godt om

bullefardk Nybegynder

02. juni 2002 - 09:10 #2

Alle andre?

Synes godt om

bullefardk Nybegynder

02. juni 2002 - 09:11 #3

For så skal den se såden ud.

<%
dim cn, strcn
Set cn = Server.CreateObject("ADODB.Connection")
strcn = "Provider = Microsoft.Jet.OLEDB.4.0;"
strcn = "data source = brugere.mdb;"
cn.ConnectionString = strcn
cn.Open
dim SQL
SQL = "Select * FROM brugere WHERE [brugernavn] = '" & Request.Form("BrugerNavn") & "' AND [password] = '" & Request.Form("Password")"'"
Set cn = cn.Execute(SQL)

If rs.EOF Then
Response.Write "Forkert Password / Brugernavn."
%>
<BR>
<A href = "default.asp">Prøv Igen</A>
<%
Else
%>
SIDEN ER HER
<%
End if
%>

Synes godt om

fet321 Nybegynder

02. juni 2002 - 09:13 #4

Ret linien
strcn = "data source = /WINDOWS/Skrivebord/hp/brugere.mdb;"

til
strcn = strcn & "data source = /WINDOWS/Skrivebord/hp/brugere.mdb;"

...eller får du ikke det hele med til db forbindelsen

Synes godt om

bullefardk Nybegynder

02. juni 2002 - 09:15 #5

Kan du ikke se at den vil gå ind i /WINDOWS/Skrivebord/hp/ for at lede efter databasen når siden er på nettet.. Tror ikke at der er særlig mange der har en mappe på skrivebordet der hedder hp og har en database fil.

Synes godt om

bullefardk Nybegynder

02. juni 2002 - 09:16 #6

Hmm

Synes godt om

fet321 Nybegynder

02. juni 2002 - 09:21 #7

bullefardk >> Nu er "data source = /WINDOWS/Skrivebord/hp/brugere.mdb;" jo stien til databasen på web-serverne og da ASP er serverside, skal brugerne af siden ikke have nogen database liggende vel ;-)

Synes godt om

teknikeren Nybegynder

02. juni 2002 - 09:34 #8

Den skriver dette:

Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0401'

Slut på sætning var ventet

/hp/bruger.asp, linje 9

SQL = "Select * FROM brugere WHERE [brugernavn] = '" & Request.Form("BrugerNavn") & "' AND [password] = '" & Request.Form("Password")"'"
-------------------------------------------------------------------------------------------------------------------------------------^

Synes godt om

fet321 Nybegynder

02. juni 2002 - 09:42 #9

Ret linien
SQL = "Select * FROM brugere WHERE [brugernavn] = '" & Request.Form("BrugerNavn") & "' AND [password] = '" & Request.Form("Password")"'"

til
SQL = "Select * FROM brugere WHERE [brugernavn] = '" & Request.Form("BrugerNavn") & "' AND [password] = '" & Request.Form("Password") & "'"

du manglede et &-tegn til sidst

Synes godt om

teknikeren Nybegynder

02. juni 2002 - 10:02 #10

Hvordan er det man laver et rs object?

Synes godt om

fet321 Nybegynder

02. juni 2002 - 10:05 #11

Det gør du sådan

Set rs = Server.CreateObject("ADODB.Recordset")

Synes godt om

teknikeren Nybegynder

02. juni 2002 - 10:27 #12

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open
Nu skriver den "Programmet har anmodet om en handling på et objekt, som har en henvisning til et lukket eller ugyldigt forbindelsesobjekt."

Synes godt om

fet321 Nybegynder

02. juni 2002 - 10:39 #13

Du behøver ikke åbne et recordset med
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open

grunden til at dit recordset ikke åbnes er fejli denne linie

Set cn = cn.Execute(SQL)

den skal være

Set rs = cn.Execute(SQL)

Synes godt om

fet321 Nybegynder

02. juni 2002 - 10:40 #14

takker for points

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS