<% '============================================= ' create objects on web server 'set cn = server.CreateObject("ADODB.Connection") 'set rs = server.CreateObject("ADODB.Recordset") 'cnString = "DSN=pacific_D30DBCPLS" '============================================= ' get variables from querystring mfg_code = Request("mfg_code") mfg_name = Replace(Request("mfg_name"),"_"," ") PageNo = Request.QueryString("PageNo") '============================================= ' check for manufacturer image Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists("D:\hshome\pacific\pacificlamp.com\product-manufactures\" & mfg_code & ".jpg")) = True Then mfg_img = "  " Else mfg_img = "" End If set fs=nothing Select Case mfg_code Case "BEV", "BEVI" extra_categories = "true" main_manufacturer = "Everyready" sub_html = sub_html & "Eveready Battery | " sub_html = sub_html & "Eveready Industrial Battery" Case "MGE", "BGE", "LGE", "XGE", "PGE" extra_categories = "true" main_manufacturer = "General Electric" sub_html = sub_html & "GE Miniature Lamp | " sub_html = sub_html & "GE Ballasts | " sub_html = sub_html & "GE Large Lamps | " sub_html = sub_html & "GE Christmas | " sub_html = sub_html & "GE Photo" Case "BHW", "FHW", "LHW" extra_categories = "true" main_manufacturer = "Howard Ballast" sub_html = sub_html & "Howard Ballast | " sub_html = sub_html & "Howard Fixtures | " sub_html = sub_html & "Howard Large Lamps" Case "BLLT", "ELT" extra_categories = "true" main_manufacturer = "Lutron" sub_html = sub_html & "Lutron Ballast | " sub_html = sub_html & "Lutron Electrical" Case "BSY", "LSY", "PSY", "ESY", "LSYR" extra_categories = "true" main_manufacturer = "Osram / Sylvania" sub_html = sub_html & "Osram/Sylvania Ballast | " sub_html = sub_html & "Osram/Sylvania Large | " sub_html = sub_html & "Osram/Sylvania Photo | " sub_html = sub_html & "Sylvania Electrical | " sub_html = sub_html & "Sylvania Large Retail" Case "PPH", "LPH" extra_categories = "true" main_manufacturer = "Philips" sub_html = sub_html & "Philips Photo | " sub_html = sub_html & "Philips Large" Case "LUS", "PUS" extra_categories = "true" main_manufacturer = "Ushio" sub_html = sub_html & "Large Ushio | " sub_html = sub_html & "Photo Ushio" Case "EST", "LST" extra_categories = "true" main_manufacturer = "Satco" sub_html = sub_html & "Satco Electrical | " sub_html = sub_html & "Satco Large" Case Else End Select %> <%=capCase(mfg_name,true)%> at Pacicfic Lamp & Supply Company <% Select Case mfg_code Case "BPN" ' Panasonic Battery %><% Case "BLLT" ' Lutron Lighting Controls %><% Case "LSYR" ' Sylvania %><% Case "LMX" ' Sylvania %><% Case "ELV" ' Leviton %><% Case "FMC" ' Fixtures %><% Case "LUS" ' Oshio %><% Case "BLFH" ' Fulham %><% Case "BDU" ' Duracell %><% Case "PMC" ' Duracell %><% Case Else End Select %>

<% If mfg_img <> "" Then print mfg_img End If %><%=capCase(mfg_name,true)%>

For Ordering Please Call
(206) 767 5334 or (800) 637 0489

Pacific Lamp