Enkel adgangkontrol

Hej Eksperter

Jeg skal bruge en adgangskontrol til en asp side.
Filen er til en udsending af nyhedsbrev og hedder write_send.asp
Kan man ikke indsætte et eller andet i toppen af siden som gør at man ikke kommer længere medmindre man skriver det korrekte password.
Kilden er:
<HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
<link HREF=\"../../faaborg.css\" REL=\"stylesheet\" TYPE=\"text/css\">
</HEAD>
<BODY BGCOLOR=\"#F9F9F1\" TEXT=\"#000000\">
<%
if request(\"mode\") = \"send\" then
\'****** VÆLG PROGRAM TIL AT SENDE MAILEN ******
\'1 = JMAIL
\'2 = CDONTS

mailertype = 1

\'**********************************************

Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"DBQ=\"&(Server.MapPath(\".\")) &\"\\mailing.mdb; DefaultDir=DBQ=\"&(Server.MapPath(\".\")) &\"\\;Driver={Microsoft Access Driver (*.mdb)};\"
    SQL = \"SELECT * from mailingliste\"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next
if mailertype = 1 then
        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        \' This is my local SMTP server
        JMail.ServerAddress = \"din.mail.server\"
   
        \' mail config settings
        JMail.Charset = \"iso-8859-1\"
        JMail.ContentTransferEncoding = \"8bit\"
       
        JMail.Sender = \"afsenders emailadresse\"
        JMail.Subject = request(\"header\")
        JMail.AddRecipient send(\"email\")
        JMail.Body = request(\"tekst\")
       
        \' 1 - highest priority (Urgent)
        \' 3 - normal
        \' 5 - lowest
       
        JMail.Priority = 3
       
        \' Send it...
        JMail.Execute
        set JMail = nothing
elseif mailertype = 2 then

        \' importance = 0        \' lav
        importance = 1        \' normal
        \' importance = 2        \' høj

        Set mailObj = CreateObject(\"CDONTS.NewMail\")
   
        \' send email med parametre : fra email, til email, header, besked, importance
        mailObj.Send \"afsenders emailadresse\", send(\"email\"), request(\"header\"), request(\"tekst\"), importance

        \' slet reference til CDONTS object
        Set mailObj = Nothing
end if



response.write \"<FONT FACE=\'Arial\' SIZE=\'2\' COLOR=\'#000000\'><STRONG>E-mail er sendt til : \"& send(\"email\") &\"</STRONG></FONT><BR>\"
send.movenext
loop
conn.close
else %>
<CENTER>
<TABLE BORDER=\"0\">
<form action=\"write_send.asp\" METHOD=\"POST\">
<INPUT TYPE=\"hidden\" NAME=\"mode\" VALUE=\"send\">
  <TR>
    <TD ALIGN=\"LEFT\">
    <INPUT NAME=\"header\" SIZE=\"29\" class=\"input\" value=\"Overskrift\">
    </TD>
  </TR>
  <TR>
    <TD ALIGN=\"LEFT\">
    <TEXTAREA COLS=\"29\" ROWS=\"6\" NAME=\"tekst\" class=\"input\" value=\"Her skrives nyhedsbrevet\"></TEXTAREA>
    </TD>
  </TR>
  <TR>
    <TD>
        <input type=\"submit\" class=\"input\" value=\"Udsend nyhedsbrev\">
    </TD>
  </TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>

På forhånd tak
Lars D.