<% '############################################################################################# '#### '#### Script : Mercatino V.1.0 '#### '#### Copyright (C) 2002 Roberto Gallo Marchiando '#### '#### Authore: Roberto Gallo Marchiando '#### E-mail: webmaster@freepuntonet.com '#### Web: http:www.freepuntonet.com '#### Date: 26/05/2002 '#### Linguaggio : ASP (vbscript) '#### Licenza: Script di libero utilizzo e può essere distribuito liberamente. '#### A patto che queste linee di testo restino intatte. '#### '############################################################################################# '#### '#### Informazione legale... '#### '#### FreePuntoNet.com Declina ogni responsabilità in caso di danno di qualsiasi natura, '#### a danni diretti, indiretti. '#### Pertanto se lei decide di usare questo script sul suo sito web accetta automaticamente '#### di assumersi le sue responsabilità. '#### '#### Se lei non è d'accordo su quando è stato detto non usi il mio codice sul suo sito web. '#### '#### Per problemi rigurdanti lo script contattare: '#### webmaster@freepuntonet.com '#### '############################################################################################## 'cat = Request.QueryString("CatID") 'Subcat = Request.QueryString("Subcat") 'categoria = Request.QueryString("categoria") cat = "8" Subcat = Request.QueryString("Subcat") categoria = "Tutti" %> Mercatino

 




Risultato per pagina
10  20  30

 
   - Regolamento
   - FAQ


Mercatino degli affari
<% sql = "SELECT * From SotCategorie where CategoriaID='" & cat & "' order by NomeCategoria" set rs = Conn.Execute (sql) IF rs.EOF then Response.Write "
Categoria non ancora definita
" Else End IF %>
<% Do while NOT rs.EOF ColNum = 1 Do while ColNum < 3 %> <% if NOT rs.EOF then rs.MoveNext end if ColNum = ColNum + 1 if NOT rs.EOF then %> <% END IF ColNum = ColNum + 1 Loop %> <% IF NOT rs.EOF then rs.MoveNext End IF Loop %>
"> &Subcat=<%=rs("CategoriaID")%>&categoria=<%=server.urlencode(categoria)%>&cat=<%=server.urlencode(rs("NomeCategoria"))%>"><%=rs("NomeCategoria")%> <% IDCategoria = rs("IDSottocategoria") sqlcount = "SELECT count(Titolo) FROM annunci where IDCategoria='" & IDCategoria & "' and show=yes" Set RScounts = Conn.Execute(sqlcount) rcounts = RScounts(0) Response.Write ("( " & rcounts & " )") Response.Write "
" Response.Write "
"& rs("DescrizioneSotCat")& "
" %>
 "> &Subcat=<%=rs("CategoriaID")%>&categoria=<%=server.urlencode(categoria)%>&cat=<%=server.urlencode(rs("NomeCategoria"))%>"><%=rs("NomeCategoria")%> <% IDCategoria= rs("IDSottocategoria") sqlcount = "SELECT count(Titolo) FROM annunci where IDCategoria='" & IDCategoria & "' and show=yes" Set RScounts = Conn.Execute(sqlcount) rcounts = RScounts(0) Response.Write ("( " & rcounts & " )") Response.Write "
" Response.Write "
"& rs("DescrizioneSotCat")& "
" RScounts.close set RScounts = nothing %>

 

<% Rs.close set Rs = nothing Conn.Close set Conn = nothing %>