Adminside på maillingliste

Jeg har følgende kode, og mit spørgsmål lyder, hvordan kan jeg lave en funktion således at jeg kan trykke på et link og så få hele maillinglisten af se?

Her er koden:

<%
Response.Buffer = true
Dim password, brugernavn, pass
If Session(\"password\") = \"\" or Session(\"brugernavn\") = \"\" then
Session(\"password\") = Request.Form(\"password\")
Session(\"brugernavn\") = Request.Form(\"brugernavn\")
end if
%>
<% If session(\"password\") = \"1\" and session(\"brugernavn\") = \"2\" then %>

<html>

<head>
<title>Maillingliste</title>
</head>

<body bgcolor=White>

<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
      <tr>
        <td width=\"100%\" colspan=2>
        Du skal have outlook som dit standard emailprogram for at bruge denne funktion.<br>
        henrik@fomsgaard.com modtager mailen<br>
        henrikfomsgaard@yahoo.com modtager mailen CC<br>
        Alle abonnementer modtager mailen BCC<br>
       
            <%
    Conn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    strSQL = \"SELECT email FROM maillingliste\"
    myConn.Open Conn
    Set rs = myConn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then
        Response.Write \"<A HREF=\'mailto:henrik@fomsgaard.com?cc=henrikfomsgaard@yahoo.com&bcc=\"
        Do While Not rs.EOF
        Response.Write rs(\"email\") & \";\"
            rs.MoveNext
        Loop
        Response.Write \"\'>Email alle på maillinglisten</A>\"
    Else
        Response.Write \"Der er endnu ikke nogle emails i databasen endnu\"
    End If
    myConn.Close
    Set myConn = Nothing
  %>
       
        </td>
      </tr>   
</table>
</body>
</html>
<%Else%>
<html>

<head>

<title>Cyber Cycling Competition - Maillingliste</title>

<style type=\"text/css\">
<!--
-->
</style><link rel=\"stylesheet\" href=\"ccc2001.css\">

</head>

<body topmargin=\"20\" leftmargin=\"30\">

<table>
<tr>
<td><a href=\"#\" onClick=\"history.back(); return false;\" onFocus=\"this.blur()\">
Tilbage</a></td></tr>
</table>

<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
    <tr align=\"center\">
<form method=\"POST\" action=\"udsend.asp?pass=1\" id=form1 name=form1>
        <td>&nbsp;</td>
          <td valign=\"middle\" align=\"left\">
          <br>Indtast venligst oplysningerne i følgende felter:&nbsp;<br>
          &nbsp;</td>
        </tr>
        <tr>
          <td valign=\"middle\" align=\"left\"><div align=\"right\"><p><B>Password&nbsp;</B></td>
          <td valign=\"middle\" align=\"left\"><input type=\"text\" name=\"password\" size=\"20\"></td>
        </tr>
        <tr>
          <td valign=\"top\" align=\"left\"><div align=\"right\"><p><B>Brugernavn&nbsp;</B></td>
          <td valign=\"middle\" align=\"left\"><input type=\"text\" name=\"brugernavn\" size=\"20\"></td>
        </tr>
        <tr>
        <td>&nbsp;</td>
          <td valign=\"middle\" align=\"left\"><br>
          <input type=\"submit\" value=\"OK\" name=\"OK\">
          <input type=\"button\" value=\"Annuller\" name=\"Annuller\" onClick=\"java script:history.back();\"></td>
        </form>
        </tr>
      </table>
</body>
</html>
<% End If %>

Fomse:-)