:: FILOWEB.it: PAGINAZIONE SU COLONNE

 
		 <% dim idgal

 idgal=request.QueryString(" gal" )

 ' response.write(idgal)

Dim Con 

Set Con = Server.CreateObject(" ADODB.Connection" )

con.Open " driver={Microsoft Access Driver (*.mdb)};dbq="  & server.mappath(" /andb/anii.mdb" )

Dim rss 

Set rss = Server.CreateObject(" ADODB.Recordset" )

rss.Open " select * from foto where idgalleria=" &idgal&"  order by id Desc" , con %>

  < < PHOTO GALLERY > > </p>

<table border=" 0"  cellpadding=" 2"  cellspacing=" 2"  align=" center" >

<tr>

<% dim contatore

contatore = 0

 Do while NOT RSs.EOF %>

  <% if contatore = 3 Then

            contatore = 0

            Response.Write " </tr><tr>" 

        End If %>

<%Dim user

user=rss(" id" )

            Dim data

data=rss(" titolo" )



dim place

place=rss(" commento" )



dim filen

filen=rss(" file" )

' response.write(filen&" </br>" )

%>

      

    <td valign=" top" >

<table width=" 100%"  border=" 0"  align=" center"  cellpadding=" 0"  cellspacing=" 0" >

<td align=" center" >

<%response.write(" <a href=/anitadb/fotoa/" &filen&" ><img src=/anitadb/fotoa/" &filen&"  width=200 height=150 /" )%></a></td>

<td align=" center"  valign=" top" >

        <tr><td align=" left" ><font color=" #FF6600"  ><strong>

        <%response.write(data)%></strong></font></td>

        </tr>

     

      

        <tr><td align=" left" ><%response.write(place)%>

        </td>

      </tr>

<td align=" center" ></tr> </table>

 





        <p>

          <%contatore = contatore + 1

RSs.MoveNext 

  

Loop %>

  </tr> 

          

          <% RSs.Close

Set RSs = Nothing

con.Close

Set con=Nothing %>

</table>