set CN=server.CreateObject („ADODB.Connection“)
CN.Open „dsn=“ u. Anwendung („dbodbcdsn“), Anwendung („dbusername“), Anwendung („dbpassword“)
CM=server.CreateObject („ADODB.Command“) einstellen
CM.ActiveConnection=CN
CM.CommandType=adCmdText
SQL= " Einsatz in eMail-Werte („
SQL=SQL u. „'',“
SQL=SQL u. „„“ u. Request.Form („first_name“) u.““, „
SQL=SQL u. „„“ u. ersetzen (Request.Form („last_name“),““ „, „´") u.“ ', „
SQL=SQL u. „„“ u. Request.Form („email_address“) u.““, „
SQL=SQL u. „„“ u. „(“ u. Request.Form („areacode“) u. ") „u. Request.Form („Präfix“) u.“ - „u. Request.Form („Telefon“) u.““, „
SQL=SQL u. „„“ u. Request.Form („Antrag“) u.““, „
SQL=SQL u. „„“ u. ersetzen (Request.Form („Anmerkungen“),““ „, „´") u.“ ', „
SQL=SQL u. „„“ u. SQLPrepare (jetzt) u. „"); „
CM.CommandText=SQL
CM.Execute
|