<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_acensdns_STRING MM_acensdns_STRING = "Provider=SQLOLEDB.1;Password=jacaed18;Persist Security Info=True;User ID=ADM_14935;Initial Catalog=14935;Data Source=217.116.0.102" %> <% Dim ART__MMColParam ART__MMColParam = "8-8" If (Request("MM_EmptyValue") <> "") Then ART__MMColParam = Request("MM_EmptyValue") End If %><% Dim ART Dim ART_numRows Set ART = Server.CreateObject("ADODB.Recordset") ART.ActiveConnection = MM_acensdns_STRING ART.Source = "SELECT ART, DES, PUN, PM2, UNI, FAM FROM dbo.ART WHERE FAM = '" + Replace(ART__MMColParam, "'", "''") + "' ORDER BY ART ASC" ART.CursorType = 0 ART.CursorLocation = 2 ART.LockType = 1 ART.Open() ART_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 ART_numRows = ART_numRows + Repeat1__numRows %> pagina_consumibles_111
1
1 11
1
<% %> <% While ((Repeat1__numRows <> 0) AND (NOT ART.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 ART.MoveNext() Wend %>
Referencia Tamaño €/u €/m2

Agregar
<%=(ART.Fields.Item("ART").Value)%>
<%=(ART.Fields.Item("DES").Value)%>
<%=(ART.Fields.Item("PUN").Value)%>
<%=(ART.Fields.Item("PM2").Value)%>
  

 

 

<% ART.Close() Set ART = Nothing %>