ho riscritto la pagina ma mi da un errore :
t


codice:
Type mismatch
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"



	
	
%>