response.write problem

Jeg har et problem med en "random qoute" ..

Jeg kan ikke få den til at skrive noget ud fra databasen.. min kode ser sådan her ud:
<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/quote.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN %>

<% Sql = "Select count(*) as Found from quote"
Set Record =  myConn.Execute(Sql)
Ialt = Record("found")
Sql = "Select * from quote"
Set Record =  myconn.Execute(Sql)
Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst
For i = 1 to RandNum - 1
    Record.MoveNext
next
response.write ("quotes")
%>

og længere nede en lukning af db'en
<% myConn.Close
Set myConn = Nothing
%>
jeg har en db der hedder quote.mdb som ligger i /db/
og en tabel i db'en der hedder quote og en kollone der hedder quotes .. lidt rodet.. men fuck det.. tror jeg..

Hvad gør jeg forkert? den skal tage en random quote for hver gang man "refresher" .. eller hver gang man går ind på siden..

på forhånden tak

//TC