---

<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "driver={MySQL};server=localhost;database=jesse","jesse","busterb" archive_url="http://www.sillypuppies.com/kevin/album/archives/" blogurl="http://www.sillypuppies.com/kevin/album/" sql= "SELECT entry_text_more, entry_id, entry_title FROM mt_entry WHERE (entry_blog_id=4) and (entry_status=2) ORDER by rand(now()) LIMIT 5" Set rs = Conn.Execute(sql) if Err.Number <> 0 then Response.Redirect "error.asp" end if Do While NOT rs.eof padded = "000000" & rs("entry_id") padded = right(padded, 6) response.write("") response.write("") rs.movenext Loop rs.Close Set rs = nothing Conn.Close %>

---

Design © Quixotic Pixels; Photographs © Kevin's Pictures.