% '############################################################################################# '#### '#### 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 '#### '############################################################################################## url = Request.QueryString("id") cat = Request.QueryString("CatID") catname = Request.QueryString("Cat") categoria = Request.QueryString("categoria") Subcat = Request.QueryString("Subcat") If url = "" Then Response.Redirect ("index.asp") End If If catname = "" Then Response.Redirect ("index.asp") End If ':::::::::::::::::::::::::::::::::::::::::: Contatore visite strSql = "UPDATE annunci " strSql = strSql & " SET annunci.hit = annunci.hit + 1 " strSql = strSql & " WHERE (annunci.ID= " & Request.QueryString("ID") & ");" conn.Execute (strSql) sql=("select * from annunci where id=" & url) set rs=conn.execute(sql) %>
|
|
Navigazione : Categoria : <%=categoria%> : <%=catname%> | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
![]() |
![]() |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
<% set strSql = nothing rs.Close set rs = nothing rst.close set rst = nothing conn.Close set conn = nothing %>