"id" indsættes i urlen manuelt ?

<%
dim person
person = request.querystring("id")

sql = "SELCECT * (eller hvad der nu skal vælges) FROM tabel WHERE person = '"&person&"'"

objRS.execute(sql)

'objRS er dit recordset
'Nu kan du trække informationerne ud vha. ex.
'response.write(objRS("adresse"))
'response.write(objRS("navn"))
'osv.

Er dette det du mangler?

Hej villadsen

kikker lige på det,,

Jens

Det går næsten som det plejer ved den her tid på "aftnen",,, ad H... til.

Jeg tror ikke rigtig jeg har fanget den :-(

Kan du få noget ud af understående.

DB'en hedder: medlemmer.mdb
Tabellen hedder: dbmedlem
Posten hedder: person

- Jens


<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>


<TABLE align=center border=1 cellPadding=1 cellSpacing=1 width="75%">
<%
    '---- CursorTypeEnum Values ----
    Const adOpenForwardOnly = 0
    Const adOpenKeyset = 1
    Const adOpenDynamic = 2
    Const adOpenStatic = 3
       
    '---- LockTypeEnum Values ----
    Const adLockReadOnly = 1
    Const adLockPessimistic = 2
    Const adLockOptimistic = 3
    Const adLockBatchOptimistic = 4
           
   
   
    Dim DB_CONNECTIONSTRING
    DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("medlemmer.mdb") & ";"
   
    Dim Recordset
    Set Recordset = Server.CreateObject("ADODB.Recordset")
   
    dim person = request.querystring("personer")

    Dim sqlstmt1
    sqlstmt1 = "SELECT * FROM dbmedlem WHERE person = ""&person&""
   
    Recordset.Open SqlStmt1, DB_CONNECTIONSTRING, adOpenStatic, adLockReadOnly
   
   
   
   
        Response.Write "klinik"
       
   
    Recordset.MoveNext
    Loop

%>

</BODY>

Der skulle ikke stå

Response.Write "klinik"
       
Men Response.Write "person"

Klinik,,, hmmm ;-)
       
   

Dette skulle virke. Det åbner et recordset-objekt op en lidt anden måde, men ellers er princippet det samme.
I øvrigt har du et <table>-tag uden hverken <tr>, <td>, </td>, </tr> og </table>, men det er du nok klar over.

<%

  dim Rs, dbPath
  Set Rs = Server.CreateObject("ADODB.Connection")
  DBPath = server.mappath("medlemmer.mdb")
  Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ= " & DBPath

  dim person = request.querystring("personer")

  dim sqlstmt1
  sqlstmt1 = "SELECT * FROM dbmedlem WHERE person = '"&person&"'"

  dim personRS
  set personRS = rs.execute(sqlstmt1)

  do while not personRS.eof
   
  response.write(personRS("person"))
 
  personRS.movenext
  loop
 
  personRS.close
  set personRS = nothing
 
%>

Okay. Lad mig give dig et råd:

brug ID nummer istedet !.

Sådan at du ikke skriver 'persondata.asp?person=john'

men f.eks 'persondata.asp?person=3'

Hvor John så har id nummer 3.

Når du så skal lave dit udtræk, laver du bare denne sql :

SQL = "select * from tabelnavn where id=" & request("id")

Hej igen

Aaarrrggg ;-)


Jeg har lavet det som beskrevet af villadsen.


Jeg kalder siden med bla. bla./ test.asp?person=jens

Navnet jens er i databasen lagt i tabellen dbmedlemmer og i feltet "person"

Jeg får så følgende fejl ???


Microsoft VBScript compilation error '800a0401'

Expected end of statement

/medlemmer_dju/fpdb/test.asp, line 8

dim person = request.querystring("personer")
-----------^


Nogen forslag ? :-/


MVH
Jens

Ups !

chatstuff,, grunden til at jeg vil lave det på den her måde er at personen bliver slettet og indsat i løbende proces,, altså vil det ikke være muligt at bruge ID da det ikke vil være aktuelt særlig længe.

Det er nemlig sådan at klubberne skal kunne tage hele URL'en og så lægge deres person ind i enden af denne url. Så kan man altid få manden frem ( tror jeg nok ;-)  )

- Jens

okay.

Dit problem er.

Du skriver
dim person = request.querystring("personer")

du skal skrive
dim person
person = request.querystring("personer")


¨MEN, jeg har ALDRIG bruget DIM. Så den er faktis ikke nødvendig

Hej chatstuff og villadsen

Ja hvem skal nu have point ?

Villadsen kom med noget og chatstuff med noget andet,, forresten ! Nu virker det,, tak for hjælpen chatstuff :-)) - og villadsen,,i er en stor hjælp for mig :-)

øøøhhhh ;-)

Hvad er DIM forresten ?

MVH
Jens

Bommert!
Sådan går det når det går lidt for stærkt, selvfølgelig skal det stå på 2 linier.

Man bruger dim til at erklære en variabel. Det er den korrekte måde at gøre det på, men man kan også godt lade være med at gøre det.
Hvis man bruger OPTION EXPLICIT skal man erklære alle sine variabler. Med andre ord der er er mindre risiko for variabel-fejl hvis man gør det (undtagen hvis ikke man dim'er dem rigtigt som nu :-)

Jeg har aldrig brugte det. Og mine scripte virker da perfect.

Så....nej, det er ikke en nødvendighed ( ihvertifald ikkke for mig endnu )

og iørigt.

Så er jeg godt klar over hvad man bruger Dim/ReDim til

argh.

Jeg troeded det med Dim var til mig !.

Giv du bare 'Villadsen' de point

Du har ret i at det ikke er en nødvendighed at dimme sine variabler, men hvis man gør det er man bedre sikret mod at komme til at lave fejl, som fx. at kalde 2 variabler det samme.

Som jeg ser det er fordelen at man kan bruge OPTION EXPLICIT som kræver at al kode er i det korrekte syntaks, og derfor giver en fejlmelding hvis noget er i uorden.

Men det er en helt anden historie :-)

humm, har heller aldrig brugte "Option Explicit"

Men,det kan da være en nødvendig hed en gang imellem at lave 2 ens variabler

arr.

Jeg var lige oppe at slås med min Kat.

Det spasser dyr, det fik mig 2 gange

I hvilke tilfælde laver du 2 ens var?

f.eks :

dan = "dettet er en' test"
dan = Replace(dan,"'","-"

Ups. glemtet en ) til sidste i replace linjen.

dan = "dettet er en' test"
dan = Replace(dan,"'","-")

Nå ok, jamen det er da stadig den samme variabel som du bare laver en replace på.

Jeg troede du mente noget med

var = 23423

og så senere havde en ny variabel der også hed var:

var = "Min mor er sød"

eller noget i den stil.

nåårrr. Men, det behøver jo ikke kun var en replace. Det kan også godt være så meget andet

Ja.

Men så er vi vel enige alligevel, bare mener jeg at det er rart at serveren tjekker igennem om der er noget mistænksomt nogen steder.

Okay. Det kan du have ret i, men det er jo ikke noget problem for os som kan finde ud af at prgrammer *LOL* ( okay, lød plat )

Nej det lød da fedt...

*G*

Er du tilfreds, Jens?

Ja, undskylder meget at jeg ikke svarede !

MVH
Jens

Ingen problemer i det  :-)