Vælg 2 samhørende værdier tilfældigt fra en DB.

Jeg har brugt dine kol. navne og "citatDB.mdb" som navnet på databasefilen og "citater" som tabel navnet. Jeg kender jo ikke de rigtige navne.

Håber denne ASP er kommenteret godt nok:


<%
dim DBConn ' Bruger til connection til databasen
dim RS ' Bruger til at indeholde recordsættet
dim CitatAntal ' Bruges til at angive hvor mange citater der totalt er.

' Her laves der forbindelsen til databasen.
set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("citatDB.mdb")

' Først hentes der hvor mange citater der er over i variablen CitatAntal
set RS = DBConn.Execute("SELECT COUNT(id) AS antal FROM citater")
CitatAntal = Cint( "0" & RS("antal") )

' Så hentes alle citaterne
set RS = DBConn.Execute( "SELECT * FROM Citater" )

' Hvis der ikke er nogen citater i databasen skrives der at der ikke er nogen
if RS.EOF then
    Response.Write "Der er desværre ingen citater i databasen"
else
    ' Vi ryster lige tilfældighedsgenerator så den giver et tilfældigt tal
    Randomize

    ' Så hopper vi til et tilfældigt citat
    RS.Move( int( CitatAntal * Rnd ) )

    ' Også skrives citatet ud
    Response.Write "<font face='arial' size='3'>" & RS("citat") & "</font><br>" & vbNewLine
    Response.Write "<font face='arial' size='1'>Skrevet af: " & RS("navn") & " og har id: " & RS("id")  & "</font><br>" & vbNewLine
end if
%>

Smukt. Det virker jo som det skal. Tak for komptent og letforståeligt hjælp. :o)

Svar på spørgsmålet, så du kan få dine points.

Jeg forstår ikke, skal jeg besvare for at få point? Er det ikke dig der skal give mig dem.

Da du skrev ASP-koderne gjorde du det kun som en kommentar og jeg kunne derfor give dig pointene. Man skal vist "svare" og ikke "kommentere" for at kunne modtage points.