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 & " </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 & " </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 & " </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
%>
