<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/public/Contatore.mdb") sql = "SELECT * FROM Dati" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql,conn,3,3 rs.MoveFirst VecchioNumero = rs.Fields("Accessi") rs.close NuovoNumero = VecchioNumero + 1 sql1 = "UPDATE Dati SET Accessi = " & NuovoNumero & "" conn.Execute sql1 conn.close %> NEW NETFUMETTI - Condizioni di vendita
 
 

 
 

cerca nel sito

 

inserisci una parola chiave
per trovare gli articoli che
stai cercando
 
 

 

CONDIZIONI DI VENDITA

 

Invio in contrassegno con spese a carico dell'acquirente pari a € 7.50

Ordine minimo € 25

Per ordini superiori ai 125 € spese postali offerte
(solo per l'Italia)

a presto. LORENZO