<%@LANGUAGE="VBSCRIPT"%>
<%
Dim categorie
Dim categorie_numRows
Set categorie = Server.CreateObject("ADODB.Recordset")
categorie.ActiveConnection = MM_amici_STRING
categorie.Source = "SELECT * FROM categoriefoto ORDER BY Campo1 ASC"
categorie.CursorType = 0
categorie.CursorLocation = 2
categorie.LockType = 1
categorie.Open()
categorie_numRows = 0
%>
<%
Dim foto__MMColParam
foto__MMColParam = "africa"
If (Request.QueryString("Campo1") <> "") Then
foto__MMColParam = Request.QueryString("Campo1")
End If
%>
<%
Dim foto
Dim foto_numRows
Set foto = Server.CreateObject("ADODB.Recordset")
foto.ActiveConnection = MM_amici_STRING
foto.Source = "SELECT * FROM foto WHERE Campo1 = '" + Replace(foto__MMColParam, "'", "''") + "' ORDER BY IdRecord DESC"
foto.CursorType = 0
foto.CursorLocation = 2
foto.LockType = 1
foto.Open()
foto_numRows = 0
%>
<%
Dim Repeat_categorie__numRowsHL
Dim Repeat_categorie__indexHL
Repeat_categorie__numRowsHL = -1
Repeat_categorie__indexHL = 0
categorie_numRows = categorie_numRows + Repeat_categorie__numRowsHL
Dim Repeat_foto__numRowsHL
Dim Repeat_foto__indexHL
Repeat_foto__numRowsHL = -1
Repeat_foto__indexHL = 0
foto_numRows = foto_numRows + Repeat_foto__numRowsHL
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
Disabili mentali: amici senza limiti
<%
'Horizontal Looper version 3
Repeat_categorie__indexHL=Repeat_categorie__indexHL+1
Repeat_categorie__numRowsHL=Repeat_categorie__numRowsHL-1
categorie.MoveNext()
if len(nested_categorie)<=0 then
nested_categorie = 1
end if
if ((Repeat_categorie__numRowsHL <> 0) AND (NOT categorie.EOF) AND (nested_categorie mod 3 = 0)) then
Response.Write "
"
end if
nested_categorie = nested_categorie + 1
'end horizontal looper version 3
Wend
%>
<%
' Horizontal Looper version 3
While ((Repeat_foto__numRowsHL <> 0) AND (NOT foto.EOF))
%>
<%
'Horizontal Looper version 3
Repeat_foto__indexHL=Repeat_foto__indexHL+1
Repeat_foto__numRowsHL=Repeat_foto__numRowsHL-1
foto.MoveNext()
if len(nested_foto)<=0 then
nested_foto = 1
end if
if ((Repeat_foto__numRowsHL <> 0) AND (NOT foto.EOF) AND (nested_foto mod 2 = 0)) then
Response.Write "
"
end if
nested_foto = nested_foto + 1
'end horizontal looper version 3
Wend
%>
Hai stampato una pagina del sito www.santegidio.org
<%
categorie.Close()
Set categorie = Nothing
%>
<%
foto.Close()
Set foto = Nothing
%>
