<% dim conn Set conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("_private/news.mdb") conn.open DSN Set rs=Server.CreateObject("ADODB.RecordSet") Sql="Select * from news where tipo='CARD' order by prog" rs.open sql,conn %> ]] RIGANTE [[ Costruzione Macchine Industriali Gru Semoventi Gruppi Elettrogeni a Bisceglie
 
  USATO DIESEL  
 
<% IF rs.eof then response.write "

AL MOMENTO NON VI E' ALCUNA PUBBLICAZIONE DISPONIBILE" end if %>  <% while not rs.eof strTitolo=replace(rs("titolo"),chr(13)&chr(10),"
") strDesc=replace(rs("descrizione"),chr(13)&chr(10),"
") img=trim(rs("immagine")) strImg="" if img<>"" then img=lcase(img) if instr(1,img,"pdf")>0 or instr(1,img,"xls") or instr(1,img,"wmv")>0 then strImg="doc" else strImg="foto" end if end if rs.moveNext %> <% wend %>

<%=strTitolo%>    ( richiedi informazioni )

<%=strDesc%>

<%=strImg%>

 
 
 



VISUALIZZA ANCHE
I CARRELLI ELETTRICI

 

 

 

Rigante G. Via G. Bovio 334
70052 Bisceglie (Ba) Italy
Tel. (+39) 080.395.5781
Fax (+39) 080.222.0335
Fax (+39) 080.214.0260
E-mail: info@rigante.it

        home page 

 

 

 

 

 

 

 

Rigante G. Via G. Bovio 334
70052 Bisceglie (Ba) Italy
Tel. (+39) 080.395.5781
Fax (+39) 080.222.0335
Fax (+39) 080.214.0260
E-mail: info@rigante.it

        home page 

 

 

 

 

 

   

<% rs.close set rs=nothing conn.close set conn=nothing %>