if betingelse ??+

Hvis jeg forstår dig ret, så er det noget i denne stil.
<%
    set con = Server.CreateObject("ADODB.Connection")
    con.open(dsn)

            sql = "select * from bruger where id=" & request("id")
            set r = con.execute(sql)
           
    if not r.eof then
        do while not r.eof

response.write r("brugernavn") & "<p>"

            r.movenext
        loop
    end if

            r.close
            set r = nothing
con.close
set con=nothing
%>

/simon

whow, små bider hvis du gider.... jeg er ikke så stabil i dette endnu, kunne det tænkes at du lige vil forkalre det du lige smed der ???

Yes - det gider jeg.

Du opretter en forbindelse til din database. Det går jeg næsten ud fra at du kan.... Men du laver en sql-forespørgsel i stil med denne, som vælger det ud fra databasen, hvor id-nummeret er det du leder efter. Sidekaldet kan f.eks. hedde: index.asp?id=15
sql = "select * from bruger where id=" & request("id")
            set r = con.execute(sql)


    if not r.eof then
betyder: Hvis resultatet af forespørgslen ikke er tom. (eof = end of file)


      do while not r.eof
Betyder: gør det her, for alle poster der passede til forespørgslen


response.write r("brugernavn") & "<p>"
Skriv en felt fra denne post i databasen


        r.movenext
gå til næste post


        loop <- peger tilbage på din do-sætning

  end if<- peger tilbage på din if-sætning

Det sidste er bare for at lukke din databaseforbindels og recordset.
            r.close
            set r = nothing
con.close
set con=nothing


Var det til at forstå?

jeps... nu skal jeg bare have det til at virke &:-D

Er du helt med på hvordan du laver forbindelsen til databasen?

Jeg har en global variabel der hedder dsn som ser således ud.

vPath = "database\bruger.mdb"
pPath = Server.MapPath( vPath )
dsn = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & pPath & ";" & "JET OLEDB:Database Password=****"

ligner ikke mit..... har nu prøvet at strikke din kode ind... men siden vil ikke vises

koden:

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("forum.mdb")
Conn.Open DSN

' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From forum Where [svar_id] = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

    if not rs.eof then
        do while not rs.eof

response.write "<tr><td colspan='2'><table cellpadding='2' cellspacing='0' width='100%'><tr><td valign='top' width='25%' style='border-bottom: 1 solid #000000;'><h2>"

dim svar
svar = rs("navn")

'fjern html
svar = ClearHTMLTags(svar,2)

'Udskriver beskeden uden HTML tags
Response.Write(svar)

response.write "</h2></td><td style='border-bottom: 1 solid #000000;' width='75%'><h2>"
dim besked
besked = rs("besked")
'fjern html
besked = ClearHTMLTags(besked,2)

'www funktion
besked = LinkString(besked)

'Linieskift
besked = Replace(besked,chr(13),"<br>")

'Udskriver beskeden uden HTML tags
Response.Write(besked)
response.write "</h2></td></tr></table></td></tr>"

  rs.MoveNext
Loop While Not rs.EOF

    end if

Conn.Close
Set Conn = Nothing

tror måske ikke jeg er helt med

Får du en fejlmeddelelse?

nej... jeg får intern serverfejl ud af det...

Loop While Not rs.EOF skal være bare være "loop"

Ellers er det dobbeltkonfekt

Du kan også vælge at
do while not rs.eof bare er "do"

Det giver samme resultat

helt perfekt larsen mange tak for din hjælp og gode vejledning.

Det var så lidt....