<% Dim oConn Dim oRS Dim sSQL Dim SQL Dim sColor Dim strBanner Dim strUrlSitoClick Dim strDopo Dim iLen Dim Appo Dim strDataCreazione Dim strDataModifica Dim strDataCreazioneleft Dim strDataModificaleft Dim strConta Response.Write("") Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mdb-database\link.mdb")) ordina = Request.Querystring("ordina") strBuffer = Request.Querystring("Buffer") strDopo = DateAdd("d",-30, FormatDateTime(Now,0)) if ordina = 1 then sSQL = "SELECT * FROM link where buffer1testo='si'" elseif ordina = 2 then sSQL = "SELECT * FROM link where buffer1testo='si' order by data_creazione desc" elseif ordina = 3 then sSQL = "SELECT * FROM link where buffer1testo='si' order by data_modifica desc" elseif ordina = 4 then sSQL = "SELECT * FROM link where buffer1testo='si' order by click desc" elseif ordina = 5 then sSQL = "SELECT * FROM link where buffer1testo='si' order by click asc" elseif ordina = 6 then sSQL = "SELECT * FROM link where tipo_link = 'personal' and buffer1testo='si'" elseif ordina = 7 then sSQL = "SELECT * FROM link where tipo_link = 'photography' and buffer1testo='si'" else sSQL = "SELECT * FROM link where buffer1testo='si' order by click desc" end if 'Set oRS = oConn.Execute(sSQL) 'Set oRS = Server.CreateObject("ADODB.Recordset") '11/15/2004 5:01:55 PM SQL = "SELECT * FROM link where buffer1testo='si' and data_modifica > #" & strDopo & "#" Set oRS = oConn.Execute(sSQL) %> <% lingua = Request.Querystring("lingua") If lingua="it" Then %> <% else %>

WEBWEBWEB
Inserisci il tuo sito	Modifica il tuoi dati
Ordina per data creazione	Ordina per ultima modifica
Ordinamento discendente click	Ordinamento ascendente click
Pagine web personali	Portali di fotografia
Link con Banner	Versione in Inglese

WEBWEBWEB
Add Your Web Site	Modification Your Web Site
Order for Date Creation	Order for Last Modification
Descendent Order Click	Ascendent Order Click
Personal Web Site	Photography Portal Site
Banner Links	Italian version

<% end if %> <% Response.Write("") Response.Write("") Response.Write("

") Response.Write("") sColor = "#D6D3CE" strConta = 0 ' ---------------------------------------------------- Do While NOT oRS.EOF Dim valore strConta = strConta + 1 strDataCreazione = oRS("data_creazione").Value strdataModifica = oRS("data_modifica").Value strDataCreazioneleft = left(strDataCreazione,10) strdataModificaleft = left(strdataModifica,10) strDopoleft = left(strDopo,10) Rtrim(strDataCreazioneleft) Rtrim(strdataModificaleft) Rtrim(strDopoleft) ' Data creazione strAAAA = right(strDataCreazioneleft,4) strGG = left(strDataCreazioneleft,2) strMM = mid(strDataCreazioneleft,4,2) strDataCreazioneleft = strAAAA & strMM & strGG ' Data modifica strAAAA = right(strdataModificaleft,4) strGG = left(strdataModificaleft,2) strMM = mid(strdataModificaleft,4,2) strdataModificaleft = strAAAA & strMM & strGG ' Data validita strAAAA = right(strDopoleft,4) strGG = left(strDopoleft,2) strMM = mid(strDopoleft,4,2) strDopoleft = strAAAA & strMM & strGG 'Response.Write strAAAA & strMM & strGG strBanner = oRS("url_banner") valore = StrComp(strdataModificaleft,strDopoleft,0) if( valore > 0) Then if Len(strBuffer) = 0 Then strBuffer = "-" & oRS("id").Value & "-" else strBuffer = strBuffer & "-" & oRS("id").Value & "-" end if strUrlSitoClick = "click.asp?id="&oRS("id").Value Response.Write("") Response.Write("") if(StrComp(strDataCreazione,strdataModifica,0) = 0) Then Response.Write("") Response.Write("") Response.Write("") Response.Write(" "& oRS("click").Value & " ") end if oRS.MoveNext Loop oRS.Close Set oRS = oConn.Execute(sSQL) sColor = "white" For i=1 to strConta Appo = "-" & oRS("id").Value & "-" if(Instr(1, strBuffer, Appo, 0) = 0) then if sColor = "#E1C095" Then sColor = "#E8D6B3" Else sColor = "#E1C095" End If strBanner = oRS("url_banner") strUrlSitoClick = "click.asp?id="&oRS("id").Value if ordina = 8 and strBanner <> "http://" then Response.Write("") Response.Write("") Response.Write(" ") elseif strBanner = "http://" then Response.Write("") Response.Write("") Response.Write("") else Response.Write("") Response.Write("") Response.Write("") end if end if oRS.MoveNext If oRS.EOF Then Exit For Next if lingua="it" then Response.Write("") else Response.Write("") end if Response.Write(" " & oRS("nome_sito").Value & " New Site") if ordina = 8 and strBanner <> "http://" then Response.Write("") end if else Response.Write(" " & oRS("nome_sito").Value & " Updeted") end if Response.Write(" "& oRS("click").Value & " "& oRS("nome_sito").Value & "") Response.Write(" "& oRS("click").Value & " "& oRS("nome_sito").Value & " "& oRS("click").Value & " " & oRS("nome_sito").Value & " Numero di Link: "& strConta & " Number of Link: "& strConta & " ") Response.Write(" ") Response.Write(" ") %> <% Response.Write(" ") Response.Write("") 'Prepariamo i link per le altre pagine della lista Response.Write(" ") If ( pag > 1 and ordina = 8 and lingua ="it") Then Response.Write(" Pagina precedente ") elseif ( pag > 1 and lingua ="it") Then Response.Write(" Pagina precedente ") elseif ( pag > 1 and ordina = 8) Then Response.Write(" Previous ") elseif ( pag > 1) Then Response.Write(" Previous ") End If Response.Write(" ") If ( pag < oRS.PageCount and ordina = 8 and lingua ="it") Then Response.Write(" Pagina successiva ") elseif ( pag < oRS.PageCount and lingua ="it") Then Response.Write(" Pagina successiva ") elseif ( pag < oRS.PageCount and ordina = 8) Then Response.Write(" Next ") elseif ( pag < oRS.PageCount ) Then Response.Write(" Next ") End If Response.Write(" ") oRS.Close Set oRS = Nothing oConn.Close Set oConn = Nothing %>