<%
Dim dConnect, dResult, dString
Set dConnect = Server.CreateObject("ADODB.Connection")
dConnect.Open "redinet"
Set dResult = dConnect.Execute("SELECT * FROM Ticker")
If Not dResult.EOF then
dResult.MoveFirst
End If
%>
<%
Dim tConnect, tResult, tString
Set tConnect = Server.CreateObject("ADODB.Connection")
tConnect.Open "fox24news"
Set tResult = tConnect.Execute("SELECT * FROM topstory")
If Not tResult.EOF then
tResult.MoveFirst
End If
%>
