<%@ Language=VBScript %> <% PageTitle = "SiteManager - Contact Information" %> <% PageID=101 %> <% Header %> <% Menu PageID %> <%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %> <% ContactInfo %> <% Footer %> <% Sub ContactInfo %>

<%= FormatDateTime(Date,1) %>

<% OpenConnection1 Sel = "SELECT * FROM Contact" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open Sel, DB, 1, 3 If Request.Form("hidSave")="true" then If Trim(Request.Form("txtCompany"))<>""And Trim(Request.Form("txtAddress"))<>"" And Trim(Request.Form("txtCity"))<>"" And Trim(Request.Form("txtProvince"))<>"" And Trim(Request.Form("txtPostal"))<>"" then rs("txtCompany")=Request.Form("txtCompany") rs("txtAddress")=Request.Form("txtAddress") rs("txtCity")=Request.Form("txtCity") rs("txtProvince")=Request.Form("txtProvince") rs("txtPostal")=Request.Form("txtPostal") rs("txtPhone")=Request.Form("txtPhone") rs("txtTollFree")=Request.Form("txtTollFree") rs("txtFax")=Request.Form("txtFax") rs("txtEmail")=Request.Form("txtEmail") rs.Update%>

Contact information has been updated.

<%Else%>

All required fields must be filled in.

<%End If End If txtCompany=rs("txtCompany") txtAddress=rs("txtAddress") txtCity=rs("txtCity") txtProvince=rs("txtProvince") txtPostal=rs("txtPostal") txtPhone=rs("txtPhone") txtTollFree=rs("txtTollFree") txtFax=rs("txtFax") txtEmail=rs("txtEmail") rs.Close%>

Contact details can be edited below.

Special Notes:
1. Your customers will be able to access your contact details in the Contact Us page of your site.
2. Fax,Phone and TollFree numbers as well as Email are optional.
Address

 

Company Name

Address

City

State/Province
 Zip/Postal

Phone & Fax Numbers

 

Telephone - eg: (999) 123-4567

Toll Free - eg: (999) 123-4567

Facsimile - eg: (999) 123-4567

eMail Addresses

 
Email

<% End Sub %>