CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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	0	07/11/202415:34	-
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

23/12

Historisk million-bøde får Region Syddanmarks it-direktør til at efterlyse nye GDPR-retningslinjer

23/12

Til næste år kommer iPhone 17 – og ifølge rygtestrømmene vil den byde på tre nyheder

23/12

En af verdens største it-distributører dropper samarbejdet med Broadcom: Kunne ikke nå til enighed

23/12

Ser med 'stor alvor' på problemer med vand, varme og manglende kontrol i politiets datacenter

23/12

Brugere rammes af Microsoft-fejl: M365-produkter er på mystisk vis blevet deaktiveret

23/12

Her er dommen: Region Syddanmark skal betale historisk stor bøde for grove overtrædelser af GDPR

23/12

Vores vidensindsamling og demokratiske samtale påvirkes af helt lukkede beslutninger i en enkelt privat virksomhed

23/12

Overblik: Danske it-selskaber strømmer ind mod den centrale storby - og det handler ikke om penge

23/12

Banebrydende ChatGPT-opdatering er lige på trapperne: “Denne model vil være helt fantastisk til programmering”

23/12

Tivoli søger ny CIO: Kenneth Hartvig stopper efter tre år på posten

23/12

Vi ender med at bo i en taber-region, hvis ikke vi gør noget drastisk - her er digitaliseringsministerens plan

Vis flere artikler

IT-JOB

TOPdesk Danmark A/S

Support Specialist

DSV

Manager for IT Technical Project Managers and Business Analysts

Udlændinge- og Integrationsministeriet

Tværgående it-koordinatorer søges til stabsenhed i Koncern It

DSV

Data Engineer - Be part of creating a new Data Platform

Semler Gruppen

Business Analyst til Semler IT

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 17:42	Katastrofe med Pc Af LilBe i PC
I dag 09:44	Mine emails kan pluselig ikke læses af modtagerne, kun uforståelige tal og bogstaver Af gunnarb i E-mail programmer
I går 16:03	Fjern "Seneste" - "Hurtig adgang" Fra Windows 11 - Hvordan ? Af Ikke-ekspert i Windows
23/1214:43	html <Input.. Danske bogstaver Af pjotre i Andet software
23/1214:35	Brænde musik fra usb drev til cd Af Caso i Andet hardware