link = udførsel

Tja muligvis sådan:

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

Set counter = Conn.Execute(\"SELECT Count(*) AS Count FROM statement\")
Set rs = Conn.Execute(\"SELECT * FROM statement\")

if rs.eof Then
    If counter(\"Count\") > 0 Then
        Randomize()
        Move = Int(counter(\"Count\") * Rnd) + 1
        for i = 1 to Move
            rs.Move Move
        next
    End If
    Response.Write rs(\"tekst\") & \"<br>\"
else
    response.write \"Der blev ik fundet noget\" & \"<br>\" 
end if

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

det er mere linket og hvordan linket ved at det er det stykke kode jeg skal have hjælp til

<%
if Request.Querystring(\"do\") = \"random\" then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"data.mdb\")

Set counter = Conn.Execute(\"SELECT Count(*) AS Count FROM statement\")
Set rs = Conn.Execute(\"SELECT * FROM statement\")

if rs.eof Then
    If counter(\"Count\") > 0 Then
        Randomize()
        Move = Int(counter(\"Count\") * Rnd) + 1
        for i = 1 to Move
            rs.Move Move
        next
    End If
    Response.Write rs(\"tekst\") & \"<br>\"
else
    response.write \"Der blev ik fundet noget\" & \"<br>\" 
end if

Set rs = Nothing
set counter = nothing
Conn.Close
Set Conn = Nothing
end if
%>

Så lav linket sådan: dinfil.asp?do=randow

Mange tak