|
<%
dim sql, cat
sql = "SELECT * FROM banner"
Set cat = Server.CreateObject("ADODB.Recordset")
cat.ActiveConnection = MM_igp_STRING
cat.Source = sql
cat.CursorType = 0
cat.CursorLocation = 2
cat.LockType = 1
cat.Open %>
<% if not cat.EOF then
do while not cat.EOF
%>
" target="_blank"> " width="100" height="100" border="0">
<%cat.moveNext
loop
end if%>
|
|
