<% dim mainImage, title, NavL1
mainImage = "http://a632.ac-images.myspacecdn.com/images01/20/l_6518fc94d2973534c11bad5d43db3cef.gif"
title = "Reviews"
NavL1 = "reviews"
%>
<%
set rsLinks = Server.CreateObject("ADODB.Recordset")
set rsLinks.ActiveConnection = DBCon
rsLinks.CursorLocation = 3
SQLLinks = "Select * From viewCMS_ZILL_LINK order by varchar_LinkType_Name"
rsLinks.open SQLLinks
homesel = 0
%>
<%
Do Until rsLinks.Eof
if not LinkType = rsLinks( "varchar_LinkType_Name" ) then %>
<%= rsLinks( "varchar_LinkType_Name" ) %>
<% end if %>
" target="_blank"><%= rsLinks( "varchar_Links_Name" ) %> : <%= rsLinks( "varchar_Links_Description" ) %>
<%
LinkType = rsLinks( "varchar_LinkType_Name" )
rsLinks.MoveNext
Loop
%>
<%
Do Until rsLinks.Eof
%>
<%= rsLinks( "varchar_Links_Name" ) %>
<%= rsLinks( "varchar_Links_Description" ) %>
<%
rsLinks.MoveNext
Loop
%>
<%
' Close the recordset and connection object
rsLinks.Close
Set rsLinks = Nothing
DBCon.Close
%>