|
|
 |
|
|
|
|
|
Links
<%
MMLinkConString = "Provider=SQLOLEDB;Data Source=71.4.57.110;Initial Catalog=LinkExchange;User ID=lnkxchge;Password=47data63;Network=dbmssocn;OLE DB Services=-1;"
' Get 15 max random links
Set RsRandomLinks = Server.CreateObject("ADODB.Recordset")
RsRandomLinks.ActiveConnection = MMLinkConString
strSQL = "Select Top 15 *, linkid from tblLinks order by newid()"
RsRandomLinks.Source = strSQL
RsRandomLinks.Open()
if not RsRandomLinks.eof then
do while not RsRandomLinks.eof
%>
"><%=rsRandomLinks("LinkText")%>
|
