<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/pedido.asp" -->
<%
Dim rs_merchan
Dim rs_merchan_numRows
Set rs_merchan = Server.CreateObject("ADODB.Recordset")
rs_merchan.ActiveConnection = MM_pedido_STRING
rs_merchan.Source = "SELECT * FROM productostb ORDER BY id DESC"
rs_merchan.CursorType = 0
rs_merchan.CursorLocation = 2
rs_merchan.LockType = 1
rs_merchan.Open()
rs_merchan_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rs_merchan_numRows = rs_merchan_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Links</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="Page-Enter" content="blendTrans(Duration=1)">
<STYLE TYPE="text/css"><!--
BODY {
scrollbar-arrow-color:000000;
scrollbar-shadow-color:000000;
scrollbar-face-color:FFFFFF;
scrollbar-highlight-color:FFFFFF;
scrollbar-darkshadow-color:FFFFFF;
scrollbar-3dlight-color:000000;
}
//--></STYLE>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</head>
<body background="entorno/entorno_07.jpg" bgproperties="fixed" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="1%"> </td>
<td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="2%"> </td>
<td> <%
While ((Repeat1__numRows <> 0) AND (NOT rs_merchan.EOF))
%>
<table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> <div align="center"><a href="cab_pedido.asp?select=<%=rs_merchan("id")%>" target="contenido"><img src="<%=(rs_merchan.Fields.Item("ruta_imagen").Val ue)%><%=(rs_merchan.Fields.Item("nombre_imagen").V alue)%>" border="0"></a></div></td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs_merchan.MoveNext()
Wend
%>
<div align="center"> </div>
<table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="251">
<div align="right"><font color="#333333" size="1" face="Trebuchet MS"><strong>REALIZA
AQUI TU PEDIDO</strong></font></div></td>
<td width="143"><font size="1" face="Trebuchet MS"><strong><font color="#CCCCCC"><a href="#"><img src="img/submit/submit.gif" width="16" height="16" border="0" onClick="MM_openBrWindow('pedido_c01.asp','pedido' ,'width=449,height=585')"></a><a href="pedido.asp?select=1">A</a></font></strong></font></td>
</tr>
</table>
<div align="center"></div></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
rs_merchan.Close()
Set rs_merchan = Nothing
%>