<%@ language="vbscript" %> <% Response.ExpiresAbsolute = now()-2 Response.Addheader "pragma","no-cache" Response.Addheader "cache-control","private" Response.Cachecontrol="no-cache" %> Azienda La Selva: vendita selvaggina, commercializzazione selvaggina, import, export e prenotazione di selvaggina: fagiani, starne, pernici, quaglie da volo, lepri di cattura, lepre nazionale, leprotti nazionali. Su prenotazione ungulati, daini, cervi, mufloni, caprioli, cinghiali
 
INSERISCI IL CODICE DELLA LEPRE CHE VUOI RICERCARE
CODICE LEPRE
Risultati della Ricerca
<% 'conn.close 'set conn=Nothing %>
<% dim codice, strWHERE RecordsPerPagina = 8 page = Request("page") codice= Request("codice") 'TIPO= Request("TIPO") RecordsPerPagina = 16 RecordsPerRiga= 3 page = Request("page") if page="" then page=1 Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath ("../../dati/data.mdb") if codice<>"" then strWHERE="(Num_Microchip like '%" & codice & "%')" end if if strWHERE<>"" then sql = "SELECT * FROM Lepri where " & strWHERE else sql = "SELECT * FROM lepri WHERE Num_Microchip='0'" end if rs.open sql, conn, 1, 3 'SET RS = Con.Execute(sql) WHILE NOT RS.EOF n = n + 1 resto = n Mod 2 if resto = 0 then colore = "#F1E0CD" else colore = "#EEC2C0" end if %> <% RS.MoveNext WEND %>
Codice Lepre
Scarica la SCHEDA