Editing NY Giants Football Team (1) Admin > Log Off
Company Name
Address Line 1
Address line 2
City
State/Region
Zip/Postal Code
Country
Office Phone
Office FA
Contact Information
Contact Name
Contact Title
Order Email
Contact Email
Domain Name
Customer Email
General Information
Encryption Password
Mini Category Menu Check to Show
Shipping
     
Turn ON/OFF Source Display (One Level deep include files are also shown)
<!-- #include file="../DatabaseInclude.asp" -->
This include file is NOT output to debug file.<%
strFunc = Request.QueryString("Function")
session("sesFunc")=strFunc
CompID = Request.QueryString("CompID")
%>


<form class="FormSkins" method="POST" action="CompanyWrite.asp" name="FrontPage_Form1" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript">

<table class="TableSkins">
  <tr>
    <td class="TDHeader" colspan="2">
      Editing <%=Session("CompanyName")%> (<%=CompID%>)
      <a href="Index.asp">Admin</a> > <a href="SessionClose.asp">Log Off</a>
      <%
        if strFunc = "EDIT" then
          If CompID = "" Then
            'DATABASE NOT OPEN
            RESPONSE.REDIRECT "../Error.asp?msg=" & Server.URLEncode ("Company ID is blank.")
          End If
            
          Set rsCompanyInfo = Server.CreateObject ("adodb.Recordset")
          rsCompanyInfo.Open "CompanyInfo", dbc, adOpenForwardOnly, adLockReadOnly, adCmdTable
          rsCompanyInfo.Filter = "CompanyID = " & Clng(CompID)
          strCompanyName=rsCompanyInfo("companyName")
          strContactName=rsCompanyInfo("ContactName")
          strContactTitle=rsCompanyInfo("ContactTitle")
          strCompanyAddress1=rsCompanyInfo("companyaddress1")
          strCompanyAddress2=rsCompanyInfo("companyaddress2")
          strCompanyCity=rsCompanyInfo("companycity")
          strCompanyRegionState=rsCompanyInfo("companyregionstate")
          strCompanyZip=rsCompanyInfo("companyzip")
          strCompanyCountry=rsCompanyInfo("companycountry")
          strCompanyPhone=rsCompanyInfo("companyphone")
          strCompanyFAX=rsCompanyInfo("companyfax")
          strCompanyOrderEmail=rsCompanyInfo("companyorderemail")
          strCompanyContactEmail=rsCompanyInfo("companycontactemail")
          strCompanyCustomerEmail=rsCompanyInfo("companycustomeremail")
          strCompanyUser0=rsCompanyInfo("companyuser0")
          intCompanyUser1=rsCompanyInfo("companyuser1")
          strCompanyLogo=rsCompanyInfo("companylogo")
          
          strCompanyBackground=rsCompanyInfo("companybackground")
          strCompanyDomainName=rsCompanyInfo("CompanyDomainName")
          
          strCompanyCurrencyText = rsCompanyInfo("CompanyCurrencyText")
          strCompanyCurrencyRatio = formatnumber(rsCompanyInfo("CompanyCurrencyRatio"),3)
          strCompanyRegionIndicator = rsCompanyInfo("CompanyRegionIndicator")
          
          strCompanyEmailSystem = rsCompanyInfo("CompanyEmailSystem")
          strCompanyPop3Address = rsCompanyInfo("CompanyPop3Address")
          
          
          strStateForTaxes=rsCompanyInfo("statefortaxes")
          intStateTaxRate=rsCompanyInfo("statetaxrate")
          intCompanyShipping=rsCompanyInfo("companyshipping")
          strCompEncrypt=rsCompanyInfo("compencrypt")
          if strCompEncrypt = "" then
            strCompEncrypt="EncryptPassword"
          end if
        
        else
          CompID=0
          strCompanyName="New Company Name"
          intCompanyUser1=1
          strCompanyCountry="USA"
          strCompEncrypt="EncryptPassword"
          strContactName="New Contact Name"
          strContactTitle="New Contact Name"
          strCompanyAddress1="New Address"
          strCompanyAddress2=""
          strCompanyCity="New City"
          strCompanyRegionState="AZ"
          strCompanyZip="99999"
          strCompanyPhone="(999) 999-999"
          strCompanyFAX="(999) 999-999"
          strCompanyOrderEmail="Orders@YourDomainName.com"
          strCompanyContactEmail="Contact@YourDomainName.com"
          strCompanyCustomerEmail="Not Implemented Yet."
          strCompanyUser0="User Option 0"
          strCompanyLogo="SPECIFIC_YourLogo.gif"
          strCompanyBackground="SPECIFIC_YourBackground.gif"
          strCompanyDomainName="www.YourDomainName.com"
          
          strCompanyCurrencyText = "$"
          strCompanyCurrencyRatio = 1.16
          
          strCompanyRegionIndicator = ""
          strCompanyEmailSystem = ""
          strCompanyPop3Address = ""
          
          strStateForTaxes="Not Implemented Yet."
          intStateTaxRate="Not Implemented Yet."
          intCompanyShipping=5.95
        ' END IF strFunc = "EDIT"
        end if      
        
        session("sesCompID")=CompID

        if strFunc = "EDIT" then
          rsCompanyInfo.close
          set rsCompanyInfo= nothing
          dbc.close
          set dbc= nothing
        
        end if
        %>

    </td>
  </tr>
  <tr>
    <td class="TDSkinsRight">Company Name</td>
    <td class="TDSkins"><input class="InputSkins" type="text" value="<%=strcompanyName%>" name="companyName" size="50" tabindex="1"></td>
  </tr>
  <tr>
    <td class="TDSkinsRight">Address Line 1</td>
    <td class="TDSkins"><input class="InputSkins" type="text" value="<%=strcompanyAddress1%>" name="companyAddress1" size="50" tabindex="2"></td>
  </tr>
  <tr>
    <td class="TDSkinsRight">Address line 2</td>
    <td class="TDSkins"><input class="InputSkins" type="text" value="<%=strcompanyAddress2%>" name="companyAddress2" size="50" tabindex="3"></td>
  </tr>
  <tr>
    <td class="TDSkinsRight">City</td>
    <td class="TDSkins"><input class="InputSkins" type="text" value="<%=strcompanyCity%>" name="companyCity" size="47" tabindex="4"></td>
  </tr>
  <tr>
    <td class="TDSkinsRight">State/Region</td>
    <td class="TDSkins"><input class="InputSkins" type="text" value="<%=strcompanyRegionState%>" name="companyRegionState" size="47" tabindex="5"></td>
  </tr>
  <tr>
    <td class="TDSkinsRight">Zip/Postal Code</td>
    <td class="TDSkins"><input class="InputSkins" type="text" value="<%=strcompanyZip%>" name="companyZip" size="47" tabindex="6"></td>
  </tr>
  <tr>
    <td class="TDSkinsRight">Country</td>
    <td class="TDSkins"><input class="InputSkins" type="text" value="<%=strcompanyCountry%>" name="companyCountry" size="47" tabindex="7"></td>
  </tr>
  <tr>
    <td class="TDSkinsRight">Office Phone</td>
    <td class="TDSkins"><input class="InputSkins" type="text" value="<%=strcompanyPhone%>" name="companyPhone" size="47" tabindex="8"></td>
  </tr>
  <tr>
    <td class="TDSkinsRight">Office FA </td>
    <td class="TDSkins"><input class="InputSkins" type="text" value="<%=strcompanyFax%>" name="companyFax" size="47" tabindex="9"></td>
  </tr>
  <tr>
    <td class="TDHeader" colspan="2">Contact Information</td>
  </tr>
  <tr>
    <td class="TDSkinsRight">Contact Name</td>
    <td class="TDSkins"><input class="InputSkins" type="text" value="<%=strcontactName%>" name="contactName" size="47" tabindex="10"></td>
  </tr>
  <tr>
    <td class="TDSkinsRight">Contact Title</td>
    <td class="TDSkins"><input class="InputSkins" type="text" value="<%=strcontactTitle%>" name="contactTitle" size="47" tabindex="11"></td>
  </tr>
  <tr>
    <td class="TDSkinsRight">Order Email</td>
    <td class="TDSkins"><input class="InputSkins" type="text" value="<%=strcompanyOrderEmail%>" name="companyOrderEmail" size="47" tabindex="12"></td>
  </tr>
  <tr>
    <td class="TDSkinsRight">Contact Email</td>
    <td class="TDSkins"><input class="InputSkins" type="text" value="<%=strcompanyContactEmail%>" name="companyContactEmail" size="47" tabindex="13"></td>
  </tr>
  <tr>
    <td class="TDSkinsRight">Domain Name</td>
    <td class="TDSkins"><input class="InputSkins" type="text" value="<%=strcompanyDomainName%>" name="companyDomainName" size="47" tabindex="14"></td>
  </tr>
  <tr>
    <td class="TDSkinsRight">Customer Email</td>
    <td class="TDSkins">
    <input class="InputSkins" type="text" value="<%=strcompanycustomerEmail%>" name="companycustomerEmail" size="47" tabindex="15"></td>
  </tr>
  <tr>
    <td class="TDHeader" colspan="2">General Information</td>
  </tr>
  <tr>
    <td class="TDSkinsRight" valign="middle">Encryption Password</td>
    <td class="TDSkins">
    <input class="InputSkins" type="text" name="compencrypt" size="40" value="<%=strCompencrypt%>" tabindex="16"></td>
  </tr>
  <tr>
    <td class="TDSkinsRight">Mini Category Menu</td>
    <td class="TDSkins"><%if intCompanyUser1 = 1 then%><input class="InputSkins" type="checkbox" name="companyUser1" value="ON" tabindex="17" checked>
    Uncheck to Not Show <%else%><input class="InputSkins" type="checkbox" name="companyUser1" value="ON" tabindex="17">
    Check to Show <%end if%> </td>
  </tr>
  <tr>
    <td class="TDSkinsRight">Shipping</td>
    <td class="TDSkins">
    <input class="InputSkins" type="text" value="<%=formatnumber(intcompanyShipping,2)%>" name="companyShipping" size="47" tabindex="18"></td>
  </tr>
  <tr>
    <td class="TDSkins"> </td>
    <td class="TDSkins">
    <input class="InputSkins" type="submit" value="Exit" name="submit_changes" tabindex="30">   <input class="InputSkins" type="submit" value="Apply" name="submit_changes" tabindex="19"></td>
  </tr>
  </form>
</table>
</body>
</html><!-- #include file="../ReadFile.asp" -->
This include file is NOT output to debug file.