<%@ 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 & "

" & strCod & " - " & strNomePr & "

" objRS.MoveNext Loop objRS.Close objConn.Close Set objRS = Nothing Set objConn = Nothing %>

macchine agricole · giardinaggio · viabilità · forestale · attr. zootecniche · ricambi accessori · assistenza      usato · offerte · l'azienda · contatti · dove siamo