Notifikationer

Markér alle som læst Log ud

cotus Nybegynder

20. april 2002 - 13:09 Der er 17 kommentarer og
1 løsning

Querystring = brugernavn

Jeg har en liste over en masse brugere. De bliver hentet fra databasen adgangskontrol, fra tabellen adgangskoder. Vi siger så, at den tabel indeholder brugerne tom, jens og per. Så er der et link til godkendt.asp?id=none&brugere=tom, godkendt.asp?id=none&brugere=jens og godkendt.asp?id=none&brugere=tom. Hvis der i tabellen så også er email og rigtige navn (og disse har tabelnavnene email og realname), hvor kan jeg så lave noget som udskriver profilen for personen?

Håber at det gav mening, det jeg skrev!

/cotus

Synes godt om

yessir Nybegynder

20. april 2002 - 13:27 #1

Hvis jeg forstår dig ret laver du bare et ganske almindeligt udtræk fra din database.

SELECT * FROM tabel WHERE brugere = "'session("værdi")'"

Den virker ikke 100% - men var til at vise dig prænsippet...

Synes godt om

KingMedia Novice

20. april 2002 - 13:37 #2

Prøv denne..

Set rs = Conn.Execute("SELECT * from adgangskoder where brugere = " & Request.QueryString("brugere"))

bruger = rs("brugernavn")
Navn = rs("realname")
Email = rs ("email")

Så bruger du følgende for at trække data ud..

<%=bruger%>
<%=Navn%>
<%=Email%>

Det skulle virke :o)

Synes godt om

cotus Nybegynder

20. april 2002 - 13:53 #3

Altså:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("adgangskontrol.mdb")
Conn.Open DSN

Set rs = Conn.Execute("SELECT * from adgangskoder where brugere = " & Request.QueryString("brugere"))

bruger = rs("brugernavn")
Navn = rs("realname")
Email = rs ("email")

Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
%>

???????????

Synes godt om

cotus Nybegynder

20. april 2002 - 13:54 #4

Kan du ikke lige lave et eksempel?

Synes godt om

KingMedia Novice

20. april 2002 - 14:03 #5

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("adgangskontrol.mdb")
Conn.Open DSN

Set rs = Conn.Execute("SELECT * from adgangskoder where brugere = " & Request.QueryString("brugere"))

bruger = rs("brugernavn")
Navn = rs("realname")
Email = rs ("email")
%>

<table>
<tr>
<td>Brugernavn</td>
<td>Rigtige Navn</td>
<td>Email</td>
</tr>
<tr>
<td><%=bruger%></td>
<td><%=Navn%></td>
<td><%=Email%></td>
</tr>
</table>

<%
rs.Close
set rs = nothing
Conn.Close
Set Conn = Nothing
%>

Så får du udskrevet dine data i en tabel :o)

Håber det var et bedre svar :o)

/Mads

Synes godt om

cotus Nybegynder

20. april 2002 - 14:13 #6

Får nu fejlen: Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/25765619/ddc-asp/godkendt.asp, line 5139

Og linie 5139 hedder:

Set rs = Conn.Execute("SELECT * from adgangskoder where username = " & Request.QueryString("brugere"))

Hvorfor får jeg den fejl?

/cotus

Synes godt om

KingMedia Novice

20. april 2002 - 14:16 #7

Ahhh Tror der mangler et " eller to i SQL'en ..

Set rs = Conn.Execute("SELECT * from adgangskoder where username = " & Request.QueryString("brugere")"")

prøv den .. virker den ik , så fjern en af de sidste to " 'er :o)

Synes godt om

cotus Nybegynder

20. april 2002 - 14:19 #8

Prøv at kigge her: http://www.virtuaserver.dyndns.dk/25765619/ddc-asp.zip

Der kan du se ASP-filen, og så kan du se, om det er databasen der er noget galt med!

Synes godt om

KingMedia Novice

20. april 2002 - 14:36 #9

oki .. jeg kigger lige :o)

Synes godt om

KingMedia Novice

20. april 2002 - 18:31 #10

Hmmm Jeg har ikke glemt dig.. Jeg kigger stadig.. den driller bare .. :o) *S*

Synes godt om

KingMedia Novice

20. april 2002 - 19:37 #11

kan ikke lige finde ud af hvad der er galt.. det fungere fint hvis jeg hardcoder det, men så snart jeg skal hente den querystring, så kokser det.. :o/

Men det her virker.. hvis du vil se indtil videre....

<html>
<head>
<title>Test-side til Cotus</title>
</head>
<body>

<%

' Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../mdb/adgangskontrol.mdb")

If Request.QueryString("username") = "cotus" Then
set rs = Conn.execute("SELECT * FROM adgangskoder WHERE Username = 'cotus' )

bruger = rs("username")
Navn = rs("realname")
Email = rs ("email")
%>

<table>
<tr>
<td>Brugernavn</td>
<td><%=bruger%></td>
</tr>
<tr>
<td>Rigtige Navn</td>
<td><%=Navn%></td>
</tr>
<tr>
<td>Email</td>
<td><%=Email%></td>
</tr>
</table>

<%
rs.Close
set rs = nothing

Else
Response.Write "Du har ikke angivet et korrekt username"
End If

Conn.Close
Set Conn = Nothing
%>
</body>
</html>

Synes godt om

grunken Nybegynder

20. april 2002 - 23:01 #12

prøv med :

Set rs = Conn.Execute("SELECT * from adgangskoder where username = " & Request.QueryString("brugere") & ")"

if not rs.EOF Then
response.write "Fundet :)" & Dine Variabler
else
response.write "ikke fundet"
end if

-grunken

Synes godt om

KingMedia Novice

21. april 2002 - 09:41 #13

Wupeeeee... Jeg har den nu cotus ...
Jeg tilføjer lige lidt til databasen, så der er et par forskellige ting.. :o)

/Mads

Synes godt om

KingMedia Novice

21. april 2002 - 09:47 #14

cotus >>> Kig her... Har lavet et eksempel....
det er bare hardcodede URL's , men det kan jo laves dynamisk .. men se her..

http://www.kingmedia.dk/cotus/

Det skulle være som du bad om ? :o)
Ellers må du lige sige til :o)

/Mads

Synes godt om

cotus Nybegynder

21. april 2002 - 17:45 #15

Jepper - kan jeg få scriptet og databasen?

/cotus

Synes godt om

KingMedia Novice

22. april 2002 - 00:10 #16

cotus >>> jepper.. jeg smider det lige i en zip fil .. 2 sek . :o)

Synes godt om

KingMedia Novice

22. april 2002 - 00:21 #17

cotus >>

http://www.kingmedia.dk/cotus/cotus.zip Here ya go :o)

Synes godt om

cotus Nybegynder

22. april 2002 - 07:25 #18

Danke! :)

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
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
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

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