<%
dim paragrafo,descrizione
dim codice, testo, cont,desc_trattamento
dim conn,rs,rs1,rs2
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=dati; UID=root;pwd=nedved11;"
set rs1=conn.execute("select descrizione from trattamenti where identif_trattamento = 'all'")
'ciclo per popolare i corsi inseriti
a=1
do while not rs1.EOF
response.write ""
for t=0 to a-1
'response.write ""&rs(t)&" "
identif_trattamento = rs1(0)
' x i test
'response.write("" & desc_corso & " ")
'da mettere nel server response.write("" & desc_corso & " ")
response.write (""& rs1(0) &"")
next
rs1.MoveNext
loop
conn.close
Set conn = NOTHING
set rs1=Nothing
%>
