| Catálogos para Download | |
|
Fitas Flexíveis - Uso Interno / Externo ELC-15W - Luminária Downlight Circular de Embutir em Forro de Gesso ELT8BFDT - Lâmpada Tubular 18W 1,20m Difusor Transparente ELP-10 - Lâmpada PAR30 10W E27 ELP-16 - Lâmpada PAR38 16W E27 ELP-17 - Lâmpada PAR38 17W E27 ELARQ-30W - Luminária Arandela Retangular 30W EPRJ-15D - Projetor 15W Alumínio Fundido EPRJ-30D - Projetor 30W Alumínio Fundido ESP1W/3W - Sinalizadores de Obstáculos EWW30-1 - Wall Washer 30W IP68 EWW36-1 - Wall Washer 36W IP68 LEDSTAR 130W - Luminária IP66 de Uso Externo
|
<%
set ecceldb = Server.CreateObject("ADODB.Connection")
ecceldb.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=e:\home\eccel\dados\OUTPOST.mdb"
%>
<%
Dim checa
checa="no"
Function aleati
Randomize
Do Until checa = "yes"
aleati = int((Rnd * 4100)+1)
ale = aleati
set catSet_cat = ecceldb.Execute("select * from baz_product_categories where prod_id = "&aleati&"")
categoria = catSet_cat("cat_id")
if categoria = 150 then
produto = catSet_cat("prod_id")
Exit Do
else
end if
Loop
end Function
set catSet = ecceldb.Execute("select * from baz_products where prod_id= "&aleati&"")
p_prod_id = catSet("prod_id")
p_name = catSet("prod_name")
p_desc = catSet("prod_desc")
p_image = catSet("prod_image")
%>
|
 |
<%
%>