United Kingdom and Ireland :: RED LION CONTROLS ::

:: UNITED KINGDOM AND IRELAND ::

List distributors who can supply...

>HMI, data collection, and protocol conversion products
>Digital panel meters, counters, rate indicators, timers, signal conditioners, and PID controllers
>All of the products listed above
>List all distributors

<% 'This will create the ADO connection set StADO = Server.CreateObject("ADODB.Connection") set rsADO = Server.CreateObject("ADODB.Recordset") StConn = "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=e:\DBs\UKdist\UKDistributors.xls" StADO.Open(StConn) StSQL = "SELECT * FROM ""distdata""" rsADO.Open StSQL,StADO if Request.Form("R1") = "interface" then rsADO.filter = "interface Like 'y*'" End if If Request.Form("R1") = "indication" then rsADO.filter = "indication Like 'y*'" End if If Request.Form("R1") = "both" then rsADO.filter = "indication Like 'y*' and interface Like 'y*'" End if if rsADO.EOF then response.write(" No records found.
") End if COUNT = 0 CellColor = 0 Do While NOT rsADO.EOF COUNT = COUNT + 1 if CellColor = 0 then response.write("") CellColor = 1 else response.write("") CellColor = 0 end if response.write("") response.write("") response.write("") response.write("") rsADO.MoveNext response.write("") Loop response.write("

Location	Distributor	Phone Number	Website
") set objfield = rsADO.Fields("Region") response.write(objfield.Value) response.write("	") set objfield = rsADO.Fields("Name") response.write(objfield.Value) response.write("	") set objfield = rsADO.Fields("Phone") response.write(objfield.Value) response.write("	") set objfield = rsADO.Fields("Website") set outpathfield = rsADO.Fields("Fullurl") response.write("" & objfield.Value & "") response.write("

") rsADO.Close set StADO = Nothing %>



	Privacy Policy \| Terms and Conditions \| Warranty Statement Repair Order Policy \| Return Policy