<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="Connections/maq.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="ADMIN,VENDEDOR,GERENTE,RESP_ZONA,ESPECIALISTA"
MM_authFailedURL="login.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<%
if request("ENCA")<>"" THEN 
Response.Cookies("ENCA")=cstr(request("ENCA"))
END IF
%>
<%
Dim ct__VIDCOT
ct__VIDCOT = "1"
If (request("id") <> "") Then 
  ct__VIDCOT = request("id")
End If
%>
<%
Dim ct
Dim ct_numRows

Set ct = Server.CreateObject("ADODB.Recordset")
ct.ActiveConnection = MM_maq_STRING
ct.Source = "SELECT *  FROM COTS  WHERE IDCOTIZACION=" + strreplace(ct__VIDCOT, "'", "''") + ""
ct.CursorType = 0
ct.CursorLocation = 2
ct.LockType = 1
ct.Open()

ct_numRows = 0
%>
<% 
IDMQ="1"
IDPROSP="1"
IF NOT ct.EOF then 
	IDMQ=cstr(ct("IDMAQUINA"))
	IDPROSP=cstr(ct("IDPROSPECTO"))
END IF
%>
<%
Dim ents__VDMQ
ents__VDMQ = "-1"
If (IDMQ <> "") Then 
  ents__VDMQ = IDMQ
End If
%>
<!--#include file="Connections/dbslnk.asp" -->
<%
Dim ents
Dim ents_numRows

Set ents = Server.CreateObject("ADODB.Recordset")
ents.ActiveConnection = MM_maq_STRING
ents.Source = "SELECT COTDET.CLAVE, COTDET.DESCR  FROM COTDET  WHERE COTDET.IDMAQUINA=" + strreplace(ents__VDMQ, "'", "''") + "   ORDER BY IDACCESORIO"
ents.CursorType = 0
ents.CursorLocation = 2
ents.LockType = 1
ents.Open()

ents_numRows = 0
%>
<%
oclt="MAQUINA"
%>
<%
Dim tt
Dim tt_numRows

Set tt = Server.CreateObject("ADODB.Recordset")
tt.ActiveConnection = MM_maq_STRING
tt.Source = "SELECT *  FROM MAQUINA WHERE IDMAQUINA=" +IDMQ
tt.CursorType = 0
tt.CursorLocation = 2
tt.LockType = 1
tt.Open()

tt_numRows = 0
%>
<%
Dim cte__IDDBS
cte__IDDBS = "05070"
If (IDPROSP <> "") Then 
  cte__IDDBS = IDPROSP
End If
%>
<%
Dim cte
Dim cte_numRows

Set cte = Server.CreateObject("ADODB.Recordset")
cte.ActiveConnection = MM_maq_STRING
cte.Source = "SELECT *  FROM PROSPECTOS  WHERE IDCLIENTE='" + strreplace(cte__IDDBS, "'", "''") + "'"
cte.CursorType = 0
cte.CursorLocation = 2
cte.LockType = 1
cte.Open()

cte_numRows = 0
%>
<%
Dim mqdescr__IDMQ
mqdescr__IDMQ = "1"
If (IDMQ <> "") Then 
  mqdescr__IDMQ = IDMQ
End If
%>
<%
Dim mqdescr
Dim mqdescr_numRows

Set mqdescr = Server.CreateObject("ADODB.Recordset")
mqdescr.ActiveConnection = MM_maq_STRING
mqdescr.Source = "SELECT DESCR, MAQUINA,DESCRIPCION,CONFBC  FROM MAQUINA  WHERE IDMAQUINA=" + strreplace(mqdescr__IDMQ, "'", "''") + ""
mqdescr.CursorType = 0
mqdescr.CursorLocation = 2
mqdescr.LockType = 1
mqdescr.Open()

mqdescr_numRows = 0
%>
<%
set fin = Server.CreateObject("ADODB.Recordset")
fin.ActiveConnection = MM_maq_STRING
fin.Source = "SELECT * FROM FINANCIAMIENTO"
fin.CursorType = 0
fin.CursorLocation = 2
fin.LockType = 3
fin.Open()
fin_numRows = 0
%>

