| ID | Codice | Nome | Descrizione | Prezzo | Foto | Marca | Vuoto | Dispo | Prenotato | E-Mail |
|---|
<%
Const ColonnaCod=1
Const ColonnaNome=2
Const ColonnaDescrizione=3
Const ColonnaPrezzo=4
Const ColonnaFoto=5
Const ColonnaMarca=6
Const ColonnaVuoto=7
Const ColonnaDispo=8
Const ColonnaPrenotato=9
Const ColonnaE_Mail=10
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = false
' Inserire Procedura automatica di lettura file
objExcel.Workbooks.Open("L:\! Martinucci\2015\Testi\Marazzi.xls")
Set objWorkbook = objExcel.Workbooks("Marazzi.xls").sheets("Foglio1")
riga= 2
Do While (objWorkbook.Cells(riga,ColonnaCod).Value <> "")
response.write "| " & objWorkbook.Cells(riga, ColonnaCod).Value & " | "+vbcrlf
response.write "" & objWorkbook.Cells(riga, ColonnaNome).Value & " | "+vbcrlf
response.write "" & objWorkbook.Cells(riga, ColonnaDescrizione).Value & " | "+vbcrlf
response.write "" & objWorkbook.Cells(riga, ColonnaPrezzo).Value & " |
"+vbcrlf
response.write "" & objWorkbook.Cells(riga, ColonnaFoto).Value & " | "+vbcrlf
response.write "" & objWorkbook.Cells(riga, ColonnaMarca).Value & " | "+vbcrlf
response.write "" & objWorkbook.Cells(riga, ColonnaVuoto).Value & " | "+vbcrlf
response.write "" & objWorkbook.Cells(riga, ColonnaDispo).Value & " | "+vbcrlf
response.write "" & objWorkbook.Cells(riga, ColonnaPrenotato).Value & " | "+vbcrlf
response.write "" & objWorkbook.Cells(riga, ColonnaE_mail).Value & " | "+vbcrlf
riga = riga + 1
Loop
objExcel.Quit
Set objExcel=Nothing
%>