Email contemporaneamente su due dbase diversi

[orcim]

Ciao a tutti, come mi succede spesso mi sono incartato...
tramite un form un utente si registra ad un dbase chiamato "utenti" inserendo i suoi dati personali, tra cui l'email; adesso mi è stato chiesto di creare un secondo dbase dove registrare solo le email degli iscritti chiamato "mailing_list", dalla quale sarà possibile rimuoversi online in qualsiasi momento.
E' possibile al momento della registrazione dal form unico che solo il campo email finisca anche nel secondo dbase mailing_list?
Grazie

[weppos]

1. apri una seconda connessione
2. crea una seconda query di inserimento.

[orcim]

Grazie, questo è il code che utilizzo:

'form
nome = Request.Form("nome")
cognome = Request.Form("cognome")
email = Request.Form("email")

'registra nel database
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = Application("dbconn")

objConn.Open strConn

strsql = "INSERT INTO tbl_login (nome, cognome, email)" 
strsql = strsql & " Values('" 
strsql = strsql & nome & "','" 
strsql = strsql & cognome & "','" 
strsql = strsql & email & "')" 

if err.number<>0 then response.write(err.description) 

objconn.execute(strsql)

procedo come? :master:

[orcim]

Procedo così:

'form
nome = Request.Form("nome")
cognome = Request.Form("cognome")
email = Request.Form("email")

'registra nel database
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = Application("dbconn")

objConn.Open strConn

strsql = "INSERT INTO tbl_login (nome, cognome, email)" 
strsql = strsql & " Values('" 
strsql = strsql & nome & "','" 
strsql = strsql & cognome & "','" 
strsql = strsql & email & "')" 

if err.number<>0 then response.write(err.description) 

objconn.execute(strsql) 

Set cn=Server.CreateObject("ADODB.Connection")
OpenStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/mailing_list.mdb")
cn.Open openStr

strsqlx = "INSERT INTO tblMailingList (Email)" 
strsqlx = strsqlx & " Values('" 
strsqlx = strsqlx & email & "')" 

cn.execute(strsqlx)

e funzionaaaaaa!!!!
Non lo posso credere !!!! :rollo:

[weppos]

Ricordati di chiuderle anche quelle connessioni.

[orcim]

Senz'altro!!!!:

.............
objConn.close
set objConn = Nothing
cn.close
set cn = Nothing