Response.Status = "204 no content" fel?!?

Jag har en webshop med en sida som använder response.status = "204 no content" och när jag väljer att köpa en produkt så ska den ju hoppa in till den sidan och bara lägga in varan i korgen och sedan tillbaka till den sidan jag var på utan att man i princip märker något..

I Netscape fungerar detta bra men i explorer så står sidan och bara tänker det händer ingen men det där "timglaset" längst ned på sidan står och laddar sakta sakta men annars händer inget.. någon som har en idé om man jag kan behöva ändra på för att få det att fungera? eller vad som kan vara fel

Här är koden

<FORM name="<%=form_namn%>"  onsubmit="return kolla();" METHOD="POST"   
action="../pwbutkorginu.asp">
        <p>
          <Input Type="hidden" name="artno" value="<%= RS("Artnr") %>">
          <Input Type="hidden" name="artnoweb" value="<%= RS("Artweb") %>">
          <Input Type="hidden" name="ben" value="<%= RS("Ben") %>">
          <Input Type="hidden" name="Pris" value="<%= RS("Pris") %>">
          <Input Type="hidden" name="xpris" value="<%= RS("Kampanjpris") 
%>">
          <Input Type="hidden" name="paket" value="<%= RS("Paket") %>">
          <Input Type="hidden" name="Rabatt" value="<% =sRabattord%>">
          <input type="tal" name="ant" value="1" size="1">
 
<%
'============================================================
'Sektion där ev Stl hämtas i tabellen WS_stl_farg
'============================================================

If RS("Stl") > 0 Then
    Artweb=RS("Artweb")

        'Skriver ut stl på artikel med storlek. Samtliga på EJ utg art 
oberoende av lagersaldo
        If RS("Utg") = "" Then
            SQLStmt_1 = "SELECT * FROM WS_stl_farg WHERE Artnr_web = '" 
& Artweb & "' Order  by Artikelnr"
        End If
       
        'Om artikel utgått endast skriva stl om lagersaldo finns
        If RS("Utg") = "J" Then
            SQLStmt_1 = "SELECT * FROM WS_stl_farg WHERE Artnr_web = '" 
& Artweb & "' AND Lager > 0 Order  by Artikelnr"
         End If

    SET RS1 = Databas.Execute(SQLStmt_1)
%>

              <select name="Storlek">
                <option value="Ej">Välj storlek...</option>
<%
Do Until RS1.EOF
%>
<option value="<%= RS1("Stl")%>"><%= RS1("Stl_visa")%></option>
<%
RS1.MoveNext
Loop
RS1.Close
%>
</select>
<%
End if
%>
          <input type="submit" value="Köp!" name="B1">
        </p>
      </FORM>
<HR>
</TD>

</TR>
<%
RS.MoveNext
Loop
%>

För varje artikel..... ovanstående kod.

pwbutkorginu.asp (Behandlar köp till korg)
===============================================================================================
<%
' ==========================================================================
' Säg till webbläsaren att detta dokument inte innehåller någon data så att
' webbläsaren struntar i att ladda dokumentet.
' ==========================================================================

Response.Status = "204 No Content"

' ==========================================================================
' Öppna databasen och uppdatera korgen.
' ==========================================================================

Artno=Request.Form("artno")
Artnoweb=Request.Form("artnoweb")
Ben=Request.Form("ben")
Antal=Request.Form("ant")
Stl=Request.Form("storlek")
Pris=Request.Form("Pris")
XPris=Request.Form("xpris")
paketpris=Request.Form("paket")
netto=Request.Form("netto")
Rabatt=Request.Form("Rabatt")

Notering=""

'Ingen rabatt lämnas om Extrapris dvs XPris > 0
If XPris > 0 OR paketpris = 999 OR netto="J" Then
    Rabatt=0

    'Notering till kund
    If XPris > 0 Then
        Notering="Extrapris"
    End If

'    If paketpris=999 AND XPris=""  Then
    If paketpris=999 AND XPris=0  Then
        Notering="Paketpris"
    End If

    If netto="J" Then
        Notering="Nettopris"
    End If
 
End If

Kundkom=Request.Form("kommentar")
AnvId="Session.SessionId"
ProdId=Request.Form("ProdId")
'Response.write ProdId
'ProdId="Session.ProdId"
If ProdId > 0 Then
    Session("ProdId")=ProdId
End If
Datum_best=Date()

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open Session("shopdata")
SQLStmt = "INSERT INTO Korg"

IF Len(Artno) >0 Then

    SQLStmt = SQLStmt & "(AnvId, Artno, Artnoweb, Ben, Stl, Antal, 
Datum_best, Pris, XPris, Rabatt, Notering)"
    SQLStmt = SQLStmt & "VALUES(" & Session.SessionId & ", '" & Artno & 
"','" & Artnoweb & "', '" & Ben & "',  '" & Stl & "', '" & Antal & "', 
'" & Datum_best & "', '" & Pris & "',  '" & XPris & "'," & Rabatt & ", 
'" & Notering & "'); "

    Connection.Execute(SQLStmt)
End If

'Sparar kommentarer dock ej tomma
IF Len(Trim(Kundkom)) > "1" Then
    SQLStmt = SQLStmt & "(AnvId, Kundkom, Datum_best)"
    SQLStmt = SQLStmt & "VALUES(" & Session.SessionId & ", '" & Kundkom 
& "', '" & Datum_best & "'); "

    Connection.Execute(SQLStmt)
End If

Connection.Close
%>

Red:
Den lägger alltså varan i korgen och allt fungerar förutom att den står och laddar något som inte blir något vilket resulterar i att man inte tror att varan kommit till korgen.

------------------
Ingenting är omöjligt, bara en utmaning.

[Redigerat av brw den 13 sep 2001]