<% Dim rsLinks Set rsLinks = Server.CreateObject("ADODB.Recordset") %>
Resources
CONTACT US
Our New Location
resources - Links
<% rsLinks.Open "SELECT * FROM Links", Database, 3, 3 Do Until rsLinks.EOF Response.Write "

" & rsLinks("link_name") & "
" Response.Write "" & rsLinks("link_address") & "

" rsLinks.MoveNext Loop rsLinks.Close %>