set CN=server.CreateObject ("ADODB.Connection")
CN.Open "dsn=" & zastosowanie ("dbodbcdsn"), zastosowanie ("dbusername"), zastosowanie ("dbpassword")
ustawiać CM=server.CreateObject ("ADODB.Command")
CM.ActiveConnection=CN
CM.CommandType=adCmdText
SQL= " wszywka w email wartość ("
SQL=SQL & "'',"
SQL=SQL & """ & Request.Form ("first_name") &"", "
SQL=SQL & """ & zamieniać (Request.Form ("last_name"),"" ", "´") &" ', "
SQL=SQL & """ & Request.Form ("email_address") &"", "
SQL=SQL & """ & "(" & Request.Form ("areacode") & ") "& Request.Form ("prefiks") &" - "& Request.Form ("telefon") &"", "
SQL=SQL & """ & Request.Form ("prośba") &"", "
SQL=SQL & """ & zamieniać (Request.Form ("komentarz"),"" ", "´") &" ', "
SQL=SQL & """ & SQLPrepare (teraz) & ""); "
CM.CommandText=SQL
CM.Execute
|