Ho questo file: nominativi.asp che dopo aver compilato un form (che si trova nella pagina: news_in.asp) mi dovrebbe andare a scrivere i dati digitati nel form in un db access (nella tabella tbl_estero).

Purtroppo si blocca alla riga 27 e mi dà il segg. errore:
Errore di run-time di Microsoft VBScript (0x800A01C2)
Numero errato di argomenti o assegnazione di proprietà non valida: 'costruisci_query'
/Sito_nuovo/estero/nominativi.asp, line 27

VOI MAGHI: potete darci un'occhiata?
Grazie
franci

<%
Option Explicit
'--------------------------------------------------------
'Purpose: applicazione per l'inserimento di un nominativo
'--------------------------------------------------------
%>


<%
Dim strConn, message
Dim ragionesociale, cat1, cat2, cat3, cat4, telefono, fax, sito, email, datains, id, nome

call Main()

Sub Main()
'--------------------------------------------------------
'Purpose: la logica dell'applicazione
'--------------------------------------------------------
Dim submitted, query, form
submitted = Request.QueryString("submitted")
id = Request.QueryString("id")
nome = Request.QueryString("nome")

response.write id
If submitted then
call vendemmia(form)
query = costruisci_query(ragionesociale,cat1,cat2,cat3,cat 4,telefono,fax,sito,email,datains,id)
strConn = Application("dbconn")
'questa e' in attrezzi_db.inc, ti ricordi? quindi ce l'abbiamo
call fai_query(strConn, query)
call quale_risultato(message)
else
%>


<%
end if
end Sub

Sub vendemmia(form)
'--------------------------------------------------------
'Purpose: raccogli i dati dalla form
'Commenti: corregge il problema di &quot;
'--------------------------------------------------------
'questo Replace lo facciamo per il carattere "&quot;"
'altrimenti la Database si confonde
ragionesociale = Replace(Request.Form("ragionesociale"),"'","''")
fax = Replace(Request.Form("fax"),"'","''")
telefono = Replace(Request.Form("telefono"),"'","''")
sito = Replace(Request.Form("sito"),"'","''")
email = Replace(Request.Form("email"),"'","''")
datains = Request.Form("datains")

end sub

Function costruisci_query(ragionesociale,cat1,cat2,cat3,cat 4,telefono,fax,sito,email,news,datains,id)
'--------------------------------------------------------
'Purpose: costruisce la query
'--------------------------------------------------------
response.write "hellO=" & id
Dim strsql
strsql = "INSERT INTO tbl_estero ( ragionesociale, cat1, cat2, cat3, cat4, telefono, fax, sito, email, datains, id)"
strsql = strsql & " Values('"
strsql = strsql & ragionesociale & "','"
strsql = strsql & cat1 & "','"
strsql = strsql & cat2 & "','"
strsql = strsql & cat3 & "','"
strsql = strsql & cat4 & "','"
strsql = strsql & telefono & "','"
strsql = strsql & fax & "','"
strsql = strsql & sito & "','"
strsql = strsql & email & "','"
strsql = strsql & datains & "#,'"
strsql = strsql & id & "')"

'se hai dei guai costruendo questa, metti un
Response.Write strsql & "
"
'cosi la vedi e la puoi accomodare
costruisci_query = strsql
End Function

Sub quale_risultato(message)
'--------------------------------------------------------
'Purpose: cronaca il risultato dell query e format una risposta
'--------------------------------------------------------
Select case message
case "ok"
response.write "Il nominativo è stato inserito."
response.write "

<div align='center'>Click to go back</div>"
case "not ok"
response.write "Si è verificato un errore, contatta l'amministratore!"
response.write "

<div align='center'>Click to go back</div>"
case else
response.write "Chiama subito l'amministratore!"
end select

end sub
%>