1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
|
" codeBody "
set CN=server.CreateObject („ADODB.Connection“)
CN.Open „dsn=“ & toepassing („dbodbcdsn“), toepassing („dbusername“), toepassing („dbpassword“)
vastgestelde CM=server.CreateObject („ADODB.Command“)
CM.ActiveConnection=CN
CM.CommandType=adCmdText
SQL= " tussenvoegsel in e-mailwaarden („
SQL=SQL & „'',“
SQL=SQL & „„“ & Request.Form („first_name“) &““, „
SQL=SQL & „„“ & vervang (Request.Form („last_name“),““ „, „´“) &“ ', „
SQL=SQL & „„“ & Request.Form („email_address“) &““, „
SQL=SQL & „„“ & „(“ & Request.Form („areacode“) &“) „& Request.Form („prefix“) &“ - „& Request.Form („telefoon“) &““, „
SQL=SQL & „„“ & Request.Form („verzoek“) &““, „
SQL=SQL & „„“ & vervang (Request.Form („commentaren“),““ „, „´“) &“ ', „
SQL=SQL & „„“ & SQLPrepare (nu) & „“); „
CM.CommandText=SQL
CM.Execute
|