Visualizzare un foglio EXCEL

Per mezzo di questo script è possibile visualizzare a video un foglio Excel

con i nomi dei rispettivi campi che formano il database aperto tramite la connessione

desiderata poi semplicemete si potrà fare file--> salva con nome--> scegliere tipo file

(excel)-->salva:

<%

Response.ContentType = "application/vnd.ms-excel"

Dim cn : Set cn = Server.CreateObject("ADODB.Connection")

Dim strConn

strConn = "driver={Microsoft Access Driver (*.mdb)};dbq="&_

server.MapPath("IL_NOME_DEL_NOSTRO_DATABASE.mdb")'OPZIONALE

---->&";PWD=LA TUA PASSWORD"

Dim sql

sql ="SELECT * FROM TABELLA"

cn.open strConn

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql, cn, , , adCmdText %>

<TABLE BORDER=1>

<TR>

<%

col = 2

For c = 0 to rs.Fields.Count - 1

%>

<TD BGCOLOR=RED><B><% = rs(c).Name %></B></TD>

<% Next %>

</TR>

<%

Do While Not rs.EOF

%>

<TR>

<% For c = 0 to rs.Fields.Count - 1

%>

<TD VALIGN=TOP ><% = rs(c) %></TD>

<% Next %>

</TR>

<%

rs.MoveNext

col = col + 1

Loop

rs.Close

%>