View Dealers

<%@ Language=VBScript %> <% STATE=Server.HTMLEncode(Request.QueryString("state")) set con = server.createObject("Adodb.connection") con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=d:\accounts\sardaplywood\database\sardaply.mdb" set rs = server.createObject("Adodb.recordset") set rs1 = server.createObject("Adodb.recordset") set rs = con.Execute("Select COUNT(*) from Dealers where State='"&STATE&"'") set rs1 = con.Execute("Select Address1,Address2,Address3,Phone,Fax, Email from Regional where State='"&STATE&"'") while not rs.EOF COUNT=cint(rs(0)) rs.MoveNext Wend if COUNT>0 then set rs = con.Execute("Select * from Dealers where State='"&STATE&"' order by Area") end if %> View Dealers

<%=STATE%>

<<BACK TO DISTRIBUTION NETWORK<<

<% if COUNT>0 then %> DEALER'S NAME AND ADDRESS

<% while not rs.EOF %> <% rs.MoveNext wend %>

<%=rs("Area")%>

<%=rs("Name")%>

<%=rs("Company")%>
<%=rs("Address1")%>
<%=rs("Address2")%>
<%=rs("Address3")%>
<%=rs("Address4")%>

Ph: <%=rs("Phone1")%>
<%=rs("Phone2")%>
Fax: <%=rs("Fax")%>
Email :<%=rs("Email")%>

<<BACK TO DISTRIBUTION NETWORK<<

<% end if %>

SARDA PLYWOOD INDUSTRIES LTD.
Regional Sales Offices :
<% while not rs1.EOF %> <%=rs1("Address1")%> <%=rs1("Address2")%> <%=rs1("Address3")%>
<% if not rs1("Phone")="" then %> Phone : <%=rs1("Phone")%> <% end if %> <% if not rs1("Fax")="" then %> Fax : <%=rs1("Fax")%>
<% end if %> <% if not rs1("Email")="" then %> E-mail: "><%=rs1("Email")%> <% end if %> <% rs1.MoveNext Wend %>

<% con.Close set rs=nothing set rs1=nothing set con=nothing %>