Hjælp!

Hvordan får jeg et dette login script at checke sig selv uden, at åbne loades i "et nyt vindue"?

Jeg vil gerne have, at når jeg har logget ind så kommer så skal "admin" vises i samme vindue/sted som når man logger ind.
Jeg bruger ikke rammer.

I kan eventuellt se på www.duper.dk og trykke på det sidste billed til højre for, at kommer til inloggningen.

Jeg er ikke så dygtig!!!! :-(

- - Håber at i profer. kan hjælpe :-) --

Koden ser således ud:

<table width="100%" height="1%" cellspacing="0" cellpadding="0" border="0">
    <tr>
        <td width="100%" height="1%">

<!-- HÄR BÖRJAR PART MENYERNA -->

<%If Request.QueryString("part") = "" Or Request.QueryString("part") = "1" Then
If Request.QueryString("upart") = "" Then%>

<!-- HÄR BÖRJAR START -->

Välkommen

<%End If%>

<!-- HÄR SLUTAR START -->


<!-- HÄR BÖRJAR 18 -->

<%ElseIf Request.QueryString("part") = "18" Then
If Request.QueryString("upart") = "" Then%>

<!-- #include file="include_login_default.asp" -->

<%End If%>

<!-- HÄR SLUTAR 18 -->


<%End If%>

----------------------------------------------
Og selve inloggningen ser således ud:
----------------------------------------------

<%Session.LCID = 1053%>
<!-- #include file="include_login_accesories.asp" -->

<%If Request.QueryString("action") = "" Then%>

<table width="100%" height="1%" cellspacing="0" cellpadding="0" border="0">
<form name="form" method="post" action="index.asp?part=18&upart=1">
    <tr>
        <td width="25%" height="1%">Användarnamn:</td>
        <td width="75%"><input type="text" name="anvandarnamn"></td>
    <tr>
        <td width="25%">Lösenord:</td>
        <td width="75%"><input type="password" name="losenord"></td>
    </tr>
    <tr>
        <td width="25%">&nbsp;</td>
        <td width="75%"><input type="submit" name="loggain" value="Logga In"></td>
    </tr>

    <tr>
        <td width="25%">&nbsp;</td>
        <td width="75%">

<%
If Session("msg") <> "" Then
Response.Write Session("msg")
Session("msg") = ""
End If
%>
        </td>
    </tr>
</table>

<%End If%>
<%If Request.QueryString("action") = "loggain" Then%>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("data/members.mdb")&""
Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members"
RecSet.Open Addera, Connect, 1, 2

Do Until RecSet.EOF

If LCase(RecSet("anvandarnamn")) = LCase(Request.Form("anvandarnamn")) And RecSet("losenord") = Request.Form("losenord") Then

RecSet("datum") = Now
RecSet.Update

Session("anvandarnamn") = RecSet("anvandarnamn")
Session("losenord") = RecSet("losenord")
Session("fornamn") = RecSet("fornamn")
Session("efternamn") = RecSet("efternamn")
Session("id") = RecSet("id")
Session("email") = RecSet("email")
Session("ip") = RecSet("ip")
Session("datum") = RecSet("datum")
Session("loggain") = "& kolla &"

Session.TimeOut = 60

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
       
Response.Redirect "include_login_home.asp"

End If

RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Session("msg") = "Fel användarnamn eller lösenord!"
Response.Redirect "include_login_default.asp"
%>
<%End If%>
<%If Request.QueryString("action") = "loggaut" Then%>
<%
Session.Abandon

Response.Redirect "include_login_default.asp"
%>
<%End If%>

------------------------------------------------------


Tak for hjælpen (?) :-)