| |
| <%=GenHTML%> |
| |
| |
| |
| Se Volete inserire un annuncio gratuito cliccate qui |
| Per vedere gli annunci effettuate questa scelta: |
<%
ID_NAZIONE = Request.QueryString("ID_NAZIONE")
%>
|
| |
<%
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
%>
| <%if(CEFFRO=1)then%>CERCO<%else%>OFFRO<%end if%> |
<%
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
%>
| 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%> |
|
<%
rs.MoveNext
loop
end if
CloseRS()
%>
|
| Se Volete inserire un annuncio gratuito cliccate qui |
|
|
|
|
|
| Non sei registrato a OSTRICHPAGE, registrati e potrai accedere a molti servizi tra cui ..... |
|
|
|
| Inserisci qui la chiave di ricerca |
|
|
|
|
|
| Questo mese abbiamo scelto XXXXXX per dfgdgjgh dg hdfhgjdfgjhj |
|
| |
| Contatta |
| |
| per questo spazio |
| |
| |
| contatta |
| |
| per questo spazio |
| |
|
|
| |
|
Patologie dello struzzo e degli altri rattiti
Fritz Huchzermeyer |
|
| Per ricevere regolarmente informazioni connesse a OSTRICHPAGE e a tutto il mondo dello struzzo. |
|
|