<% 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 linknew where buffer1testo='si'" elseif ordina = 2 then sSQL = "SELECT * FROM linknew where buffer1testo='si' order by data_creazione desc" elseif ordina = 3 then sSQL = "SELECT * FROM linknew where buffer1testo='si' order by data_modifica desc" elseif ordina = 4 then sSQL = "SELECT * FROM linknew where buffer1testo='si' order by click desc" elseif ordina = 5 then sSQL = "SELECT * FROM linknew where buffer1testo='si' order by click asc" elseif ordina = 6 then sSQL = "SELECT * FROM linknew where tipo_link = 'personal' and buffer1testo='si'" elseif ordina = 7 then sSQL = "SELECT * FROM linknew where tipo_link = 'photography' and buffer1testo='si'" else sSQL = "SELECT * FROM linknew 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 linknew where buffer1testo='si' and data_modifica > #" & strDopo & "#" Set oRS = oConn.Execute(sSQL) %> <% lingua = Request.Querystring("lingua") If lingua="it" Then %>
<% else %>
<%= Request.ServerVariables("HTTP_HOST") %>
Inserisci il tuo sito Modifica il tuoi dati Versione in Inglese
Ordina per data creazione Ordina per ultima modifica Link con Banner
Ordinamento discendente click Ordinamento ascendente click Portali di fotografia
Pagine web personali
PHOTOLANDSCAPES
Add Your Web Site Modification Your Web Site Italian version
Order for Date Creation Order for Last Modification Banner Links
Descendent Order Click Ascendent Order Click Personal Web Site
Photography Portal Site
<% end if %> <% Response.Write("
") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("
") Response.Write("") sColor = "#e9e9e9" strConta = 0 inumero = 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 if inumero = 0 Then Response.Write("") inumero = 1 Else inumero = 0 End If 'Response.Write("") if(StrComp(strDataCreazione,strdataModifica,0) = 0) Then Response.Write("") Else Response.Write("") End If end if oRS.MoveNext Loop oRS.Close Set oRS = oConn.Execute(sSQL) sColor = "white" inumero = 0 For i=1 to strConta Appo = "-" & oRS("id").Value & "-" if(Instr(1, strBuffer, Appo, 0) = 0) then if sColor = "#E1C095" Then sColor = "#e9e9e9" Else sColor = "#e9e9e9" End If strBanner = oRS("url_banner") strUrlSitoClick = "click.asp?id="&oRS("id").Value if ordina = 8 and strBanner <> "http://" then if inumero = 0 Then Response.Write("") inumero = 1 Else inumero = 0 End If 'Response.Write("") 'Response.Write("") if inumero = 0 Then Response.Write("") End If elseif strBanner = "http://" then if inumero = 0 Then Response.Write("") inumero = 1 Else inumero = 0 End If 'Response.Write("") Response.Write("") if inumero = 0 Then Response.Write("") End If else if inumero = 0 Then Response.Write("") inumero = 1 Else inumero = 0 End If 'Response.Write("") Response.Write("") if inumero = 0 Then Response.Write("") End If 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("click").Value & "" & oRS("nome_sito").Value & "") if ordina = 8 and strBanner <> "http://" then Response.Write("") end if else Response.Write("" & oRS("nome_sito").Value & "") end if if inumero = 0 Then 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 %>