Invio dati da form a db (perchè non va?)

[frappy66]

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
%>

[Enrique_Rojas]

qual'è la linea 27?

[frappy66]

Scusate è questa:
query = costruisci_query(ragionesociale,cat1,cat2,cat3,cat 4,telefono,fax,sito,email,datains,id)

[weppos]

 query = costruisci_query(ragionesociale,cat1,cat
2,cat3,cat4,telefono,fax,sito,email,data
ins,id)

Questo pezzo presumo vada sulla stessa linea.
PS. Ma perchè ti sei complicato la vita in quel modo con quel sistema di Sub & Company?

[weppos]

Originariamente inviato da frappy66
Scusate è questa:
query = costruisci_query(ragionesociale,cat1,cat2,cat3,cat 4,telefono,fax,sito,email,datains,id)

Centrato alla cieca!

[frappy66]

Sì l'ho scritta tutta attaccata!!
Non sono brava e sto cercando di adattare del codice che ho trovato in giro?

[weppos]

Originariamente inviato da frappy66
Sì l'ho scritta tutta attaccata!!
Non sono brava e sto cercando di adattare del codice che ho trovato in giro?

Lo avevo immaginato.
Cmq stai procedendo per una via più complessa di quello che potresti fare.

Inserendo tutto sulla stessa linea genera ancora errori?

Inoltre notavo

 call Main()

Sub Main() 
...
End Sub

Prima chiami una Sub e poi la crei.
Non converrebbe fare il contrario?

[frappy66]

Sì da ancora errore!!
Hai qualche suggerimento? Ti prego sono assolutamente bloccata??

[vaargard]

controlla che le variabili che passi siano piene ...

[frappy66]

Mi puoi fare un esempio pratico, please?