Åben nyt vindue istedet for \"Response.Redirect \" ???????

Hvordan laver jeg dette om, så man istedet for at redirect til en anden side, åbner et nyt vindue.....

................................................
<%
Dim rsMailbase__strUserID
rsMailbase__strUserID = \"x\"
if (Request.Form(\"UserID\")  <> \"\") then rsMailbase__strUserID = Request.Form(\"UserID\")
%>
<%
Dim rsMailbase__strPassword
rsMailbase__strPassword = \"1\"
if (Request.Form(\"Password\")  <> \"\") then rsMailbase__strPassword = Request.Form(\"Password\")
%>
<%
set rsMailbase = Server.CreateObject(\"ADODB.Recordset\")
rsMailbase.ActiveConnection = MM_conMailbase_STRING
rsMailbase.Source = \"SELECT *  FROM mailbase  WHERE UserID = \'\" + Replace(rsMailbase__strUserID, \"\'\", \"\'\'\") + \"\' AND Password = \'\" + Replace(rsMailbase__strPassword, \"\'\", \"\'\'\") + \"\'\"
rsMailbase.CursorType = 0
rsMailbase.CursorLocation = 2
rsMailbase.LockType = 3
rsMailbase.Open()
rsMailbase_numRows = 0
%>
<%
If rsMailbase__strUserID <> \"x\" Then
If Not rsMailbase.EOF Then
Session(\"svUser\")=rsMailbase.Fields.Item(\"UserID\").Value
Session(\"svPass\")=rsMailbase.Fields.Item(\"Password\").Value
Session(\"svAccess\")=rsMailbase.Fields.Item(\"PrisGruppe\").Value

Response.Redirect \"loginok.asp\"

else

Response.Redirect \"loginfejl.asp\"

End If
End If
%>

................................................

Please help.... det må da kunne lade sig gøre på en eller anden måde.....