codice:
<%
Response.ContentType = "application/vnd.ms-excel"
' Dichiara variabili
Dim risposte
Dim i
' Crea un array
risposte = Array("sono assolutamente d accordo", "sono abbastanza d accordo", "non sono del tutto d accordo", "non sono affatto d accordo")
Dim cn : Set cn = Server.CreateObject("ADODB.Connection")
Dim strConn
strConn = Application("CNN")
Dim sql
sql ="SELECT id, aaz, aru, sesso, d1, d2, d3, d4, d5, d6, d7, d8, d9, d10, d11, d12, d13, d14, d15, d16, d17, d18, d19, d20, d21, d22, d23, d24, d25, d26, d27, d28, d29, d30, d31, d32, con FROM dati"
cn.open strConn
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, , , adCmdText %><title>ESTRAZIONE DI TUTTI I DATI</title>
<body bgcolor="#CCFFFF" text="#0000FF"><TABLE BORDER=1>
<TR>
<%
col = 2
For c = 0 to rs.Fields.Count - 1
%>
<TD BGCOLOR=RED><% = rs(c).Name %></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
' Scorri l'array
for i = 0 to Ubound(aryPersonaggi)
response.write(replace(risposte(i),"sono assolutamente d accordo","1"))
response.write(replace(risposte(i),"sono abbastanza d accordo","2"))
next
Loop
rs.Close
%>
Rispondi quotando
