<%@LANGUAGE="VBSCRIPT"%>
<%
Dim r1__MMColParam
r1__MMColParam = "1"
If (Request.QueryString("sezione") <> "") Then
r1__MMColParam = Request.QueryString("sezione")
End If
%>
<%
Dim r1
Dim r1_numRows
Set r1 = Server.CreateObject("ADODB.Recordset")
r1.ActiveConnection = MM_conn_STRING
r1.Source = "SELECT * FROM portfolio WHERE sezione = '" + Replace(r1__MMColParam, "'", "''") + "' AND foto LIKE '" + request.QueryString("gallery") + "%' ORDER BY posizione;"
r1.CursorType = 0
r1.CursorLocation = 2
r1.LockType = 1
r1.Open()
r1_numRows = 0
'q="SELECT * FROM portfolio WHERE sezione = '" + Replace(r1__MMColParam, "'", "''") + "' AND foto LIKE '" + request.QueryString("gallery") + "*' ORDER BY posizione;"
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
r1_numRows = r1_numRows + Repeat1__numRows
%>
Documento senza titolo
<%=q%>
<%if not (r1.EOF) then %>
<%
While ((Repeat1__numRows <> 0) AND (NOT r1.EOF))
%>