|
The Potts
Family Tree
<%
Dim number
Randomize ' Initialize random-number generator.
number = Int((831 * Rnd) + 1) ' Generate random value between 1 and 765.
set Conn = server.createobject("adodb.connection")
Conn.Open "DSN=PottsNet"
SQLstmt = "select * from quotes where id = "& number &""
set rs = conn.execute(SQLStmt)
%>
"<%= rs("quote") %>"
<%= rs("source") %> |