Aquí tienes el código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/informacioncomercial.asp"-->
<%
Dim Epigrafe
Dim Epigrafe_numRows
Set Epigrafe = Server.CreateObject("ADODB.Recordset")
Epigrafe.ActiveConnection = MM_informacioncomercial_STRING
If(Request.QueryString("orden")="codigo") then
Epigrafe.Source = "SELECT * FROM SECCION order by Seccion ASC"
Else
Epigrafe.Source = "SELECT * FROM SECCION order by NombreSeccion ASC"
End If
Epigrafe.CursorType = 1
Epigrafe.CursorLocation = 2
Epigrafe.LockType = 1
Epigrafe.Open()
Epigrafe_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Epigrafe_numRows = Epigrafe_numRows + Repeat1__numRows
total=Epigrafe.RecordCount
%>
</SCRIPT>
<html>
<head>
<title>Búsqueda por Epígafe</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#ffffcc">
<font size="2" face="Arial, Helvetica, sans-serif">Seleccione Sección</font>
<form name="epigrafe" method="post" action="">
<SCRIPT LANGUAGE="JavaScript">
document.writeln('<center' + gt + '<font size=3' + gt + '<input type=button value=" Seleccionar Sección " onClick="javascript
:SendAjuda();"' + gt + '</font' + gt + '</center' + gt);
</SCRIPT>
<table border="0">
<tr>
<td> </td>
<td align="left"><font size="2" face="Arial, Helvetica, sans-serif">Sección</font></td>
<td align="left"><font size="2" face="Arial, Helvetica, sans-serif">Descripcion</font></td>
</tr>
<% While ((Repeat1__numRows <> 0) AND (NOT Epigrafe.EOF)) %>
<tr>
<%=(Epigrafe.Fields.Item("Seccion").Value)%>"
></td>
-->
<td align="left"><font size="1" face="Arial, Helvetica, sans-serif"><%=(Epigrafe.Fields.Item("Seccion").Value)% ></font></td>
<td align="left"><a href="#local" onClick="javascript
:window.open('busqueda_epigrafe 2.asp?seccion=<%=(Epigrafe.Fields.Item("Seccion"). Value)%>','aux','toolbar=no,location=no,directorie s=no,status=no,menubar=no,resizable=no,scrollbars= yes,width=200,height=200,top=30,left=50');">
<font size="1" face="Arial, Helvetica, sans-serif"><%=(Epigrafe.Fields.Item("NombreSeccion").V alue)%></font></a></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Epigrafe.MoveNext()
Wend
%>
</table>
</form>
<SCRIPT LANGUAGE="JavaScript">
document.writeln('<center' + gt + '<font size=3' + gt + '<input type=button value=" Seleccionar Sección" onClick="javascript
:SendAjuda();"' + gt + '</font' + gt + '</center' + gt);
</SCRIPT>
</body>
</html>
<%
Epigrafe.Close()
Set Epigrafe = Nothing
%>