
<%
Dim rdsLink
Dim sqlLink

set rdsLink = Server.CreateObject("ADODB.Recordset")
sqlLink = "Select * From Dat_Link Where LinkClass = 2 And State = 1 Order By LinkKey Desc"
rdsLink.Open sqlLink,Conn,1,1
if not rdsLink.EOF then
	Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
	do while not rdsLink.EOF
		Response.Write "<tr>"& VbCRLF
		Response.Write "<td height=""19"">&nbsp;&nbsp;<font color=""#FFFFFF"">&middot;</font>&nbsp;<a href="""& rdsLink("Url") &""" target=""_blank"" class=""menu"">"& rdsLink("Homepage") &"</a></td>"& VbCRLF
		Response.Write "</tr>"& VbCRLF
		rdsLink.MoveNext
	loop
	Response.Write "<tr>"& VbCRLF
	Response.Write "<td height=""5""></td>"& VbCRLF
	Response.Write "</tr>"& VbCRLF
	Response.Write "</table>"
end if
rdsLink.Close
set rdsLink = nothing
%>