<% 'Set session variables if len(trim(request("selgrade"))) > 0 then session("grade") = request("selgrade") session("view") = request("selview") end if 'For return to last category link on search page session("lastcat") = "http://" & request.servervariables("SERVER_NAME") & request.servervariables("URL") & "?" & request.servervariables("QUERY_STRING") 'Open Recordsets set dbConn = Server.CreateObject("ADODB.Connection") set rsManufacturer = Server.CreateObject("ADODB.RecordSet") set rsCategories = Server.CreateObject("ADODB.RecordSet") dbConn.Open Application("DSN") if request("cat") = "all" then strMode = "all" elseif len(trim(request("manufact"))) <> 0 then strMode = "manufact" elseif len(trim(request("manufact"))) = 0 and len(trim(request("cat"))) = 0 then strMode="all" else strMode="category" end if sql = "Select DISTINCT Manufacturer from products_new order by Manufacturer" rsManufacturer.Open sql, dbconn,adOpenDynamic,adLockOptimistic 'Detect the browser set objBrowserCheck = server.CreateObject("MSWC.BrowserType") session("browsertype") = objBrowserCheck.Browser session("platform") = "WIN" if instr(Request.ServerVariables("HTTP_USER_AGENT"), "Mac") > 0 then session("platform") = "MAC" end if %>

<%=session("dealername")%> ">Home / Catalog Categories / Monthly Drawing Shopping Cart / Check Out
<% if strMode="manufact" then Select case left(request("manufact"),10) case "Twin Siste" Response.Write "" case "Frank Scha" Response.Write "" case "FUN-tastic" Response.Write "" case "Frog Stree" Response.Write "" case "Bryan Hous" Response.Write "" case "Rock 'N Le" Response.Write "" case "Scholastic" Response.Write "" case "World*Clas" Response.Write "" case "Teacher Cr" Response.Write "" case "Ideal*Inst" Response.Write "" case "Teacher's " Response.Write "" case "Carson-Del" Response.Write "" case "Creative T" Response.Write "" case "Remedia Pu" Response.Write "" case "Didax - Wo" Response.Write "" case "School Zon" Response.Write "" case "McDonald P" Response.Write "" case "Hayes Scho" Response.Write "" end select else %> <% end if %>	Instant Manufacturer Catalogs <% Response.Write " " Response.Write "More Manufacturers" do while not rsManufacturer.EOF if len(trim(rsManufacturer("Manufacturer"))) > 0 then Response.Write "" & rsManufacturer("Manufacturer") & "" end if rsManufacturer.movenext loop set rsManufacturer = nothing Response.Write "" %>
<% filename = strDealer & ".htm" testfile = server.MapPath ("../dealer_html") & "\" & filename 'TestFile = "d:\clients\abc2z\dealer_html" & "\"&filename&"" if CheckIt(testfile) = "true" then Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set InStream= FileObject.OpenTextFile (TestFile, 1, False, 0) While not InStream.AtEndOfStream Response.Write Instream.Readline 'InStream.SkipLine() Wend Set Instream=Nothing else response.write "No further information is available" end if %>

<% set dbconn = nothing set rsManufacturer = nothing set rsCategories = nothing Function CheckIt(FilePath) Set FileCheck = Server.CreateObject("Scripting.FileSystemObject") if FileCheck.FileExists(FilePath) = true then CheckIt = "true" else CheckIt = "False" end if end function %>