<%
Dim valco
Dim valco_numRows

Set valco = Server.CreateObject("ADODB.Recordset")
valco.ActiveConnection = MM_maq_STRING
valco.Source = "SELECT *  FROM VALCOTS"
valco.CursorType = 0
valco.CursorLocation = 2
valco.LockType = 1
valco.Open()

valco_numRows = 0
%>


<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 30
Repeat1__index = 0
ents_numRows = ents_numRows + Repeat1__numRows
%>
<% 
dim SZ()
dim DT()
dim head()
dim cpos()
KEYFL=""
imgfld="STATUS"
oclt=""
redim SZ(ents.Fields.Count)
redim DT(ents.Fields.Count)
redim head(ents.Fields.Count)
redim cpos(ents.Fields.Count)

			for n=0 to ents.Fields.Count-1

                               SZ(n)= cstr(ents.Fields.Item(n).DefinedSize )

							   DT(n)= cstr(ents.Fields.Item(n).Type )
								head(n)=cstr(ents.Fields.Item(n).name)
								cpos(n)=cstr(ents.Fields.Item(n).name)


            next %>
			<%rem  response.Redirect("es.asp?cmd="+cpos(4))%>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>					
function DoDateTime(str, nNamedFormat, nLCID)				
	dim strRet								
	dim nOldLCID								
										
	strRet = str								
	If (nLCID > -1) Then							
		oldLCID = Session.LCID						
	End If									
										
	On Error Resume Next							
										
	If (nLCID > -1) Then							
		Session.LCID = nLCID						
	End If									
										
	If ((nLCID < 0) Or (Session.LCID = nLCID)) Then				
		strRet = FormatDateTime(str, nNamedFormat)			
	End If									
										
	If (nLCID > -1) Then							
		Session.LCID = oldLCID						
	End If									
										
	DoDateTime = strRet							
