<%
Set rsDaten=Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM qSummaries"
rsDaten.Open strSQL,conn,0,3
nTotalRecs = rsDaten(0)
if nTotalRecs <> 0 then
rsDaten.MoveNext
nTotalMax = rsDaten(0)
rsDaten.MoveNext
nTotalMin = rsDaten(0)
end if
rsDaten.Close
Randomize
intChoice = Int((nTotalMax - nTotalMin + 1) * Rnd + nTotalMin)
Set rs=Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * from contato where autonum="&intChoice &""
rs.Open strSQL,conn,0,3
strText=rs.Fields("nome")
strAutor=rs.Fields("comentario")
if not rs.EOF then %>
