ASP problem med afstemning

Jeg har en afstemning som består af en db og en asp fil.

Asp filen er inkluderet i en anden fil.

Problemmet er at når man stemmer visses resultatet i en helt  ny side og ikke i den inkluderede side.

Derfor indsatte jeg denne kode
Response.Clear
Response.Redirect "../index1.asp" 

Men nu ses resultatet af afstemningen slet ikke....hvad gør jeg ?

afstemningsfilen hedder rosta.asp og ser sådan ud:
<%

Dim alternativ1, alternativ2, alternativ3, fraga, skicka

'© Ludvig Widman 2001 www.adomain.8k.com
'Det här skriptet kommer ifrån Adomain och får inte spridas utan tillståd från Adomain
'
'
'Glöm inte att sätta alla tre värden till noll i databasen före varje ny omröstning.
'
'Inställningar
Alternativ1 = "Ja"                                'Det första alternativet
Alternativ2 = "Nej"                              'Det andra alternativet
Alternativ3 = "Vet ej"                            'Det tredje alternativet (valfritt)
Fraga = "En fråga du vill ställa"                'Frågan du vill ställa
Skicka = "Rösta"                                  'Vad som ska stå på skicka knappen

If Request.QueryString("handelse") = "rosta" Then

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("rosta.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open  "SELECT * FROM Stallning" , Connect, adOpenStatic, adLockOptimistic

Select Case Request.Form("alternativ")

Case "1"

RecSet("Alternativ1") = RecSet("Alternativ1") + 1

Case "2"

RecSet("Alternativ2") = RecSet("Alternativ2") + 1

Case "3"

RecSet("Alternativ3") = RecSet("Alternativ3") + 1

End Select

RecSet.Update

total = RecSet("Alternativ1") + RecSet("Alternativ2") + RecSet("Alternativ3")

Response.Clear
Response.Redirect "../index1.asp" 



With Response
.Write "<table border=0 width=170><tr><td colspan=2><font size=2><b>"  &fraga & "</b></font></td></tr>"
.Write "<tr><td width='70'><font size=2>" & Alternativ1 & "&nbsp;</font></td width='100'><td><font size=2><img src='poll1.bmp'><img src='poll2.bmp' width='" & RecSet("Alternativ1") / total * 100 -2  & "' height='9'><img src='poll3.bmp' width='" & 100 - (RecSet("Alternativ1") / total * 100 -2)  & "' height='9'><img src='poll1.bmp'></font></td></tr>"
.Write "<tr><td width='70'><font size=2>" & Alternativ2 & "&nbsp;</font></td width='100'><td><font size=2><img src='poll1.bmp'><img src='poll2.bmp' width='" & RecSet("Alternativ2") / total * 100 -2 & "' height='9'><img src='poll3.bmp' width='" & 100 - (RecSet("Alternativ2") / total * 100 -2)  & "' height='9'><img src='poll1.bmp'></font></td></tr>"
if alternativ3 <> "" then .Write "<tr><td width='70'><font size=2>" & Alternativ3 & "&nbsp;</font></td width='100'><td><font size=2><img src='poll1.bmp'><img src='poll2.bmp' width='" & RecSet("Alternativ3") / total * 100 -2 & "' height='9'><img src='poll3.bmp' width='" & 100 - (RecSet("Alternativ3") / total * 100 -2)  & "' height='9'><img src='poll1.bmp'></font></td></tr>"
End With

RecSet.Close
Connect.Close
Else


With Response
.Write "<form action='poll1/rosta.asp?handelse=rosta' method='post'>"
.Write "<b>"  &fraga & "</b><br>"
.Write "<input type='radio' name='alternativ' value=1>" & Alternativ1 & "<br>"
.Write "<input type='radio' name='alternativ' value=2>" & Alternativ2 & "<br>"
If Alternativ3 <> "" then
.Write "<input type='radio' name='alternativ' value=3>" & Alternativ3 & "<br><br>"
Else
.Write "<br>"
End if
.Write "<input type='submit' value='" & Skicka & "'><br>"
.Write "<a href='poll1/rosta.asp?handelse=rosta'>Resultat</a>"
.Write "</form>"
End With

End if
%>