End Function									
</SCRIPT>									
<html>
<head>
<title>www.promad.com.mx</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="styles/regular.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<form name="form1" method="post" action="pcto3.asp">
  <br>
  <br>
  <table width="650" border="0" cellpadding="0" cellspacing="10" class="arialsmall">
    <tr valign="top"> 
      <td colspan="2"><img src="images/spacer<%=request("ENCA") %>.gif" width="650" height="67"></td>
    </tr>
    <% if NOT CT.eoF  then ' Adv Conditional Region %>
    <tr valign="top"> 
      <td colspan="2"><div align="center"><font size="4"><strong>COTIZACI&Oacute;N</strong></font></div></td>
    </tr>
    <tr valign="top"> 
      <td colspan="2"><% Session.LCID = 1034 %> <div align="right"> 
          <%
	  fech=DoDateTime((ct.Fields.Item("FECHA").Value), 1, -1)
	  uca=ucase(left(fech,1))
	  deca=right(fech,len(fech)-1)
	  response.Write(uca+deca)
	   %>
        </div>
        <% Session.LCID = 1033 %></td>
    </tr>
    <tr valign="top"> 
      <td><img src="images/spacer.gif" width="10" height="650"> </td>
      <td class="arialsmall"><%=replace(request("libred"),chr(10),"<br>")%> </td>
    </tr>
    <tr valign="top">
      <td>&nbsp;</td>
      <td><img src="bar.asp?code=<%=request("cotid") %>&height=10&width=1&mode=code39" align="right"></td>
    </tr>
    <tr valign="top"> 
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <% end if 'NOT CT.eoF %>
  </table>
  <p class="break"></p>
    <% if request("sinc")=""  then ' Adv Conditional Region %>
  <table width="100" border="0" cellpadding="0" cellspacing="10" class="arialsmall">
    <% if NOT CT.eoF  then ' Adv Conditional Region %>
    <tr> 
      <td ><img src="images/spacer.gif" width="650" height="8"></td>
    </tr>
    <tr> 
      <td valign="top" > <div align="right" class="arialsmall"><img src="images/cat.jpg" align="left">Caterpillar 
          Arrendadora Financiera, S.A. de C.V.<br>
          Organizaci&oacute;n Auxiliar del Cr&eacute;dito<br>
          Grupo Financiero Caterpillar M&eacute;xico, S.A. de C.V.</div></td>
    </tr>
    <tr> 
      <td >&nbsp;</td>
    </tr>
    <tr> 
      <td class="reporte" > <p>Sistema de Cotizaci&oacute;n de Caterpillar Financial 
          M&eacute;xico-PROMAD <br>
        </p></td>
    </tr>
    <tr> 
      <td class="reporte" >Por medio de la presente nos permitimos someter a su 
        amable consideraci&oacute;n la siguiente tabla que muestra <br>
        las condiciones generales con las cuales ver&iacute;amos factible el estudio 
        de cr&eacute;dito respecto de los equipos cotizados por MAQUINARIA, S.A. 
        De C.V.<br></td>
    </tr>
    <tr> 
      <td > 
        <%ELIVA=1.15%>
        <%DLL=trim(ct.Fields.Item("MONEDA").Value)%>
		<%tca=1%>
        <%ELPRE=(ct.Fields.Item("PRECIO").Value)%>
        <%subs=(ct.Fields.Item("ENGPORC").Value)%><%
		if dll="pesos" then 
		tca=(valco.Fields.Item("DOLAR").Value)
			ELPRE=ELPRE*tca 
			
		end if
		DLL2="PESOS"
		if tca=1 then dll2="DOLARES"
		%>
        <br>
      </td>
    </tr>
    <tr> 
      <td ><table width="300" border="0" cellpadding="0" cellspacing="0" class="reporte">
          <tr> 
            <td class="arialsmall"><strong>Cliente</strong></td>
            <td class="arialsmall"><%=(cte.Fields.Item("NOMBRE").Value)%><%=(cte.Fields.Item("APELLIDO").Value)%></td>
          </tr>
          <tr> 
            <td class="arialsmall"><strong>Compania</strong></td>
            <td class="arialsmall"><%=(cte.Fields.Item("COMPANIA").Value)%></td>
          </tr>
          <tr> 
            <td class="arialsmall"><strong>Tipo de Operaci&oacute;n</strong></td>
            <td class="arialsmall">Arrendamiento Financiero</td>
          </tr>
          <tr> 
            <td class="arialsmall"><strong>Equipo</strong></td>
            <td class="arialsmall"><%=request("er2") %></td>
          </tr>
          <tr> 
            <td class="arialsmall"><strong>Precio (USD)</strong></td>
            <td class="arialsmall"><%= FormatCurrency(ELPRE, 2, -2, -2, -2) %></td>
          </tr>
          <tr> 
            <td class="arialsmall"><strong>Tipo de Cambio</strong></td>
            <td class="arialsmall"><%= FormatCurrency((ct.Fields.Item("DOLAR").Value), 2, -2, -2, -2) %></td>
          </tr>
          <tr> 
            <td class="arialsmall"><strong>Libor</strong></td>
            <td class="arialsmall"><%=(ct.Fields.Item("LIBOR").Value)%></td>
          </tr>
          <tr>
            <td class="arialsmall">&nbsp;</td>
            <td class="arialsmall"><%if subs="1" then response.Write("APLICA SUBSIDIO") %></td>
          </tr>
        </table></td>
    </tr>
    <tr> 
      <td rowspan="4" valign="top" ><table border="1" cellpadding="0" cellspacing="0" class="smallvar">
          <tr> 
            <td colspan="2" class="noesdia">Precios en :<%=ucase(DLL2) %></td>
          </tr>
          <tr> 
            <td>Plazo</td>
            <% cnt=0 'contador de financiamientos%>
            <%U=0
			DIM PL(5)
										while not fin.eof  
										U=U+1%>
            <%cnt=cnt+1 %>
            <td align="center"> <input name="PL<%=U %>" type="hidden" value="<%=fin("PLAZO") %>"> 
              <%=fin("PLAZO")  %> <% PL(U)=fin("PLAZO")%></td>
            <%fin.movenext 
										  WEND
										  If (fin.CursorType > 0) Then
  fin.MoveFirst
