<%@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 IDMAQUINA,TCOT,MAQUINA,MODELO,DESCR,V4,v1  FROM MAQUINA WHERE TCOT<>'' and OBSOLETO=0  ORDER BY TCOT,MAQUINA"
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("TCOT").Value)%>-<%=(IDM.Fields.Item("TCOT").Value)%>|<%end if %><%if lm=0 then %>#,#<% end if%><%=(IDM.Fields.Item("IDMAQUINA").Value)%>@#<%if not isnull(IDM("MODELO")) then response.write(replace(IDM.Fields.Item("MODELO").Value,"'","''"))%>@#<% descre=" "
if not isnull(IDM("MAQUINA")) then 
descre=TRIM(replace(LEFT(IDM.Fields.Item("MAQUINA").Value,50),chr(10),""))
descre=replace(descre,chr(13),"")
descre=replace(descre,"'","´")
end if
%><%=descre%>:<% descre=" "
if not isnull(IDM("DESCR")) then 
descre=TRIM(replace(replace(LEFT(IDM.Fields.Item("DESCR").Value,50),chr(10),""),"'","''"))
descre=replace(descre,chr(13),"")
descre=replace(descre,"'","´")
end if
%><%=descre%>@#<%=(IDM.Fields.Item("V1").Value)%>@#<%=(IDM.Fields.Item("V4").Value)%><% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  IDM.MoveNext()
  if not idm.eof then 
  	IF LAMA<>(IDM.Fields.Item("TCOT").Value) and lama<>"-" then 	
		response.write("'")
		cuenta=cuenta+1
		hd=1
	end if
	lama=(IDM.Fields.Item("TCOT").Value)  
   end if

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

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