Здравствуйте, <Аноним>, Вы писали:

А><%
А>#define FillList (Param)
А> Set db = Server.CreateObject("ADODB.Connection")
А> db.Open "DATABASE"

А> sSQL = Param
А> Set rs = db.Execute(sSQL)

А> Do While NOT Rs.EOF
А> Response.Write "<P><B><font size = 4>" & rs.Fields("ID").value & "</P></B><p></p>"
А> Response.Write "<P><B><font size = 4>" & rs.Fields("NAME").value & "</P></B><p></p>"
А> Rs.MoveNext
А> Loop
А> db.Close
А> Set db = Nothing
%>>
Примерно так и пишешь:
SuperCode.asp

Sub FillList (ByVal Param)
    Set db = Server.CreateObject("ADODB.Connection") 
    db.Open "DATABASE"
    sSQL = Param
    Set rs = db.Execute(sSQL) 
    Do While NOT Rs.EOF
        Response.Write "<P><B><font size = 4>" & rs.Fields("ID").value & "</P></B><p></p>" 
        Response.Write "<P><B><font size = 4>" & rs.Fields("NAME").value & "</P></B><p></p>" 
        Rs.MoveNext 
    Loop 
    db.Close 
    Set db = Nothing 
End Sub

А в любом файле пишешь:

<!--#include file="SuperCode.asp"-->
 <%
    FillList(XXX)
 %>

Типа и все...