<%@ Language=VBScript %> <% Option Explicit Response.Buffer = True Response.Expires = 0 Dim objConn Dim objRS Dim strCod Dim strNomePr Dim strImgPr Dim strSQL Dim strHTML Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") objConn.ConnectionString = Application("strConn") objConn.Open strSQL = "SELECT IDSchedaProdotto, chrCodiceProdotto, chrNomeProdotto, chrPathImmagine FROM schedaprodotto" strSQL = strSQL & " WHERE IDCliente = '" & Application("idCliente") & "'" strSQL = strSQL & " AND idLingua = " & Request.QueryString("idLingua") strSQL = strSQL & " AND chrCodiceProdotto LIKE '" & Request.QueryString("cod") & "%'" strSQL = strSQL & " ORDER BY intOrdVisual;" objRS.ActiveConnection = objConn objRS.Source = strSQL objRS.Open ' If objRS.BOF Or objRS.EOF Then ' Response.End ' End If Do While Not objRS.EOF strCod = objRS.Fields("chrCodiceProdotto").Value strCod = Right(strCod, Len(strCod) - Len(Request.QueryString("cod"))) ' elimina la testata del codice strNomePr = objRS.Fields("chrNomeProdotto").Value strImgPr = objRS.Fields("chrPathImmagine").Value strHTML = strHTML & "" strHTML = strHTML & "
" strHTML = strHTML & "" strHTML = strHTML & "" & strNomePr & "" & strCod & " - " & strNomePr & "
" objRS.MoveNext Loop objRS.Close objConn.Close Set objRS = Nothing Set objConn = Nothing %> F.LLI CIPRIANI - AZIENDA - Pagina 2
macchine agricole · giardinaggio · viabilità · forestale · attr. zootecniche · ricambi accessori · assistenza     Torna alla Home Page

F.LLI CIPRIANI S.N.C.

Con il passare del tempo e maturando sempre più professionalmente, siamo arrivati a vendere ed a riparare anche macchine ed attrezzature per il giardinaggio, potendo così offrire alla nostra clientela una vastissima gamma di prodotti e macchinari, sia il nuovo che l'usato, ed un efficentissimo servizio di assistenza e manutenzione.
usato · offerte · l'azienda · contatti · dove siamo