|
|
TODD LOST HIS SUNGLASSES
Several years ago Todd left his favorite sunglasses at my house.
Instead of giving them back, I'm traveling the world taking pics of hot girls
wearing them. Over the years I've been emailing him the pics - just to rub it
in. And to piss him off even more, I've created this site ...
|
|
|
|
|
|
|
|
<%
'Establish a connection with data source.
Set cnn = Server.CreateObject("ADODB.Connection")
'response.Write(connectstr)
cnn.Open connectstr
'Instantiate a Recordset object.
Set rs = Server.CreateObject("ADODB.Recordset")
'Open a recordset using the Open method
'and use the connection established by the Connection object.
strSQL = "SELECT * FROM entries WHERE unapprove = '0' ORDER BY rand() LIMIT 6"
rs.Open strSQL, cnn
do until rs.EOF
'user details
if errNumber <> 0 then
'warning !
response.redirect("./list-funfacts.asp?reason=nofunfact")
response.end
else
girlid = rs("girlid")
girlname = rs("girlname")
girlimage = rs("girlimage")
%>
|
<%
end if
rs.movenext
loop
%>
|
|
|