<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DataFlex Test32"
' Get a country name from the URL to restrict query
CountryCode = Request.QueryString("CountryCode")
sql="select addr1,country,phone,contact,email,addr2,addr3,phone,fax from dealers2 where country like '" + CountryCode + "' and password < 'U'"
Set RS = Conn.Execute(sql)
%>
List of Regional Distributors for <% =CountryCode %>
<% Do While not RS.eof%>
| Contact: | <% = RS("contact") %> |
| Company: | <% = RS("addr1") %> |
| Address1: | <% = RS("addr2") %> |
| Address2: | <% = RS("addr3") %> |
| Country: | <% = RS("country") %> |
| Phone: | <% = RS("phone") %> |
| Fax: | <% = RS("fax") %> |
| E-mail: | "><%= RS("email")%> |
<%
RS.MoveNext
Loop
RS.close
Conn.close
%>
Note: The list of dealers on this page was generated live from
a DataFlex data file on this NT Server machine using
Flex/ODBC. Contact your
dealer to see how easily your data can appear instantly on the Internet!
