<% Dim oConn Dim oRS Dim sSQL Dim sColor Dim strUrlSitoClick Dim iCiclo Dim iNumeroDownload Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/mdb-database/sfondi_db.mdb")) ordina = Request.Querystring("ordina") if ordina = 1 then sSQL = "SELECT * FROM sfondi" elseif ordina = 2 then sSQL = "SELECT * FROM sfondi order by click desc" elseif ordina = 3 then sSQL = "SELECT * FROM sfondi order by click asc" else sSQL = "SELECT * FROM sfondi" end if Set oRS = oConn.Execute(sSQL) Response.Write("
") 'Response.Write("

WALLPAPER

HOME PAGE

Wallpaper Vault - your ultimate guide to get the best free wallpapers from various categories easily!

Wallpaper Vault - your ultimate guide to get the best free wallpapers from various categories easily!

Descendent order

Ascendent order
") iCiclo = 0 iNumeroDownload = 0 Do While NOT oRS.EOF strUrlSitoClick = "/download_sfondi.asp?id="&oRS("id").Value iCiclo = iCiclo + 1 if (iCiclo = 1) then Response.Write("") end if Response.Write("") if (iCiclo = 4) then Response.Write("") iCiclo = 0 end if iNumeroDownload = iNumeroDownload + oRS("click").Value oRS.MoveNext Loop Response.Write("") Response.Write("
") Response.Write("") Response.Write("") Response.Write("") Response.Write("
"& oRS("click").Value & " Download 1024x768
") Response.Write("
") Response.Write("Number of Downloads --"& iNumeroDownload &"--


") Response.Write("
") oRS.Close Set oRS = Nothing oConn.Close Set oConn = Nothing %>