%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% Dim OpenFrame__MMColParam OpenFrame__MMColParam = "Open Frame" if (Request.QueryString("Type") <> "") then OpenFrame__MMColParam = Request.QueryString("Type") %> <% set OpenFrame = Server.CreateObject("ADODB.Recordset") OpenFrame.ActiveConnection = MM_power1_STRING OpenFrame.Source = "SELECT Product, Description, Po, pdf FROM power WHERE Type='" + Replace(OpenFrame__MMColParam, "'", "''") + "' ORDER BY Maxpower,product ASC" OpenFrame.CursorType = 0 OpenFrame.CursorLocation = 2 OpenFrame.LockType = 3 OpenFrame.Open() OpenFrame_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 OpenFrame_numRows = OpenFrame_numRows + Repeat1__numRows %>
| Product |
Po(w) |
Description |
|
| "> |
<%=(OpenFrame.Fields.Item("Product").Value)%> |
<%=(OpenFrame.Fields.Item("Po").Value)%> |
<%=(OpenFrame.Fields.Item("Description").Value)%> |