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 %>