CopRice

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> CopRice

CopRice Speciality Products Stockists

<% set validate = createobject("SecurityCOM.Validation") ' Declare variables Dim rstStockist ' ADO recordset Dim strSQL ' String in which to build our SQL command Dim lngRecsAffected ' # of records affected... just informational Dim strName Dim strAddress Dim strTown Dim strState Dim strPostCode Dim strPhone ' Build SQL String strSQL = "" strSQL = strSQL & "SELECT Name, Address, Town, State, PostCode, Phone FROM Stockist" strSQL = strSQL & " WHERE State = 'SA'" strSQL = strSQL & " ORDER BY Town Asc, Name Asc" 'Open recordset and execute SQL Set rstStockist = Server.CreateObject("ADODB.Recordset") rstStockist.Open strSQL, _ Application("DBConnectionString") %> <% If rstStockist.EOF Then %> <% End If Do While Not rstStockist.EOF validate.StringToValidate = rstStockist.Fields("Name").Value strName = validate.Clean validate.StringToValidate = rstStockist.Fields("Address").Value strAddress = validate.Clean validate.StringToValidate = rstStockist.Fields("Town").Value strTown = validate.Clean validate.StringToValidate = rstStockist.Fields("State").Value strState = validate.Clean strPostCode = rstStockist.Fields("PostCode").Value If not isnull(strPostCode) then validate.StringToValidate = strPostCode strPostCode = validate.Clean End If strPhone = rstStockist.Fields("Phone").Value If not isnull(strPhone) then validate.StringToValidate = strPhone strPhone = validate.Clean End If %> <% rstStockist.MoveNext Loop ' Close recordset rstStockist.Close Set rstStockist = Nothing %>

CopRice Speciality Products Stockists in South Australia
Sorry! There are no CopRice Speciality Products Stockists in South Australia
<%= strName %>	<%= strAddress %> <%= UCase(strTown) %> <%= UCase(strState) %> <%= strPostCode %> <%= strPhone %>