<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/maq.asp" -->
<%
Dim IDM
Dim IDM_numRows

Set IDM = Server.CreateObject("ADODB.Recordset")
IDM.ActiveConnection = MM_maq_STRING
IDM.Source = "SELECT *  FROM UEPINVMOD2  ORDER BY EQMFCD,IDNO1,EQMFM2"
IDM.CursorType = 0
IDM.CursorLocation = 2
IDM.LockType = 1
IDM.Open()

IDM_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
IDM_numRows = IDM_numRows + Repeat1__numRows
%>
var vectorAuto = new Array(); 
<% LAMA="-" 
hd=1
cuenta=0
%>
<% 
While ((Repeat1__numRows <> 0) AND (NOT IDM.EOF)) 
%><%lm=0 %><%lm2=0 %><% IF hd=1 then 
lm=1 
if lama="-" then lm2=0 else lm2=1 
hd=0
%>
vectorAuto[<%=cuenta %>]='<%=(IDM.Fields.Item("EQMFCD").Value)%>-<%=(IDM.Fields.Item("EQMFCD").Value)%>|<%end if %><%if lm=0 then %>#,#<% end if%><%=(IDM.Fields.Item("IDNO1").Value)%>@#<%=(IDM.Fields.Item("EQMFM2").Value)%>@#<% descre=""
if not isnull(IDM("FLDLOC")) then 
descre=TRIM(replace(LEFT(IDM.Fields.Item("FLDLOC").Value,50),chr(10),""))
descre=replace(descre,chr(13),"")
descre=replace(descre,"'","´")
end if
%><%=descre%>:<% descre=" "
if not isnull(IDM("EQMFS2")) then 
descre=TRIM(replace(LEFT(IDM.Fields.Item("EQMFS2").Value,50),chr(10),""))
descre=replace(descre,chr(13),"")
descre=replace(descre,"'","´")
end if
%><%=descre%>@#<%=(IDM.Fields.Item("BKVAL1").Value)%>@#<%=(IDM.Fields.Item("SMULTD").Value)%><% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  IDM.MoveNext()
  if not idm.eof then 
  	IF LAMA<>(IDM.Fields.Item("EQMFCD").Value) and lama<>"-" then 	
		response.write("'")
		cuenta=cuenta+1
		hd=1
	end if
	lama=(IDM.Fields.Item("EQMFCD").Value)  
   end if

  if idm.eof then response.write("'")
  
Wend
%>

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