no me sale ningún registro este es el codigo de la página donde está la lista :
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/META19.asp" -->
<%
set algo = Server.CreateObject("ADODB.Recordset")
algo.ActiveConnection = MM_META19_STRING
algo.Source = "SELECT distinct REF_FAMILIA FROM dbo.ARTICULOS_PRINCIPAL"
algo.CursorType = 0
algo.CursorLocation = 2
algo.LockType = 3
algo.Open()
algo_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p> </p>
<form name="form1" method="post" action="">
<select name="select" size="1" onChange="MM_goToURL('parent','tienda_inicio.asp');return document.MM_returnValue">
<%
While (NOT algo.EOF)
%>
<option value="<%=(algo.Fields.Item("REF_FAMILIA").Value)%>" ><%=(algo.Fields.Item("REF_FAMILIA").Value)%></option>
<%
algo.MoveNext()
Wend
If (algo.CursorType > 0) Then
algo.MoveFirst%
