<% '############################################################################################# '#### '#### 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) %> Scheda

 Navigazione : Categoria : <%=categoria%> : <%=catname%>
 
 
       
Scheda

 

 

 Visto ( <%=RS("hit")%> )


Numero ID

 <%=RS("iD")%>

&catID=<%=RS("iDCategoria")%>&subcat=<%=RS("IDsottocat")%>&categoria=<%=RS("Categoriatxt")%>&cat=<%=RS("SotCategoriatxt")%>', 600, 530, 'yes')">Stampa annuncio

Oggetto

 <%=RS("Titolo")%>

Inserito il

 <%=RS("DataPost")%>

Scade il

 <%=RS("DataDeletePost")%>


 ID utente  <%=RS("Nome")%>

Città

 <%if RS("citta") <> "" then %><%=RS("citta")%><% else %>----<%end if %>
 E-mail  ">Casella postale

Provincia

 <%if RS("provincia") <> "" then %><%=RS("provincia")%><% else %>----<%end if %>
 Prezzo  <%if RS("prezzo") <> "" then %>€ <%=RS("prezzo")%><% else %>----<%end if %>    

Foto

<% if rs("file1") <> "" or rs("file2") <> "" or rs("file3") <> "" or rs("file4") <> "" then %> <% if rs("file1") <> "" then %> &immagine=<%=RS("file1")%>', 600, 530, 'yes')">" width="40" height="40" alt="immagine"><%end if%> <% if rs("file2") <> "" then %> &immagine=<%=RS("file2")%>', 600, 530, 'yes')">" width="40" height="40" alt="immagine"><%end if%> <% if rs("file3") <> "" then %> &immagine=<%=RS("file3")%>', 600, 530, 'yes')">" width="40" height="40" alt="immagine"><%end if%> <% if rs("file4") <> "" then %> &immagine=<%=RS("file4")%>', 600, 530, 'yes')">" width="40" height="40" alt="immagine"><%end if%> <% else Response.Write "Nessuna immagine disponibile" end if %>

Descrizione

<%=RS("Descrizione")%>
 

&catID=<%=Request.QueryString("catID")%>&subcat=<%=Request.QueryString("subcat")%>&categoria=<%=Request.QueryString("categoria")%>&cat=<%=Request.QueryString("cat")%>" onsubmit="return valid (this)">
">
 Contatto immediato

Contattato ( <%=RS("Contatti")%> )

 
 Tramite questo Modulo potrà contattare immediatamente il destinatario
 

Nome   

Cognome   

La sua E-mail   

Oggetto   

" maxlength=43>

Richiesta   

 
 

 

<% set strSql = nothing rs.Close set rs = nothing rst.close set rst = nothing conn.Close set conn = nothing %>