%@LANGUAGE="VBSCRIPT"%> <% foto=1 If (Request.QueryString("f") <> "") Then foto = Request.QueryString("f") End If %> <% tipo=1 If (Request.QueryString("tipo") <> "") Then tipo = Request.QueryString("tipo") End If %> <% id=1 If (Request.QueryString("id") <> "") Then id = Request.QueryString("id") End If %> <% Dim tipo_proyecto Dim tipo_proyecto_numRows Set tipo_proyecto = Server.CreateObject("ADODB.Recordset") tipo_proyecto.ActiveConnection = MM_conn_STRING tipo_proyecto.Source = "SELECT * FROM PRODUCTOS WHERE ID_PRODUCTO="&id&" AND BAJA=0 ORDER BY ORDEN_LISTA ASC" tipo_proyecto.CursorType = 3 tipo_proyecto.CursorLocation = 2 tipo_proyecto.LockType = 1 tipo_proyecto.Open() tipo_proyecto_numRows = 0 %>
|
||||||||||||||||||||
![]() |
||||||||||||||||||||
|