A linha que diz que está errada é essa
rsBanner.ActiveConnection = MM_connDUportal_STRING
vou fazer melhor vou colar toda a programação
<!--#include file="../Connections/connDUportal.asp" -->
<%
'these codes are generated by UltraDev
set rsBanner = Server.CreateObject("ADODB.Recordset")
rsBanner.ActiveConnection = MM_connDUportal_STRING
rsBanner.Source = "SELECT * FROM BANNERS"
rsBanner.CursorType = 3
rsBanner.CursorLocation = 2
rsBanner.LockType = 1
rsBanner.Open()
rsBanner_numRows = 0
'end of UltraDev codes
'the following hand-codes are added to rotate the banners:
Dim rndMax
rndMax = CInt(rsBanner.RecordCount)
rsBanner.MoveFirst
Dim rndNumber
Randomize Timer
rndNumber = Int(RND * rndMax)
rsBanner.Move rndNumber
'end of codes.
%>
<table width="100%" cellpadding="0" cellspacing="0">
<tr>
<td><a href="../default.asp"><img src="../assets/DUportal.gif" width="268" height="60" border="0"></a></td>
<td align="center" width="468" valign="middle"><a href="../DUbanner/redirect.asp?id=<%=(rsBanner.Fields.Item("B_ID").Value)%>&url=<%=(rsBanner.Fields.Item("B_URL").Value)%>" target="_blank" onClick="window.location.reload(true);"><img src="../DUbanner/images/<%=(rsBanner.Fields.Item("B_IMAGE").Value)%>" border="0" alt = "<%=(rsBanner.Fields.Item("B_ALT").Value)%>" align="absmiddle"></a>
</td>
</tr>
</table>
<%
rsBanner.Close()
%>

[COLOR=red]