%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% Dim Adapter__MMColParam Adapter__MMColParam = "Adapter" if (Request.QueryString("Type") <> "") then Adapter__MMColParam = Request.QueryString("Type") %> <% set Adapter = Server.CreateObject("ADODB.Recordset") Adapter.ActiveConnection = MM_power1_STRING Adapter.Source = "SELECT Product, Po, Description, pdf FROM power WHERE (Type = '" + Replace(Adapter__MMColParam, "'", "''") + "') ORDER BY maxpower ASC" Adapter.CursorType = 0 Adapter.CursorLocation = 2 Adapter.LockType = 3 Adapter.Open() Adapter_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Adapter_numRows = Adapter_numRows + Repeat1__numRows %>
|
|
| Product |
Po(w) |
Description |
|
| "> |
<%=(Adapter.Fields.Item("Product").Value)%> |
<%=(Adapter.Fields.Item("Po").Value)%> |
<%=(Adapter.Fields.Item("Description").Value)%> |
If you are unable to acess the pdf file, please download the acrobat fix package.