<% 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" %> DesktopExtreme - Wallpaper For Your Desktop - Automobiles, Movies, Video Games, Landscapes and more! ONLY THE BEST and FREE