<% Sub Main() strState = Request.querystring("State") if strState <> "" then strConnStr = Application("DBConnect") dim conn, rs, sql set conn = server.createobject("adodb.connection") conn.connectionstring = strConnStr sql = "SELECT [Company Name], u_dealerAddress, u_tel_Number, u_email, u_website FROM DEALERLOCATOR WHERE U_state ='" & strState & "' and U_dealerlocator = 'YES'" conn.open set rs = conn.execute(sql) if not rs.eof then arrHeader = Array(_ "Company Name" _ ,"Address" _ ,"Phone" _ ,"Email" _ ,"Web Site") htmDealerRow = RenderTableDataRow(arrHeader, array(), MSCSSiteStyle.TRMiddle) & CRLF while not rs.EOF if not isnull(rs(0)) then htmCompanyName = rs(0) else htmCompanyName = " " end if if not isnull(rs(1)) then htmAddress = rs(1) else htmAddress = " " end if if not isnull(rs(2)) then htmPhone = rs(2) else htmPhone = " " end if if not isnull(rs(3)) then htmEmail = rs(3) else htmEmail = " " end if if not isnull(rs(4)) then htmWebsiteURL = "" & rs(4) & "" else htmWebsiteURL = " " end if arrData = Array(_ htmCompanyName,_ htmAddress,_ htmPhone ,_ htmEmail,_ htmWebsiteURL) htmDealerRow = htmDealerRow & RenderTableDataRow(arrData, array(), MSCSSiteStyle.TRMiddle) & CRLF rs.movenext wend 'Response.write RenderTableHeaderRow(rs, Array(), MSCSSiteStyle.TRCenter) Set rs = Nothing conn.Close Set conn = Nothing htmPageContent = RenderTable(htmDealerRow, MSCSSiteStyle.BorderedTable) else htmPageContent = "Sorry there are no Dealers found. Please have your local sport shop contact us" end if 'Response.Write htmcontent end if End Sub %>