1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Dim client_request
If Request.Form("CLTOUI")="client" Then
client_request = "1"
Else
client_request = "0"
End If
objcommand2.CommandText
"INSERT INTO mailing_log (TITRE,OBSERVATION,AUTEUR,TYPECLIENT,CLTOUI,MAIL,SALON)
values
('" + Replace(Request("titre"),"'","''")
+ "','" + Replace(Request("obs"),"'","''")
+ "','" + Replace(Request("Ope"),"'","''")
+ "','" + Replace(Request.Form("NOMDOC"),"'","''")
+ "','" + client_request
+ "','" + Replace(Request.Form("MAIL"),"'","''")
+ "','" + Replace(Request.Form("csalon"),"'","''") + "')" |