Creare una funzione di connessione

[andgiaim]

salve a tutti,
vorrei creare una funzione per la connessione al database in modo da non dover ogni volta aprire la connessione al database.

nel mio codice c'è un errore:

<%
Function conn
strConn = "dsn=conn_reg;"
set conn = Server.CreateObject("ADODB.Connection")
End Function
%>


<%
conn.Open strConn
email1= request.form("nomeEmail")
email2= request.Form("chiocciola")
email3= request.Form("nomeDominio")
email4= request.Form("estensioneDominio")
ordineNumerico = Request.Form("ordine")
email = email1&email2&email3&email4
SQL = "Insert into email(ordine, indirizzoemail) values('"&ordineNumerico&"',"&"'"&email&"')"

conn.Execute (SQL)
conn.Close
set conn = Nothing
%>

Grazie

Andrea

[Roby_72]

SQL = "Insert into email(ordine, indirizzoemail) values('"&ordineNumerico&"','"&email&"')"

Roby

[andgiaim]

Ciao,
Vorrei capire dove sbaglio.

[Roby_72]

Se mi dici l'errore magari...

Roby

[andgiaim]

Mi da un errore generico:

HTTP 500 - Errore interno del server
Internet Explorer

penso che l'errore stia nel seguente codice:

(gli puoi dare un'occhiata?)

<%
Function conn
strConn = "dsn=conn_reg;"
set conn = Server.CreateObject("ADODB.Connection")
End Function
%>


<%
conn.Open strConn
....................

[Roby_72]

Il dsn che usi l'hai creato? O l'hai copiato da qualche parte?

Roby

[andgiaim]

è quello che ho creato con l'ODBC di sistema

[Roby_72]

Ok allora dal menu strumenti --> opzioni internet --> avanzate di IE togli la spunta dalla voce "Mostra messaggi di errore HTTp brevi"

Roby

[andgiaim]

Errore di run-time di Microsoft VBScript error '800a01c2'

Numero errato di argomenti o assegnazione di proprietà non valida: 'conn'

/reg/passaggioEmail.asp, line 34


la linea di errore corrisponde al seguente codice:

conn.Open strConn

[andgiaim]

puoi aiutarmi per favore?