Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

41 lines
1.5 KiB

  1. <%@Language = Javascript%>
  2. <HTML>
  3. <HEAD>
  4. <TITLE>Contact</TITLE>
  5. </HEAD>
  6. <BODY>
  7. <!-- #INCLUDE FILE='Global_ServerUtils.asp' -->
  8. <!-- #INCLUDE FILE='Global_DBUtils.asp' -->
  9. <%
  10. try
  11. {
  12. g_DBConn = GetDBConnection( Application("SOLUTIONS3") )
  13. var Query = "SEP_SetContact " + Request.Form("ContactID") + ",'" + Request.Form("CompanyName") + "','" + Request.Form("CompanyAddress1") + "','" + Request.Form("CompanyAddress2") + "','" + Request.Form("CompanyCity") + "','" + Request.Form("CompanyState") + "','" + Request.Form("CompanyZip") + "','" + Request.Form("CompanyMainPhone") + "','" + Request.Form("CompanySupportPhone") + "','" + Request.Form("CompanyFax") + "','" + Request.Form("CompanyWebSite") + "','" + Request.Form("ContactName") + "','" + Request.Form("ContactOccupation") + "','" + Request.Form("ContactAddress1") + "','" + Request.Form("ContactAddress2") + "','" + Request.Form("ContactCity") + "','" + Request.Form("ContactState") + "','" + Request.Form("ContactZip") + "','" + Request.Form("ContactPhone") + "','" + Request.Form("ContactEMail") + "'"
  14. var rsContactID = g_DBConn.Execute( Query )
  15. if ( !rsContactID.EOF )
  16. Response.Redirect("SEP_Contact.asp?Val=" + rsContactID("ContactID") )
  17. else
  18. Response.Redirect("SEP_DefaultBody.asp" )
  19. }
  20. catch ( err )
  21. {
  22. Response.Write("Could not update contact information, please try this task again<BR>" )
  23. Response.Write("Query: " + Query )
  24. Response.End();
  25. }
  26. %>
  27. </BODY>
  28. </HTML>