Gruber Technical Services <%IF Request("Pg") <> "" THEN %> <% 'Establish the Database and prepare the filler, under the consideration that there is a page to be displayed. Dim cMenu, strBody, cPic, cTitle, fsoObject, tsObject, filObject, cType, nest Set oRd_Art1=Server.CreateObject("adodb.recordset") strSQL_Art1 = "SELECT * FROM Articles WHERE idName='"&Request("Pg")&"'" oRd_Art1.Open strSQL_Art1, conn_Art1 IF oRd_Art1.EOF OR oRd_Art1.BOF Then Response.Redirect("Default.asp") END IF cMenu = oRd_Art1("idGroup") strBody= "GTS/Articles/" & oRd_Art1("article_location") cPic = oRd_Art1("pic") cTitle = oRd_Art1("Name") cType = oRd_Art1("idName") nest = oRd_Art1("nest") Set oRd_Art1=Server.CreateObject("adodb.recordset") strSQL_Art1 = "SELECT * FROM Articles WHERE idGroup='"&cMenu&"' AND Nest <> 'y' ORDER BY IDNAME" oRd_Art1.Open strSQL_Art1, conn_Art1 'Title of the Page goes here IF cTitle = "" OR isNull(cTitle) Then Response.Write Request.Cookies("PreviousTitle") Else Response.Write " : " & cTitle END IF IF nest = "y" OR nest = "Y" Then Response.Write " " & Request.Cookies("PreviousTitle") END IF %><%END IF%>

<%@ Language=VBScript %> <%Option explicit%> Gruber Technical Services <%IF Request("Pg") <> "" THEN %> <% 'Establish the Database and prepare the filler, under the consideration that there is a page to be displayed. Dim cMenu, strBody, cPic, cTitle, fsoObject, tsObject, filObject, cType, nest Set oRd_Art1=Server.CreateObject("adodb.recordset") strSQL_Art1 = "SELECT * FROM Articles WHERE idName='"&Request("Pg")&"'" oRd_Art1.Open strSQL_Art1, conn_Art1 IF oRd_Art1.EOF OR oRd_Art1.BOF Then Response.Redirect("Default.asp") END IF cMenu = oRd_Art1("idGroup") strBody= "GTS/Articles/" & oRd_Art1("article_location") cPic = oRd_Art1("pic") cTitle = oRd_Art1("Name") cType = oRd_Art1("idName") nest = oRd_Art1("nest") Set oRd_Art1=Server.CreateObject("adodb.recordset") strSQL_Art1 = "SELECT * FROM Articles WHERE idGroup='"&cMenu&"' AND Nest <> 'y' ORDER BY IDNAME" oRd_Art1.Open strSQL_Art1, conn_Art1 'Title of the Page goes here IF cTitle = "" OR isNull(cTitle) Then Response.Write Request.Cookies("PreviousTitle") Else Response.Write " : " & cTitle END IF IF nest = "y" OR nest = "Y" Then Response.Write " " & Request.Cookies("PreviousTitle") END IF %><%END IF%>


Products		Services


Uninterruptible Power Systems New, and Refurbished UPS Equipment Desktop to Large Data Center Protection Computer Room AC Environmental Control Equipment Self Contained Ceiling Mount Units Air Cooled and Chilled Water Systems Rectifier/Inverters 1PH/3PH - 50hz/60hz Rack Mount or Stand Alone Motor Generators & Frequency Converters 50hz/60hz Gas, LP and Diesel Generators Small Portable to Large Stand-By Batteries Telecom UPS Systems Emergency Lighting Surge Suppressors Complete Service Entrance Servers and Switching Hardware Environmental & Remote Monitoring Devices Sub Access Floor Internal and External Power, Temperature, Sound, etc.		Full Service Maintenance Rectifier/Inverters Gas, LP and Diesel Generators Uninterruptible Power Systems Battery Replacement Coverage Motor Generators/Frequency Converters Power Conditioning/Distribution Systems Preventive Maintenance/Time & Materials Access Floor Battery Systems Rectifier/Inverters Gas, LP and Diesel Generators Uninterruptible Power Systems Motor Generators/Frequency Converters Power Conditioning/Distribution Systems Battery Maintenance Run Time Analysis Battery Load Testing Full Install and Disposal Extended Battery Replacement Coverage Installation & Start Up UPS Start Up Power Distribution Cables Turn-Key Electrical Installation Extended Battery Runtime Installation Power Quality Analysis Load Balancing EMI/RFI Analysis Thermal Imaging Site Evaluation Services Power Quality Evaluation
Gruber Power Services - 21439 North 2nd Ave - Phoenix, AZ 85027 - Main 602 863-2655 - support@gruber.com

<%ELSE%> <%IF Request("Pg")<>"" THEN%> <%END IF%> <%END IF%>