<%@ language="vbscript" %>
<% pageTitle = "myspace" %>
<!--#include file="page.asp"-->
<FORM action="myspaceca.asp" method="post">
<h1>Customize your space</h1>
<% if Request.cookies("isLoggedInAs")("username") = "" then
'user is not logged in, so they don't get to do anything %>

this area is only for registered members of Primary outpost.
please <a href="login.asp">log in</a>. Thank you!

<% else

'Get username for use later.
p_user = Request.cookies("isLoggedInAs")("username")

set outpostDB = Server.CreateObject("ADODB.Connection")
'Open the connection
outpostDB.connectionstring = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("outpost.mdb")
outpostDB.open

'Create and populate our recordset
set linkSet = outpostDB.Execute("select * from links order by link_id")
set hasLinkSet = outpostDB.Execute("select * from user_links " & "where username = '" & p_user & "' order by link_id")

while not linkSet.EOF %>
<input type="checkbox" name="p_link_id" value="<%=linkSet("link_id")%>"
<% if not hasLinkSet.EOF then
if linkSet("link_id") = hasLinkSet("link_id") then
response.write " CHECKED "
hasLinkSet.moveNext
end if
end if
%>
>
<a href="<%=linkSet("link_url")%>"><%= linkSet("link_name") %></a><br>
<%= linkSet("link_desc") %><br>
<% linkSet.MoveNext
wend

'Clean everything up
linkSet.Close
set linkSet = Nothing

hasLinkSet.Close
hasLinkSet = Nothing

outpostDB.Close
set outpostDB = Nothing

end if %>
<p>
<input type="submit">
</form>
</body></html>