ho riscritto la pagina ma mi da un errore :
t
il codice della pagina è:
codice:
<%
CNN=Application("CNN")
set conn=Server.CreateObject("ADODB.Connection")
conn.open CNN
cr = split(request.form("cr"),",")
for i = 0 to Ubound(cr)
'response.write""&cr(i)&"
"
'next
ente = split(request.form("ente"),",")
for l = 0 to Ubound(ente)
'response.write""&ente(l)&"
"
'next
settore = split(request.form("settore"),",")
for w = 0 to Ubound(settore)
'response.write""&settore(w)&"
"
'next
mail_seg_settore = split(request.form("mail_seg_settore"),",")
for q = 0 to Ubound(mail_seg_settore)
'response.write""&mail_seg_settore(q)&"
"
'next
mail_seg_ente = split(request.form("mail_seg_ente"),",")
for a = 0 to Ubound(mail_seg_ente)
'response.write""&mail_seg_ente(a)&"
"
'next
mail_dir_ente = split(request.form("mail_dir_ente"),",")
for r = 0 to Ubound(mail_dir_ente)
'response.write""&mail_dir_ente(r)&"
"
'next
mail_dir_settore = split(request.form("mail_dir_settore"),",")
for t = 0 to Ubound(mail_dir_settore)
'response.write""&mail_dir_settore(t)&"
"
'next
'response.End()
qryx ="INSERT INTO autorita (cr, ente, settore, mail_seg_settore, mail_seg_ente, mail_dir_ente, mail_dir_settore )"&_
"VALUES ('"&cr&"' , '"&ente&"', '"&settore&"', '"&mail_seg_settore&"', '"&mail_seg_ente&"', '"&mail_dir_ente&"', '"&mail_dir_settore&"') "
response.write(qryx)
conn.execute(qryx)
next
next
next
next
next
next
next
conn.close
set conn=nothing
response.write "tutto ok"
%>