Else
  fin.Requery
End If%>
          </tr>
          <tr> 
            <td>Enganche 
              <input name="cnt" type="hidden" id="cnt" value="<%=cnt %>"></td>
            <%U=0
			DIM ENg(5)
										while not fin.eof  
										U=U+1%>
            <td align="center"> <input name="EN<%=U %>" type="hidden" value="<%=fin("ENGANCHE") %>"> 
              <%=fin("ENGANCHE") %>% 
              <%ENG(U)=fin("ENGANCHE")%> </td>
            <%fin.movenext 
										  WEND
										  If (fin.CursorType > 0) Then
  fin.MoveFirst
Else
  fin.Requery
End If%>
          </tr>
          <tr> 
            <td>Comisi&oacute;n por Apertura+IVA</td>
            <%U=0
			DIM CAP(5)
										while not fin.eof  
										U=U+1%>
            <td align="center"> <input name="CAP<%=U %>" type="hidden" value="<%=fin("COMAPERTURA") %>"> 
              <%=fin("COMAPERTURA") %>% 
              <% CAP(U)=fin("COMAPERTURA")%></td>
            <%fin.movenext 
										  WEND
										  If (fin.CursorType > 0) Then
  fin.MoveFirst
Else
  fin.Requery
End If%>
          </tr>
          <tr> 
            <td>Condiciones de Tasa</td>
            <%U=0
			DIM CTu(5) 'TASAS USD
			DIM CTP(5) 'TASAS PESOS
			DIM CTS(5) 'TASAS USD SUBSIDIO
			DIM CTPS(5) 'TASA PESOS  SUBSIDIO
										while not fin.eof  
										U=U+1%>
            <td align="center"> <input name="CT<%=U %>" type="hidden" value="<%=fin("TASA") %>"> 
              <input name="CTP<%=U %>" type="hidden" value="<%=fin("TASAPES") %>"> 
              <input name="CTS<%=U %>" type="hidden" value="<%response.Write(fin("TASASUB")) 'if cfloat(fin("TASASUB"))<0 then response.write(fin("TASASUB")*valco("LIBOR")) else %>"> 
              <input name="CTPS<%=U %>" type="hidden" value="<%=fin("TASAPESSUB") %>"> 
              <div id="TIS<%=u %>"> 
                <%
			  IF subs="0" THEN 
			  if tca=1 then RESPONSE.WRITE(valco.Fields.Item("LIBOR").Value+fin("TASA"))  else RESPONSE.WRITE(fin("TASAPES")) 
			  end if
			  IF subs="1" THEN 
			  if tca=1 then RESPONSE.WRITE(abs(fin("TASASUB"))*valco("LIBOR"))  ELSE RESPONSE.WRITE(fin("TASAPESSUB")) 
			  end if
			  if subs<>"0" and subs<>"1" then RESPONSE.WRITE(valco.Fields.Item("LIBOR").Value+fin("TASA"))  'si es cotizacion vieja
			  %>
                % 
                <%CTu(U)=fin("TASA")+valco.Fields.Item("LIBOR").Value
			  'CTP(U)=fin("TASAPES")
			 ' CTS(U)=(fin("TASASUB"))*VALCO("LIBOR") 'ABS tasasub??
			  'CTPS(U)=fin("TASAPESSUB") %>
              </div></td>
            <%fin.movenext 
										  WEND
										  If (fin.CursorType > 0) Then
  fin.MoveFirst
Else
  fin.Requery
