Aqui pego el codigo completo:
<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={SQL Server};Server=nombreservidor;UID=sa;PWD=clave;Dat abase=basededatos;"
Set Cm3 = Server.CreateObject("ADODB.Command")
Set RsProcesoAnexo =Server.CreateObject("ADODB.Recordset")
cm3.ActiveConnection =oConn
cm3.CommandText ="VConsulta_Anexo"
set RsProcesoAnexo =cm3.Execute
set cm3=nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<head>
<script language="JavaScript">
<!--
var remote=null;
function rs(n,u,w,h,x) {
args="width="+w+",height="+h+",left=0,top=0,resiza ble=yes,scrollbars=yes,status=0";
remote=window.open(u,n,args);
if (remote != null) {
if (remote.opener == null)
remote.opener = self;
}
if (x == 1) { return remote; }
}
// -->
</script>
</head>
<BODY bgcolor="#ffffff" vlink="#69005d">
<center>
<font size=6 face=verdana><strong>
</strong>
</font>
</center>
<font size=2 face=verdana>
<B><font size="+1">Anexos</font></B><br><br>
<%
Do While Not RsProcesoAnexo.EOF
%>
<blockquote>
<ul>
<li><a href="javascript
:rs('Anexos','Calidad/<%=Rtrim(RsProcesoAnexo("Nombre"))%>.pdf',785,525, 0)"><%=RsProcesoAnexo("Descripcion")%></a></li>
</ul>
</blockquote>
<%RsProcesoAnexo.MoveNext
Loop%>
</body>
</html>