doppio inserimento

[forte78]

Ho questo tipo di salvataggio :



Sub Salva()
Dim sCodiceImmobile
Dim sFoto
Dim sSQL
Dim oCon
Dim sSQL2
Dim oCon2

Set oCon = Server.CreateObject("ADODB.Connection")
oCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/public/database1.mdb")


sSQL = "insert into tab1(codiceimmobile,testopubblicita,testatapubblic ita,datapubblicita,pubblicitasino,foto) "
sSQL = sSQL & "select codiceimmobile,testopubblicita,testatapubblicita,N ow(),pubblicitasino,'{0}' "
sSQL = sSQL & "from immobili where codiceimmobile="

For Each sCodiceImmobile In Request.Form("InviaPubblicita")
sFoto = Request.Form("Foto_" & sCodiceImmobile)
oCon.execute Replace(sSQL,"{0}",sFoto) & sCodiceImmobile
Next

oCon.Close



Set oCon = Nothing





End Sub



se volessi inserire lo stesso numero di campi ma in una tabella diversa di un db diverso

esempio :

attualmente inserisci questi campi su tab1 che sta in database1.mdb

vorrei fare la stessa cosa inserendo contemporaneamente anche su tab1 ma in database2.mdb

fatemi sapere come.

Ciao grazie

[Grambo]

rifai

Set oCon = Server.CreateObject("ADODB.Connection") 
oCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/public/database1.mdb")


sSQL = "insert into tab1(codiceimmobile,testopubblicita,testatapubblicita,datapubblicita,pubblicitasino,foto) "
sSQL = sSQL & "select codiceimmobile,testopubblicita,testatapubblicita,Now(),pubblicitasino,'{0}' "
sSQL = sSQL & "from immobili where codiceimmobile="

For Each sCodiceImmobile In Request.Form("InviaPubblicita")
sFoto = Request.Form("Foto_" & sCodiceImmobile)
oCon.execute Replace(sSQL,"{0}",sFoto) & sCodiceImmobile
Next

oCon.Close



Set oCon = Nothing

cambiando l'MapPath

[forte78]

si ma x l'aggiunta di un nuovo mdb ?

cioè contemporaneamente inserirli ?


ho provato cosi

ma nn inserisce nulla
oCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/public/database1.mdb")


oCon1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/public/database2.mdb")



ho cambiato ssql ma niente fatemi sapere

[Roby_72]

oCon1.execute Replace(sSQL,"{0}",sFoto) & sCodiceImmobile

Roby