Le suonerie pių visualizzate <% rs.close sql="SELECT * FROM Files ORDER BY Download DESC" rs.open sql,conn i=0 do until i=5 or rs.eof %> <% rs.movenext i=i+1 loop %> Canzone Visualizzazioni " target="popup" onClick="popup('suonerie.asp?downloadid=<% =rs("id") %>', 510, 520, 50, 50); return false;"><% =rs("nomefile") %> <% =rS("download") %>     Oppure entra nel vecchio archivio dove trovi tante altre suonerie messe in ordine alfabetico   SUONERIE NOKIA Scegli la lettera iniziale della canzone: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z SUONERIE ERICSSON Scegli la lettera iniziale della canzone: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z SUONERIE SIEMENS Scegli la lettera iniziale della canzone: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

<% end if %> <% if Request.QueryString("Recensioneid") = "" AND Request.QueryString("downloadid") = "" AND Request.QueryString("newsid") = "" AND Request.QueryString("cat") <> "" Then %>

<% perpage=15 categoria = Request.QueryString("cat") subcat=request.querystring("subcat") if subcat="" then sql = "SELECT COUNT(*) AS scriptcont FROM files WHERE (Cat = " & categoria & ")" else sql = "SELECT COUNT(*) AS scriptcont FROM files WHERE (SubCat = " & subcat & ")" end if rs.close rs.Open sql, conn scriptcont = rs("scriptcont") set sql = nothing rs.Close set sql = nothing if request("p") = "" then pagina=1 else pagina=request("p") end if totpagine=scriptcont/perpage totpagineint=int(totpagine) if totpagine=totpagineint then totpagineshow=totpagineint elseif totpaginetotpagineint then totpagineshow=int(totpagine+1) end if %>Visualizzazione pagina <% =pagina %> di <% =totpagineshow %> <% if request("paging") = "true" then if subcat="" then strsql="SELECT * FROM files where ((cat=" & categoria & ")and(id < " & request("toid") & ")) ORDER BY Id DESC" else strsql="SELECT * FROM files where ((subcat=" & subcat & ")and(cat=" & categoria & ")and(id < " & request("toid") & ")) ORDER BY Id DESC" end if else if subcat="" then strSQL = "SELECT * FROM files where (cat = " & categoria & ") ORDER BY Id Desc" else strSQL = "SELECT * FROM files where ((subcat=" & subcat & ")and(cat=" & categoria & ")) ORDER BY Id Desc" end if end if rs.Open strSQL, conn i=1 %> <% do until rs.EOF or i > perpage i=i+1 nome = rs("nomefile") id = rs("id") download = rs("Download") Inserito = rs("Inserito") %> <% toid=rs("id") rs.Movenext if not rs.eof then idif=rs("id") else idif="" end if loop set strsql = nothing rs.Close %> <% =nome %> Inserito il: <% =inserito %> - Downloads: <% =download %> <% if pagina > 1 then response.write "" end if if idif="" then response.write "Fine records" else pagnext=pagina+1 response.write "" end if %>

<% elseif Request.QueryString("recensioneid") = "" AND Request.QueryString("cat") = "" AND Request.QueryString("downloadid") <> "" AND Request.QueryString("newsid") = "" Then downloadid = Request.QueryString("downloadid") sql = "SELECT * FROM Files Where id like '" & downloadid & "'" rs.Open sql, conn if rs.EOF Then response.write("Il file che cerchi è assente, se sei sicuro di aver cliccato il suo link all'interno del sito contatta il webmaster") else ip = Request.ServerVariables("REMOTE_ADDR") preip = rs("Ip") ip = preip & " - " & ip file = rs("NomeFile") Descrizione = rs("Descrizione") download = rs("download") download = download + 1 %>

Visualizzazione di <% =file %>:
<% =Descrizione %>
Questa suoneria č stata visualizzata: <% =download %> volte
<% set sql = nothing rs.Close sql = "UPDATE Files set Download = '" & download & "', Ip = '" & ip & "' where id like '" & downloadid & "'" rs.Open sql, conn %> <% end if %> <% end if %>