<%
dim paragrafo,descrizione
dim codice, testo, cont,desc_corso
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 identif_corso,desc_corso from corsi where par_num = 0 order by data_ins desc")
'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_corso = rs1(0)
desc_corso = rs1(1)
' x i test
'response.write("" & desc_corso & " ")
'da mettere nel server response.write("" & desc_corso & " ")
response.write("" & desc_corso & " ")
next
rs1.MoveNext
loop
conn.close
Set conn = NOTHING
set rs1=Nothing
%>
