assegnazione valore

[forte78]

ho questo script :



Sub SalvaPubblicita()
Dim sCodiceImmobile
Dim sFoto
Dim sSQL
Dim oCon

Set oCon = Server.CreateObject("ADODB.Connection")

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

sSQL = "insert into pubblicita (codiceimmobile,testopubblicita,testatapubblicita, 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





Prendendo in esame questa stringa



sSQL = "insert into pubblicita (codiceimmobile,testopubblicita,testatapubblicita, datapubblicita,pubblicitasino,foto) "
sSQL = sSQL & "select codiceimmobile,testopubblicita,testatapubblicita,N ow(),pubblicitasino,'{0}' "



è possibile selezionare al campo testatapubblicita x tutti il valore TESTATA1 ?


Grazie in anticipo saluti

[forte78]

Dopo alcuni test ho risolto cosi

sSQL = sSQL & "select codiceimmobile,testopubblicita,'TESTATA1',Now(),pu bblicitasino,'{0}' "


E funziona
ciao