<% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' System : StoreFront 2000 Version 4.04.0 ' Date : 1.6.2000 ' Author : LaGarde, Incorporated ' Description : StoreFront Promotional Mail Subscription Routines for SFPro ' Notes : There are no configurable elements in this file. ' ' COPYRIGHT NOTICE ' ' The contents of this file is protected under the United States ' copyright laws as an unpublished work, and is confidential and ' proprietary to LaGarde, Incorporated. Its use or disclosure in ' whole or in part without the expressed written permission of ' LaGarde, Incorporated is expressely prohibited. ' ' (c) Copyright 1998 by LaGarde, Incorporated. All rights reserved. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %> <% Dim DSN_Name DSN_Name = Session("DSN_Name") set Connection = Server.CreateObject("ADODB.Connection") Connection.Open DSN_Name ORDER_ID = Session("ORDER_ID") %> <% PREV_ID = Trim(Request.Cookies("CustID")) If PREV_ID <> "" Then SQLStmt = "SELECT * FROM Customer WHERE CUSTOMER_ID = " & PREV_ID & "" Set RSPrevOrd = Connection.Execute(SQLStmt) %> <% End If '****** GET COUNTRIES FOR SHIP TO LIST ********************** SQL = "SELECT country, country_abb FROM locales WHERE (active = '1' " _ & "AND country <> 'NULL')" set RSCountry = Connection.Execute (SQL) '****** GET STATES FOR SHIP TO LIST ************************* SQL = "SELECT state, state_abb FROM locales WHERE (active = '1' " _ & "AND state <> 'NULL')" set RSState = Connection.Execute (SQL) %> <% If Request("Action") = "1" Then NAME = Replace(Request("NAME"),"'","''") COMPANY = Replace(Request("COMPANY"),"'","''") ADDRESS_1 = Replace(Request("ADDRESS_1"),"'","''") ADDRESS_2 = Replace(Request("ADDRESS_2"),"'","''") CITY = Replace(Request("CITY"),"'","''") STATE = Replace(Request("STATE"),"'","''") COUNTRY = Replace(Request("COUNTRY"), "'","''") ZIP = Request("ZIP") PHONE = Request("PHONE") E_MAIL = Request("E_MAIL") SQL = "UPDATE CUSTOMER SET NAME = '" & NAME & "', " _ & "COMPANY = '" & COMPANY & "', " _ & "ADDRESS_1 = '" & ADDRESS_1 & "', " _ & "ADDRESS_2 = '" & ADDRESS_2 & "', " _ & "CITY = '" & CITY & "', " _ & "STATE = '" & STATE & "', " _ & "ZIP = '" & ZIP & "', " _ & "COUNTRY = '" & COUNTRY & "', " _ & "PHONE = '" & PHONE & "', " _ & "E_MAIL = '" & E_MAIL & "', " _ & "MAIL_SUBSCRIBED = '1' " _ & "WHERE CUSTOMER_ID = " & ORDER_ID & "" Set RSSetMail = Connection.Execute(SQL) Set RSSetMail = nothing %> Mail and E-mail Subscription Form cellpadding=<%=CellPadding%> cellspacing=<%=CellSpacing%> width=<%=TableWidth%> bgcolor=<%=TableBG%>>
Name: <%= Request("NAME") %>
Company: <%= Request("COMPANY") %>
Address: <%=Request("ADDRESS_1") %>
Address: <%= Request("ADDRESS_2") %>
City: <%= Request("CITY") %>
State or Province: <%= Request("STATE") %>
Country: <%= Request("COUNTRY") %>
Zip or Postal Code: <%= Request("ZIP") %>
Phone: <%= Request("PHONE") %>
E-Mail Address: <%= Request("E_MAIL") %>
<% Else %> <%=FontStyle%>
> cellpadding=<%=CellPadding%> cellspacing=<%=CellSpacing%> width=<%=TableWidth%> bgcolor=<%=TableBG%>> <% Set RSState = nothing %> <% Set RSCountry = nothing %>
Name:
Company:
Address:
Address:
City:
State or Province:
Country:
Zip or Postal Code:
Phone:
E-Mail Address:
 
<% End If %>