OSTRICH PAGE - Annunci

Imposta come pagina iniziale

Stampa questa pagina

Aggiungi ai preferiti

<%=GenHTML%>

Se Volete inserire un annuncio gratuito cliccate qui

Per vedere gli annunci effettuate questa scelta:

<% ID_NAZIONE = Request.QueryString("ID_NAZIONE") %> <% if(ID_NAZIONE="IT")then ID_REGIONE = Request.Querystring("ID_REGIONE") %> <% end if %>

Seleziona uno stato:
Seleziona una regione:

<% ID_NAZIONE = Request.QueryString("ID_NAZIONE") if IsNull(ID_NAZIONE) or(ID_NAZIONE="")then ID_NAZIONE="IT" end if ID_REGIONE = Request.Querystring("ID_REGIONE") if IsNull(ID_REGIONE) or(ID_REGIONE="")then ID_REGIONE="EMR" end if ID_RISORSA = Request.Querystring("ID_RISORSA") if IsNull(ID_RISORSA) or(ID_RISORSA="")then ID_RISORSA=1 end if CEFFRO = Request.Querystring("CEFFRO") if IsNull(CEFFRO) or(CEFFRO="")then CEFFRO=2 end if SQL = "SELECT * FROM " SQL = SQL & " tb_annunci2, tb_nazioni WHERE " SQL = SQL & " tb_nazioni.ID_NAZIONE = tb_annunci2.ID_NAZIONE " SQL = SQL & " AND ATTIVO_ANNUNCIO2 = -1 " ' SQL = SQL & " AND DATA_SCADENZA2 >= #" & Day(Date())&"/"&Month(Date())&"/"&Year(Date()) & "# " ' SQL = SQL & " AND tb_annunci2.ID_RISORSA = " & ID_RISORSA & " " SQL = SQL & " AND tb_annunci2.ID_NAZIONE = '" & ID_NAZIONE & "' " if(ID_NAZIONE="IT")then SQL = SQL & " AND tb_annunci2.ID_REGIONE = '" & ID_REGIONE & "' " end if SQL = SQL & " ORDER BY tb_annunci2.CEFFRO, tb_annunci2.DATA_ANNUNCIO2 DESC " OpenRS(SQL) if not(rs.BOF and rs.EOF)then CEFFRO = rs.Fields("CEFFRO").Value %> <% do until rs.EOF DATA_ANNUNCIO2 = rs.Fields("DATA_ANNUNCIO2").Value NOME_ANNUNCIO2 = rs.Fields("NOME_ANNUNCIO2").Value COGNOME_ANNUNCIO2 = rs.Fields("COGNOME_ANNUNCIO2").Value INDIRIZZO_ANNUNCIO2 = rs.Fields("INDIRIZZO_ANNUNCIO2").Value CITTA_ANNUNCIO2 = rs.Fields("CITTA_ANNUNCIO2").Value CAP_ANNUNCIO2 = rs.Fields("CAP_ANNUNCIO2").Value ID_PROVINCE = rs.Fields("ID_PROVINCE").Value TEL_ANNUNCIO2 = rs.Fields("TEL_ANNUNCIO2").Value EMAIL_ANNUNCIO2 = rs.Fields("EMAIL_ANNUNCIO2").Value TESTO_ANNUNCIO2 = rs.Fields("TESTO_ANNUNCIO2").Value TITOLO_ANNUNCIO2 = rs.Fields("TITOLO_ANNUNCIO2").Value NAZIONE = rs.Fields("NAZIONE").Value %> <% rs.MoveNext loop end if CloseRS() %>

<%if(CEFFRO=1)then%>CERCO<%else%>OFFRO<%end if%>
Date, author	Annuncio del <%=Day(DATA_ANNUNCIO2)&"/"&Month(DATA_ANNUNCIO2)&"/"&Year(DATA_ANNUNCIO2)%>, inserito da: <%=NOME_ANNUNCIO2&" "&COGNOME_ANNUNCIO2%>
Address	<%=INDIRIZZO_ANNUNCIO2%> <%=CITTA_ANNUNCIO2%> <%=CAP_ANNUNCIO2%><%if(ID_PROVINCE<>0)then%> (<%=REC_PROVINCIA(ID_PROVINCE)%>)<%end if%> - <%=NAZIONE%>
Phone, e-mail	<%if(TEL_ANNUNCIO2<>"")then%><%=TEL_ANNUNCIO2&","%><%end if%> <%=EMAIL_ANNUNCIO2%>
Title	<%=TITOLO_ANNUNCIO2%>
Text	<%=TESTO_ANNUNCIO2%>