Recuperare dati da 2 database....

[DeR]

Con questo script recupero i dati del cliente da un db
************************************************** ********
Dim sqlMail, rsMail
sqlMail = "SELECT * FROM tbclienti WHERE IDCliente ='" & cliente &"'"

Set rsMail = objConn.Execute(sqlMail)

If Not rsMail.EOF Then

Dim mail
Set mail = Server.CreateObject("CDO.Message")

mail.From = rsMail("Email")
mail.To = "xxxxxxxx@tin.it"

mail.Subject = "Ordine Cliente"
mail.TextBody = "I suoi dati per l'accesso sono: " & vbCrlf & vbcrlf &_
"UserID : "

mail.Fields("urn:schemas:httpmail:importance").Val ue = 2
mail.Fields("urn:schemas:mailheader:X-Priority").Value = 2
mail.Fields.Update()
mail.Send()
Set mail = Nothing


End If

rsMail.close
Set rsMail = Nothing
***********************************************
Ora nel corpo del messaggio dovrei recuperare dei dati dello stesso cliente, ma da un altro database, come posso fare, devo fare un'altra select?


KI MI AIUTA?

[Etilico]

si, devi utilizzare un'altra connessione per i dati dal secondo db.
In alternativa se la connessione che hai utilizzato prima non ti serve più puoi usare quella cambiando il percorso del database.

Chiaro?

[DeR]

prima parlavo di database, invece devo inviare una mail recuperando i dati da 2 tabelle, in una devo recuperare i dati del cliente, nell'altra devo recuperare gli acquisti.


Devo fare una cosa del genere?


*********************************

Dim sql2, rs2
sql2 = "SELECT * FROM tbcarrello WHERE IDCliente ='" & cliente &"'"

Set rs2 = objConn.Execute(sql2)

Dim sqlMail, rsMail
sqlMail = "SELECT * FROM tbclienti WHERE IDCliente ='" & cliente &"'"

Set rsMail = objConn.Execute(sqlMail)

If Not rsMail.EOF Then

Dim mail
Set mail = Server.CreateObject("CDO.Message")

'INVIO MAIL

End If

rsMail.close
Set rsMail = Nothing

........
.....
.....

[DeR]