End If%>
          </tr>
          <tr> 
            <td bgcolor="#eeeeee">&nbsp;</td>
          </tr>
          <tr> 
            <td>Enganche</td>
            <%
										tu=0
										while tu<cnt 
										tu=tu+1
										 %>
            <td align="center"> <div id="ENG<%=tu %>"> 
                <%= FormatCurrency(ELPRE*(ENG(TU)/100)*ELIVA, 2, -2, -2, -2) %></div></td>
            <%  WEND 'fin de loop de  %>
          </tr>
          <tr> 
            <td>Comision Por Apertura</td>
            <%dim comi(5)
										tu=0
										while tu<cnt 
										tu=tu+1
										enga=ELPRE*(ENG(TU)/100)
										mfin=elpre-enga
										comi(tu)=mfin*(CAp(TU)/100)*ELIVA
										 %>
            <td align="center"> <div id="CA<%=tu %>"><%= FormatCurrency(comi(tu), 2, -2, -2, -2) %></div></td>
            <%  WEND 'fin de loop de  %>
          </tr>
          <tr> 
            <td>Gastos de Ratificaci&oacute;n</td>
            <%
			dim ggra(5)
										tu=0
										while tu<cnt 
										tu=tu+1
										enga=ELPRE*(ENG(TU)/100)
										mfin=elpre-enga
										if mfin<60000 then ggra(tu)=valco("STDLEG2") ELSE GGRA(tu)=valco("STDLEG")
										if tca>1 then if mfin<60000 then ggra(tu)=valco("STDLEG2")*10 ELSE GGRA(tu)=valco("STDLEG")*10
										 %>
            <td align="center"> <div id="GRA<%=tu %>"><%= FormatCurrency(ggra(tu), 2, -2, -2, -2) %></div></td>
            <%  WEND 'fin de loop de  %>
          </tr>
          <tr> 
            <td>Seguro(Prima Anual 12%)</td>
            <%dim prim(5)
										tu=0
										while tu<cnt 
										tu=tu+1
										prim(tu)=ELPRE*valco("PRIMASEG")*ELIVA
										 %>
            <td align="center"> <div id="SEG<%=tu %>"><%= FormatCurrency(prim(tu), 2, -2, -2, -2) %></div></td>
            <%  WEND 'fin de loop de  %>
          </tr>
          <tr> 
            <td>Dep&oacute;sito en Garantia</td>
            <%
			DIM MENS(5)
			dim latar(5)
										tu=0
										while tu<cnt 
										tu=tu+1
										enga=ELPRE*(ENG(TU)/100)
										mfin=elpre-enga
										nper=PL(tU)
										IF SUBS="1" THEN 
										IF TCA=1 THEN 
											tasa=(cts(tu)/100)/12 
											latar(tu)=cts(tu) 
										ELSE 
											tasa=(ctps(tu)/100)/12
											latar(tu)=ctps(tu)
										END IF
										end if
										IF SUBS="0" THEN 
										IF TCA=1 THEN 
											tasa=(ctu(tu)/100)/12
											latar(tu)=ctu(tu)
										ELSE 
											tasa=(ctp(tu)/100)/12
											latar(tu)=ctp(tu)
										end if
										END IF
										if subs<>"0" and subs<>"1" then 
											tasa=(cts(tu)/100)/12 'si es cotizacion vieja
											latar(tu)=cts(tu)
										end if
										
										parcial=1-(1/((1+tasa)^nper))
	  									IF latar(tu)>0 THEN mens(tu)=(mfin*tasa)/parcial '// 
										IF latar(tu)=0 THEN mens(tu)=mfin/nper
										
										 %>
            <td align="center"> <div id="DEP<%=tu %>"><%= FormatCurrency(mens(tu), 2, -2, -2, -2) %></div></td>
            <%  WEND 'fin de loop de  %>
          </tr>
          <tr> 
            <td>Total pago Inicial</td>
            <%dim tpi(5)
										tu=0
										while tu<cnt 
										tu=tu+1
										enga=ELPRE*(ENG(TU)/100)
										mfin=elpre-enga
										tpi(tu)=mens(tu)+ggra(tu)+prim(tu)+comi(tu)+(enga*eliva)
										 %>
            <td align="center"> <div id="PI<%=tu %>"><%= FormatCurrency(tpi(tu), 2, -2, -2, -2) %></div></td>
            <%  WEND 'fin de loop de  %>
          </tr>
          <tr> 
            <td>Monto a Financiar </td>
            <%dim mfina(5)
										tu=0
										while tu<cnt 
										tu=tu+1
										enga=ELPRE*(ENG(TU)/100)
										mfina(tu)=elpre-enga
										 %>
            <td align="center"> <div id="MF<%=tu %>"><%= FormatCurrency(mfina(tu), 2, -2, -2, -2) %></div></td>
            <%  WEND 'fin de loop de  %>
          </tr>
          <tr> 
            <td>Tasa de Interes</td>
            <%
										tu=0
										while tu<cnt 
										tu=tu+1
										
							
										 %>
            <td align="center"> <div id="TI<%=tu %>"><%= FormatPercent(latar(tu)/100, 2, -2, -2, -2) %></div></td>
            <%  WEND 'fin de loop de  %>
          </tr>
          <tr> 
            <td>Pagos Mensuales </td>
            <%
										tu=0
										while tu<cnt 
										tu=tu+1
										 %>
            <td align="center" class="noesdia"> <div id="MENS<%=tu %>"><%= FormatCurrency(mens(tu), 2, -2, -2, -2) %></div></td>
            <%  WEND 'fin de loop de  %>
          </tr>
          <tr> 
            <td>Opci&oacute;n de Compra + IVA<br>
              (Sobre el Monto de la Factura) </td>
            <%while not fin.eof  %>
            <td align="center"><%=FormatPercent(fin("OPC_COMPRA")/100, 2, -2, -2, -2) %></td>
            <%fin.movenext 
										  WEND
										  If (fin.CursorType > 0) Then
  fin.MoveFirst
