<% if Request.Form("query") <> "" then set rs = server.CreateObject ("adodb.recordset") sql = "SELECT * FROM queries WHERE query = '" & Request.Form("query") & "'" rs.Open sql, conn, 3,3 if rs.EOF then rs.close sql = "INSERT INTO queries (query) VALUES ('" & Request.Form("query") & "')" rs.Open sql, conn, 3,3 else rs("hit") = rs("hit") + 1 rs.update end if set rs = nothing end if sql = "SELECT * FROM wg_photos WHERE photo_name like '%" & Request("query") & "%' and online=1 order by online_date DESC" %> Desktop Girls - Sexy Supermodels, Babes, Celebrities Wallpapers for your Desktop - Add a little spice to your desktop! Free, sexy and original wallpaper of the most beautiful women in the world.
" end if %> <% if nextTR = 2 then Response.Write "" end if end function query = "query" stdListRange = 9 %>
 

 Search Results:

<% function ShowRow() on error resume next nextTR = (rowcount-1) mod 3 if nextTR = 0 then Response.Write "

<% if rslist("hot") = true then%> &page=<%=ListAbsolutePage%>&query=<%=server.URLencode(Request ("query"))%>"> <%=rsList(" border=1 !width=100 height=75 src="<%=geturl_thumbs() & replace(rsList("photo_file"),".jpg",".jpg")%>">

<%=rsList("photo_name")%>
<%=rsList("photo_width") & "x" & rsList("photo_height") %>   (<%=round(rsList("photo_size")/1000)%>K)
From: <%=rsList("source")%>
Viewed <%=rsList("hit")%> times
Members Only


<%else%> &page=<%=ListAbsolutePage%>&query=<%=server.URLencode(Request ("query"))%>"> <%=rsList(" border=1 !width=100 height=75 src="<%=geturl_thumbs() & replace(rsList("photo_file"),".jpg",".jpg")%>">

<%=rsList("photo_name")%>
<%=rsList("photo_width") & "x" & rsList("photo_height") %>   (<%=round(rsList("photo_size")/1000)%>K)
From: <%=rsList("source")%>
Viewed <%=rsList("hit")%> times
Published <%=formatdatetime(rsList("online_date"),2)%>


<%end if%>

 
 

<% set conn = nothing %>