ho una tabella dove ho le risposte di un questionario
in ogni colonna posso avere 4 valori diversi (solo 4)
da un db estraggo i valori ( testo) e creo un excel .
prima di creare l'excel vorrei fare un replace dei dati scriverlo solo nell'excel.

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 
%>