<% Option Explicit Response.Buffer = true Response.Expires = 0 %> Home
Click here for the contact form <% sub listLocations() Dim conn Dim rst Dim str Dim aDict Set aDict = Server.CreateObject("Scripting.Dictionary") Set conn = Server.CreateObject("ADODB.Connection") conn.ConnectionString = Application("ConnectString") conn.open ' Select categories that are not subcategories str = "Select * from Locations order by Address2;" Call readRecordsetData(conn, rst, str) ' readonly rst Set rst.ActiveConnection = Nothing while not(rst.EOF) response.Write("") response.Write("  " & vbcrlf) Call readAndFillDict(conn, rst, aDict) Call writeOneLocation(aDict) response.Write("  " & vbcrlf) Call readAndFillDict(conn, rst, aDict) Call writeOneLocation(aDict) response.Write("  " & vbcrlf) response.Write("" & vbcrlf) 'rst.MoveNext wend rst.Close conn.Close end sub sub readAndFillDict(byref conn, byref rst, byref aDict) Dim n if not(rst.EOF) then Call fillDict(conn, rst, aDict) rst.MoveNext else for n=0 to 9 aDict(n) = "" next end if end sub sub fillDict(byref conn, byref rst, byref aDict) aDict.RemoveAll aDict(0) = imageTagFromID(conn, rst("LogoPictureID"), "") aDict(1) = rst("Name") aDict(2) = rst("Address1") 'Brad added: Do not display address2 it is for ordering records aDict(3) = "" 'aDict(3) = rst("Address2") aDict(4) = rst("City") & ", " & rst("State") & " " & rst("Zipcode") aDict(5) = "Phone: " & rst("Phone1") if (rst("Phone2") <> "") then aDict(6) = "Phone: " & rst("Phone2") else aDict(6) = "" end if aDict(7) = "Fax: " & rst("Fax") if (rst("Email") <> "") then aDict(8) = "" & rst("Email") & "" & vbcrlf else aDict(8) = "" end if if (rst("MapquestURL") <> "") then aDict(9) = "View Map" & vbcrlf else aDict(9) = "" end if end sub sub writeOneLocation(byref aDict) Dim n response.Write(" ") response.Write(" " & aDict(0) & "
" & vbcrlf) ' write logo response.Write(" " & aDict(1) & "
" & vbcrlf) ' write name for n = 2 to 9 if (aDict(n) <> "") then response.Write( aDict(n) & "
" & vbcrlf) end if next response.Write("
") response.Write("
" & vbcrlf) end sub %> <% Call listLocations() %>