Access ASP
[ Home ] [ Access - Start Here ] [ Excel In Depth ] [ MS Office ] [ Visio Info ] [ Creating Web Pages ] [ Technical References ] [ Viruses ] [ Points of View ] [ Gadgets ] [ Just Links ] [ Monash ]

   Search this site or the web       powered by FreeFind
 
  Site search Web search

Participate in Ananda's Discussions
Post a message

Monitor page
for changes
    
   it's private  

by ChangeDetection

Up

CUSTOMERS.ASP

There are ASP files and there are ASP files. This one, created by Access '97 requires the ActiveX Layout Control to be installed on your machine and requires generally, that you use Microsoft Internet Explorer 3 and above, as your browser. Note the Object ID specification and the heavy use of VbScripting.

<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<TITLE>Customers</TITLE>
</HEAD>
<BODY>
<%
If IsObject(Session("NWIND_conn")) Then
Set conn = Session("NWIND_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "NWIND","",""
Set Session("NWIND_conn") = conn
End If
%>
<%
If IsObject(Session("Form_Customers_rs")) Then
Set rs = Session("Form_Customers_rs")
Else
sql = "SELECT * FROM [Customers]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If rs.eof Then
rs.AddNew
End If
Set Session("Form_Customers_rs") = rs
End If
%>
<%

If cstr(Request.QueryString("Country")) <> "" Then
rs.Fields("Country").Value = Request.QueryString("Country")
End If
If cstr(Request.QueryString("Fax")) <> "" Then
rs.Fields("Fax").Value = Request.QueryString("Fax")
End If
If cstr(Request.QueryString("Phone")) <> "" Then
rs.Fields("Phone").Value = Request.QueryString("Phone")
End If
If cstr(Request.QueryString("PostalCode")) <> "" Then
rs.Fields("PostalCode").Value = Request.QueryString("PostalCode")
End If
If cstr(Request.QueryString("Region")) <> "" Then
rs.Fields("Region").Value = Request.QueryString("Region")
End If
If cstr(Request.QueryString("City")) <> "" Then
rs.Fields("City").Value = Request.QueryString("City")
End If
If cstr(Request.QueryString("Address")) <> "" Then
rs.Fields("Address").Value = Request.QueryString("Address")
End If
If cstr(Request.QueryString("ContactTitle")) <> "" Then
rs.Fields("ContactTitle").Value = Request.QueryString("ContactTitle")
End If
If cstr(Request.QueryString("ContactName")) <> "" Then
rs.Fields("ContactName").Value = Request.QueryString("ContactName")
End If
If cstr(Request.QueryString("CompanyName")) <> "" Then
rs.Fields("CompanyName").Value = Request.QueryString("CompanyName")
End If
If cstr(Request.QueryString("CustomerID")) <> "" Then
rs.Fields("CustomerID").Value = Request.QueryString("CustomerID")
End If


tempVar = Request.QueryString("nav_btn")
On Error Resume Next
If cstr(tempVar)="nav_btn_MoveFirstRecord" Then
rs.MoveFirst
End If
If cstr(tempVar)="nav_btn_MovePrevRecord" Then
rs.MovePrevious
If rs.bof Then
rs.MoveNext
End If
End If
If cstr(tempVar)="nav_btn_MoveNextRecord" Then
rs.MoveNext
If rs.eof Then
rs.MovePrevious
End If
End If
If cstr(tempVar)="nav_btn_MoveLastRecord" Then
rs.MoveLast
End If
If cstr(tempVar)="nav_btn_MoveAddRecord" Then
rs.AddNew
End If
If cstr(tempVar)="nav_btn_MoveCommitRecord" Then
rs.Update
rs.Requery
End If
If cstr(tempVar)="nav_btn_MoveCancelUpdate" Then
rs.CancelUpdate
rs.Resync
End If
If cstr(tempVar)="nav_btn_MoveDeleteRecord" Then
rs.Delete
rs.MoveNext
If rs.eof Then
rs.MovePrevious
If rs.bof Then
rs.AddNew
End If
End If
End If
On Error Goto 0
%>
<OBJECT ID="Customers_1alx"
CLASSID="CLSID:812AE312-8B8E-11CF-93C8-00AA00C08FDF"
STYLE="TOP:0;LEFT:0;">
<PARAM NAME="ALXPATH" VALUE="http://myserver/Customers_1alx.asp">
</OBJECT>

</BODY>
</HTML>

CUSTOMERS_ALX.ASP

<%
If IsObject(Session("NWIND_conn")) Then
Set conn = Session("NWIND_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "NWIND","",""
Set Session("NWIND_conn") = conn
End If
%>
<%
If IsObject(Session("Form_Customers_rs")) Then
Set rs = Session("Form_Customers_rs")
Else
sql = "SELECT * FROM [Customers]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If rs.eof Then
rs.AddNew
End If
Set Session("Form_Customers_rs") = rs
End If
%>
<SCRIPT LANGUAGE=VBScript>
<!--
Dim rgszCtrls(20, 2)
Dim cMaxCtrls
cMaxCtrls = 20
Sub AddCtrlToList(szCtrl, szCtrlSrc)
Dim i
for i = 1 to cMaxCtrls
if rgszCtrls(i, 1) = szCtrl Then Exit Sub
if rgszCtrls(i, 1) = "" Then
rgszCtrls(i, 1) = szCtrl
rgszCtrls(i, 2) = szCtrlSrc
Exit Sub
End If
next
End Sub

Sub UpdateRefreshBtn()
nav_btn_MoveCancelUpdate.Caption = "Cancel"
End Sub

Function MakeHTMLValue(szVal)
Dim i
Dim szRet
for i = 1 to Len(szVal)
ch = Mid(szVal, i, 1)
if ch = " " Then
szRet = szRet & "%20"
elseif ch = "&" Then
szRet = szRet & "%26"
elseif ch = "#" Then
szRet = szRet & "%23"
elseif ch = """" Then
szRet = szRet & "%22"
elseif ch = ";" Then
szRet = szRet & "%3B"
elseif ch = ":" Then
szRet = szRet & "%3A"
elseif ch = "'" Then
szRet = szRet & "%27"
else
szRet = szRet & Mid(szVal, i, 1)
end if
next
MakeHTMLValue = szRet
End Function

Function GetCtrlQueryString()
Dim szRet
Dim i
for i = 1 to cMaxCtrls
if rgszCtrls(i, 1) = "" Then Exit For
szRet = szRet & rgszCtrls(i, 2) & "=" & MakeHTMLValue(Customers_1alx.Controls(rgszCtrls(i, 1)).Value) & "&"
next
GetCtrlQueryString = szRet
End Function

<%
If IsObject(Session("RS_Customers_Country")) Then
Set tempRS = Session("RS_Customers_Country")
Else
sql = "SELECT DISTINCT Customers.Country FROM Customers "
Set tempRS = Server.CreateObject("ADODB.Recordset")
tempRS.Open sql, conn, 3, 3
Set Session("RS_Customers_Country") = tempRS
tempRS.MoveFirst
End If
tempRS.MoveLast
%>

Dim Country_tempList(<% =tempRS.RecordCount %>, 1)

<%
tempRS.MoveFirst
I = 0
do while Not tempRS.eof
If tempRS.Fields(0).value = rs.Fields("Country").Value Then

selectedVarCountry = cstr(tempRS.Fields(0).value)

End If
%>
Country_tempList( <% =I %> , 0)= "<% =tempRS.Fields(0).value %>"
<%
tempRS.MoveNext
I = I+1
loop
%>

Sub Customers_1alx_OnLoad()
Country.list = Country_tempList
End Sub

Sub Country_AfterUpdate()
call AddCtrlToList("Country", "Country")
call UpdateRefreshBtn()
End Sub

Sub Fax_AfterUpdate()
call AddCtrlToList("Fax", "Fax")
call UpdateRefreshBtn()
End Sub

Sub Phone_AfterUpdate()
call AddCtrlToList("Phone", "Phone")
call UpdateRefreshBtn()
End Sub

Sub PostalCode_AfterUpdate()
call AddCtrlToList("PostalCode", "PostalCode")
call UpdateRefreshBtn()
End Sub

Sub Region_AfterUpdate()
call AddCtrlToList("Region", "Region")
call UpdateRefreshBtn()
End Sub

Sub City_AfterUpdate()
call AddCtrlToList("City", "City")
call UpdateRefreshBtn()
End Sub

Sub Address_AfterUpdate()
call AddCtrlToList("Address", "Address")
call UpdateRefreshBtn()
End Sub

Sub ContactTitle_AfterUpdate()
call AddCtrlToList("ContactTitle", "ContactTitle")
call UpdateRefreshBtn()
End Sub

Sub ContactName_AfterUpdate()
call AddCtrlToList("ContactName", "ContactName")
call UpdateRefreshBtn()
End Sub

Sub CompanyName_AfterUpdate()
call AddCtrlToList("CompanyName", "CompanyName")
call UpdateRefreshBtn()
End Sub

Sub CustomerID_AfterUpdate()
call AddCtrlToList("CustomerID", "CustomerID")
call UpdateRefreshBtn()
End Sub

Sub nav_btn_MoveFirstRecord_Click()
Window.Location.Href = "http://myserver/Customers_1.asp?nav_btn=nav_btn_MoveFirstRecord&" & GetCtrlQueryString()
End Sub

Sub nav_btn_MovePrevRecord_Click()
Window.Location.Href = "http://myserver/Customers_1.asp?nav_btn=nav_btn_MovePrevRecord&" & GetCtrlQueryString()
End Sub

Sub nav_btn_MoveNextRecord_Click()
Window.Location.Href = "http://myserver/Customers_1.asp?nav_btn=nav_btn_MoveNextRecord&" & GetCtrlQueryString()
End Sub

Sub nav_btn_MoveLastRecord_Click()
Window.Location.Href = "http://myserver/Customers_1.asp?nav_btn=nav_btn_MoveLastRecord&" & GetCtrlQueryString()
End Sub

Sub nav_btn_MoveAddRecord_Click()
Window.Location.Href = "http://myserver/Customers_1.asp?nav_btn=nav_btn_MoveAddRecord&" & GetCtrlQueryString()
End Sub

Sub nav_btn_MoveCommitRecord_Click()
Window.Location.Href = "http://myserver/Customers_1.asp?nav_btn=nav_btn_MoveCommitRecord&" & GetCtrlQueryString()
End Sub

Sub nav_btn_MoveCancelUpdate_Click()
Window.Location.Href = "http://myserver/Customers_1.asp?nav_btn=nav_btn_MoveCancelUpdate&"
End Sub

Sub nav_btn_MoveDeleteRecord_Click()
If MsgBox("Press OK to delete current record", 1, "Customers_1") =1 Then
Window.Location.Href = "http://myserver/Customers_1.asp?nav_btn=nav_btn_MoveDeleteRecord&"
End If
End Sub

-->
</SCRIPT>
<DIV ID="Customers_1alx" STYLE="LAYOUT:FIXED;HEIGHT:462;WIDTH:807;">
<OBJECT ID="CustomersLabel"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:12;LEFT:102;WIDTH:142;HEIGHT:39;ZINDEX:0;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="Caption" VALUE="Customers">
<PARAM NAME="ParagraphAlign" VALUE="3">
<PARAM NAME="ForeColor" VALUE="128">
<PARAM NAME="FontHeight" VALUE="240">
<PARAM NAME="FontWeight" VALUE="700">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3692;1014">
<PARAM NAME="VariousPropertyBits" VALUE="8388635">
<PARAM NAME="FontEffects" VALUE="1">
</OBJECT>
<OBJECT ID="Country"
CLASSID="CLSID:8BD21D30-EC42-11CE-9E0D-00AA006002F3"
STYLE="TOP:313;LEFT:561;WIDTH:144;HEIGHT:28;TABINDEX:8;ZINDEX:0;">
<PARAM NAME="Value" VALUE="<%=selectedVarCountry%>">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="DisplayStyle" VALUE="3">
<PARAM NAME="ForeColor" VALUE="128">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="ShowDropButtonWhen" VALUE="2">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3744;728">
<PARAM NAME="ListRows" VALUE="8">
<PARAM NAME="BoundColumn" VALUE="1">
<PARAM NAME="Width" VALUE="144;">
<PARAM NAME="cColumnInfo" VALUE="1">
<PARAM NAME="TextColumn" VALUE="1">
<PARAM NAME="VariousPropertyBits" VALUE="746604571">
</OBJECT>
<OBJECT ID="CountryLabel"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:313;LEFT:462;WIDTH:84;HEIGHT:28;ZINDEX:1;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="Caption" VALUE="Country:">
<PARAM NAME="ParagraphAlign" VALUE="2">
<PARAM NAME="ForeColor" VALUE="8421376">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="FontWeight" VALUE="700">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="2184;728">
<PARAM NAME="VariousPropertyBits" VALUE="8388635">
<PARAM NAME="FontEffects" VALUE="1">
</OBJECT>
<OBJECT ID="Fax"
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"
STYLE="TOP:362;LEFT:561;WIDTH:144;HEIGHT:28;TABINDEX:10;ZINDEX:2;">
<%If Not IsNull(rs.Fields("Fax").Value) Then%>
<PARAM NAME="Value" VALUE="<%=Server.HTMLEncode(rs.Fields("Fax").Value)%>">
<%End If%>
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="ForeColor" VALUE="128">
<PARAM NAME="FontHeight" VALUE="18">
<PARAM NAME=="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3744;728">
<PARAM NAME="VariousPropertyBits" VALUE="2894088219">
</OBJECT>
<OBJECT ID="FaxLabel"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:362;LEFT:496;WIDTH:49;HEIGHT:28;ZINDEX:3;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="Caption" VALUE="Fax:">
<PARAM NAME="ParagraphAlign" VALUE="2">
<PARAM NAME="ForeColor" VALUE="8421376">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="FontWeight" VALUE="700">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="1274;728">
<PARAM NAME="VariousPropertyBits" VALUE="8388635">
<PARAM NAME="FontEffects" VALUE="1">
</OBJECT>
<OBJECT ID="Phone"
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"
STYLE="TOP:362;LEFT:259;WIDTH:144;HEIGHT:28;TABINDEX:9;ZINDEX:4;">
<%If Not IsNull(rs.Fields("Phone").Value) Then%>
<PARAM NAME="Value" VALUE="<%=Server.HTMLEncode(rs.Fields("Phone").Value)%>">
<%End If%>
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="ForeColor" VALUE="128">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3744;728">
<PARAM NAME="VariousPropertyBits" VALUE="2894088219">
</OBJECT>
<OBJECT ID="PhoneLabel"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:362;LEFT:171;WIDTH:73;HEIGHT:28;ZINDEX:5;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="Caption" VALUE="Phone:">
<PARAM NAME="ParagraphAlign" VALUE="2">
<PARAM NAME="ForeColor" VALUE="8421376">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="FontWeight" VALUE="700">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="1898;728">
<PARAM NAME="VariousPropertyBits" VALUE="8388635">
<PARAM NAME="FontEffects" VALUE="1">
</OBJECT>
<OBJECT ID="PostalCode"
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"
STYLE="TOP:313;LEFT:259;WIDTH:144;HEIGHT:28;TABINDEX:7;ZINDEX:6;">
<%If Not IsNull(rs.Fields("PostalCode").Value) Then%>
<PARAM NAME="Value" VALUE="<%=Server.HTMLEncode(rs.Fields("PostalCode").Value)%>">
<%End If%>
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="ForeColor" VALUE="128">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3744;728">
<PARAM NAME="VariousPropertyBits" VALUE="2894088219">
</OBJECT>
<OBJECT ID="PostalCodeLabel"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:313;LEFT:123;WIDTH:121;HEIGHT:28;ZINDEX:7;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="Caption" VALUE="Postal Code:">
<PARAM NAME="ParagraphAlign" VALUE="2">
<PARAM NAME="ForeColor" VALUE="8421376">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="FontWeight" VALUE="700">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3146;728">
<PARAM NAME="VariousPropertyBits" VALUE="8388635">
<PARAM NAME="FontEffects" VALUE="1">
</OBJECT>
<OBJECT ID="Region"
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"
STYLE="TOP:278;LEFT:561;WIDTH:144;HEIGHT:28;TABINDEX:6;ZINDEX:8;">
<%If Not IsNull(rs.Fields("Region").Value) Then%>
<PARAM NAME="Value" VALUE="<%=Server.HTMLEncode(rs.Fields("Region").Value)%>">
<%End If%>
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="ForeColor" VALUE="128">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3744;728">
<PARAM NAME="VariousPropertyBits" VALUE="2894088219">
</OBJECT>
<OBJECT ID="RegionLabel"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:278;LEFT:466;WIDTH:79;HEIGHT:28;ZINDEX:9;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="Caption" VALUE="Region:">
<PARAM NAME="ParagraphAlign" VALUE="2">
<PARAM NAME="ForeColor" VALUE="8421376">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="FontWeight" VALUE="700">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="2054;728">
<PARAM NAME="VariousPropertyBits" VALUE="8388635">
<PARAM NAME="FontEffects" VALUE="1">
</OBJECT>
<OBJECT ID="City"
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"
STYLE="TOP:278;LEFT:259;WIDTH:144;HEIGHT:28;TABINDEX:5;ZINDEX:10;">
<%If Not IsNull(rs.Fields("City").Value) Then%>
<PARAM NAME="Value" VALUE="<%=Server.HTMLEncode(rs.Fields("City").Value)%>">
<%End If%>
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="ForeColor" VALUE="128">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3744;728">
<PARAM NAME="VariousPropertyBits" VALUE="2894088219">
</OBJECT>
<OBJECT ID="CityLabel"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:278;LEFT:193;WIDTH:51;HEIGHT:28;ZINDEX:11;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="Caption" VALUE="City:">
<PARAM NAME="ParagraphAlign" VALUE="2">
<PARAM NAME="ForeColor" VALUE="8421376">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="FontWeight" VALUE="700">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="1326;728">
<PARAM NAME="VariousPropertyBits" VALUE="8388635">
<PARAM NAME="FontEffects" VALUE="1">
</OBJECT>
<OBJECT ID="Address"
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"
STYLE="TOP:218;LEFT:259;WIDTH:285;HEIGHT:48;TABINDEX:4;ZINDEX:12;">
<%If Not IsNull(rs.Fields("Address").Value) Then%>
<PARAM NAME="Value" VALUE="<%=Server.HTMLEncode(rs.Fields("Address").Value)%>">
<%End If%>
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="ForeColor" VALUE="128">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="7410;1248">
<PARAM NAME="VariousPropertyBits" VALUE="2894088219">
</OBJECT>
<OBJECT ID="AddressLabel"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:218;LEFT:157;WIDTH:87;HEIGHT:28;ZINDEX:13;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="Caption" VALUE="Address:">
<PARAM NAME="ParagraphAlign" VALUE="2">
<PARAM NAME="ForeColor" VALUE="8421376">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="FontWeight" VALUE="700">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="2262;728">
<PARAM NAME="VariousPropertyBits" VALUE="8388635">
<PARAM NAME="FontEffects" VALUE="1">
</OBJECT>
<OBJECT ID="ContactTitle"
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"
STYLE="TOP:167;LEFT:561;WIDTH:193;HEIGHT:28;TABINDEX:3;ZINDEX:14;">
<%If Not IsNull(rs.Fields("ContactTitle").Value) Then%>
<PARAM NAME="Value" VALUE="<%=Server.HTMLEncode(rs.Fields("ContactTitle").Value)%>">
<%End If%>
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="ForeColor" VALUE="128">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="5018;728">
<PARAM NAME="VariousPropertyBits" VALUE="2894088219">
</OBJECT>
<OBJECT ID="TitleLabel"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:167;LEFT:489;WIDTH:57;HEIGHT:28;ZINDEX:15;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="Caption" VALUE="Title:">
<PARAM NAME="ParagraphAlign" VALUE="2">
<PARAM NAME="ForeColor" VALUE="8421376">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="FontWeight" VALUE="700">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="1482;728">
<PARAM NAME="VariousPropertyBits" VALUE="8388635">
<PARAM NAME="FontEffects" VALUE="1">
</OBJECT>
<OBJECT ID="ContactName"
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"
STYLE="TOP:167;LEFT:259;WIDTH:187;HEIGHT:28;TABINDEX:2;ZINDEX:16;">
<%If Not IsNull(rs.Fields("ContactName").Value) Then%>
<PARAM NAME="Value" VALUE="<%=Server.HTMLEncode(rs.Fields("ContactName").Value)%>">
<%End If%>
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="ForeColor" VALUE="128">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="4862;728">
<PARAM NAME="VariousPropertyBits" VALUE="2894088219">
</OBJECT>
<OBJECT ID="ContactNameLabel"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:167;LEFT:105;WIDTH:139;HEIGHT:28;ZINDEX:17;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="Caption" VALUE="Contact Name:">
<PARAM NAME="ParagraphAlign" VALUE="2">
<PARAM NAME="ForeColor" VALUE="8421376">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="FontWeight" VALUE="700">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3614;728">
<PARAM NAME="VariousPropertyBits" VALUE="8388635">
<PARAM NAME="FontEffects" VALUE="1">
</OBJECT>
<OBJECT ID="CompanyName"
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"
STYLE="TOP:122;LEFT:259;WIDTH:354;HEIGHT:28;TABINDEX:1;ZINDEX:18;">
<%If Not IsNull(rs.Fields("CompanyName").Value) Then%>
<PARAM NAME="Value" VALUE="<%=Server.HTMLEncode(rs.Fields("CompanyName").Value)%>">
<%End If%>
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="ForeColor" VALUE="128">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="9204;728">
<PARAM NAME="VariousPropertyBits" VALUE="2894088219">
</OBJECT>
<OBJECT ID="CompanyNameLabel"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:122;LEFT:94;WIDTH:150;HEIGHT:28;ZINDEX:19;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="Caption" VALUE="Company Name:">
<PARAM NAME="ParagraphAlign" VALUE="2">
<PARAM NAME="ForeColor" VALUE="8421376">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="FontWeight" VALUE="700">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3900;728">
<PARAM NAME="VariousPropertyBits" VALUE="8388635">
<PARAM NAME="FontEffects" VALUE="1">
</OBJECT>
<OBJECT ID="CustomerID"
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"
STYLE="TOP:74;LEFT:259;WIDTH:88;HEIGHT:28;TABINDEX:0;ZINDEX:20;">
<%If Not IsNull(rs.Fields("CustomerID").Value) Then%>
<PARAM NAME="Value" VALUE="<%=Server.HTMLEncode(rs.Fields("CustomerID").Value)%>">
<%End If%>
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="ForeColor" VALUE="128">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="2288;728">
<PARAM NAME="VariousPropertyBits" VALUE="2894088219">
</OBJECT>
<OBJECT ID="CustomerIDLabel"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:74;LEFT:121;WIDTH:123;HEIGHT:28;ZINDEX:21;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="13434879">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="BorderColor" VALUE="8421504">
<PARAM NAME="Caption" VALUE="Customer ID:">
<PARAM NAME="ParagraphAlign" VALUE="2">
<PARAM NAME="ForeColor" VALUE="8421376">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="FontWeight" VALUE="700">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3198;728">
<PARAM NAME="VariousPropertyBits" VALUE="8388635">
<PARAM NAME="FontEffects" VALUE="1">
</OBJECT>
<OBJECT ID="nav_btn_MoveCancelUpdate"
CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57"
STYLE="TOP:434;LEFT:336;WIDTH:84;HEIGHT:28;ZINDEX:0;">
<PARAM NAME="BackStyle" VALUE="0">
<PARAM NAME="Caption" VALUE="Refresh">
<PARAM NAME="ParagraphAlign" VALUE="3">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="Size" VALUE="2184;728">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="2">
</OBJECT>
<OBJECT ID="nav_btn_MoveDeleteRecord"
CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57"
STYLE="TOP:434;LEFT:252;WIDTH:84;HEIGHT:28;ZINDEX:1;">
<PARAM NAME="BackStyle" VALUE="0">
<PARAM NAME="Caption" VALUE="Delete">
<PARAM NAME="ParagraphAlign" VALUE="3">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="Size" VALUE="2184;728">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="2">
</OBJECT>
<OBJECT ID="nav_btn_MoveCommitRecord"
CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57"
STYLE="TOP:434;LEFT:168;WIDTH:84;HEIGHT:28;ZINDEX:2;">
<PARAM NAME="BackStyle" VALUE="0">
<PARAM NAME="Caption" VALUE="Commit">
<PARAM NAME="ParagraphAlign" VALUE="3">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="Size" VALUE="2184;728">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="2">
</OBJECT>
<OBJECT ID="nav_btn_MoveAddRecord"
CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57"
STYLE="TOP:434;LEFT:112;WIDTH:28;HEIGHT:28;ZINDEX:3;">
<PARAM NAME="BackStyle" VALUE="0">
<PARAM NAME="Caption" VALUE="&gt;*">
<PARAM NAME="ParagraphAlign" VALUE="3">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="Size" VALUE="728;728">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="2">
</OBJECT>
<OBJECT ID="nav_btn_MoveLastRecord"
CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57"
STYLE="TOP:434;LEFT:84;WIDTH:28;HEIGHT:28;ZINDEX:4;">
<PARAM NAME="BackStyle" VALUE="0">
<PARAM NAME="Caption" VALUE="&gt;|">
<PARAM NAME="ParagraphAlign" VALUE="3">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="Size" VALUE="728;728">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="2">
</OBJECT>
<OBJECT ID="nav_btn_MoveNextRecord"
CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57"
STYLE="TOP:434;LEFT:56;WIDTH:28;HEIGHT:28;ZINDEX:5;">
<PARAM NAME="BackStyle" VALUE="0">
<PARAM NAME="Caption" VALUE="&gt;">
<PARAM NAME="ParagraphAlign" VALUE="3">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="Size" VALUE="728;728">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="2">
</OBJECT>
<OBJECT ID="nav_btn_MovePrevRecord"
CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57"
STYLE="TOP:434;LEFT:28;WIDTH:28;HEIGHT:28;ZINDEX:6;">
<PARAM NAME="BackStyle" VALUE="0">
<PARAM NAME="Caption" VALUE="&lt;">
<PARAM NAME="ParagraphAlign" VALUE="3">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="Size" VALUE="728;728">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="2">
</OBJECT>
<OBJECT ID="nav_btn_MoveFirstRecord"
CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57"
STYLE="TOP:434;LEFT:0;WIDTH:28;HEIGHT:28;ZINDEX:7;">
<PARAM NAME="BackStyle" VALUE="0">
<PARAM NAME="Caption" VALUE="|&lt;">
<PARAM NAME="ParagraphAlign" VALUE="3">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="Size" VALUE="728;728">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="2">
</OBJECT>
</DIV>