%Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("mdb-database/nuovo.mdb")
strConn=strConn & ";pwd="
Conn.Open strConn
sql = "SELECT * FROM [Catalogo, Articoli] WHERE vetrina like 'si'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,1,3
randomize()
Conta = rs.recordcount
numeroCasuale = Int(Conta*Rnd() + 0)
rs.move numeroCasuale
%>
Zanussi Cucine industriali, Iralimpianti
|
|
| |
|
Dove Siamo |
| |
|
|
Iralimpianti
S.r.l. |
|
C.rso Roma 221 |
|
28883 Gravellona Toce |
|
Tel. 0323/840225 |
|
|
| |
|
|
|
|
|