Else
  fin.Requery
End If%>
          </tr>
        </table> </td>
    </tr>
    <tr> </tr>
    <tr> </tr>
    <tr> </tr>
    <tr> 
      <td ><table border="1" cellpadding="0" cellspacing="0" class="reporte">
          <tr> 
            <td class="arialsmall"><span class="smallvarBold">Queda entendido 
              que esta es &uacute;nicamente una carta indicativa, por lo cual 
              no representa ning&uacute;n compromiso por parte de Grupo Financiero 
              CATERPILLAR de M&eacute;xico SA de CV. Esta cotizaci&oacute;n es 
              informativa y esta sujeta a cambios sin previo aviso, asimismo queda 
              sujeta a lo siguiente:</span><span class="smallvar"> </span> 
              <%poco=1000
			  pomenos=50000
			  if tca>1 then 
			  poco=10000
			  pomenos=50000
			  end if
			   %>
              <p><span class="smallvar">1)Esta cotizaci&oacute;n de arrendamietno 
                es v&aacute;lida s&oacute;lo cumpliendo todos sus incisos.<br>
                2)El desembolso se realizar&aacute; una vez que las condiciones 
                del aseguramiento del equipo est&eacute;n de acuerdo a las pol&iacute;ticas 
                de GFCM y la l&iacute;nea de cr&eacute;dito quede autorizada.<br>
                3)El IVA repercequivale al 15% de cada cuota de capital y se paga 
                mensualmente.<br>
                4)El equipo deber&aacute; estar en territorio mexicano durante 
                todo el per&iacute;odo del compromiso.<br>
                5)La opci&oacute;n de compra se paga adicionalmente y equivale 
                alporcentaje del precio del equipo seg&uacute;n sea el plazo<br>
                6)Los gastos de Seguro se renuevan anualmente<br>
                7)El porcentaje de comisi&oacute;n es sobre el monto a financiar 
                o fija de <%= FormatCurrency(poco, 2, -2, -2, -2) %> pesos en caso de que el monto a financiar sea menor 
                de <%= FormatCurrency(pomenos, 2, -2, -2, -2) %>.</span><br>
                </p></td>
          </tr>
        </table></td>
    </tr>
    <% end if 'NOT CT.eoF %>
  </table>
  <p>&nbsp;</p>
  <% end if 'request("sinc")="" %></p>
   
</form>
</body>
</html>
<%
ct.Close()
Set ct = Nothing
%>
<%
ents.Close()
Set ents = Nothing
%>
<%
tt.Close()
Set tt = Nothing
%>
<%
cte.Close()
Set cte = Nothing
%>
<%
mqdescr.Close()
Set mqdescr = Nothing
%>
<%
fin.Close()
%>
<%
valco.Close()
Set valco = Nothing
%>