Здравствуйте!

Не подскажете ли, есть в обычном asp что-то типа функций или макросов, которые могли бы использоваться всеми страничками?
Например, если мне нужно выбирать из нескольких таблиц поля ID и Name, и выводить этот список -- чтобы написать

<%
FillList "select * from tab1"
%>

а FillList определяется один раз в отдельном файле как

<%
#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
%>


Заранее спасибо
Максим

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

А><%
А>#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)
 %>

Типа и все...

Спасибо большое