---
title: "röstnings-system"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6436-röstnings-system"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "mikael_a"
published: "2000-08-23T09:45:00.000Z"
updated: "2000-08-26T16:35:00.000Z"
replies: 6
views: 219
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/6436-röstnings-system"
---

# röstnings-system

## #1 — mikael_a, 2000-08-23T09:45Z

hej,

jag har ett ja/nej röstningssystem på min websida, men den registrerar inga röster... inga fel genereras heller, skriver jag in tex 4 ja, 3 nej i databasen så visar den detta, men inte om jag trycker på knappen rösta, som kör vote.asp

```

<% Response.Buffer = True %> 

<!-- #include virtual="/data/adovbs.inc" -->

<html>
<head>

<meta name="Author" content="Mikael Andersson (micke@micke-anna.nu)">
<meta name="robots" content="noindex, nofollow">

<title>[:: Micke & Annas @Internet Start ::]</title>
<link REL="StyleSheet" HREF="../../micke.css" TYPE="text/css">

</head>

<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/databas/snabbfraga.mdb") %>
	<% If Request.QueryString("visa") = "resultat" Then

	Set RecSet = Server.CreateObject("ADODB.Recordset")

   Visa = "SELECT Fraga FROM fraga"
   RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>

   <b><% =RecSet("Fraga") %></b><p>

<% RecSet.Close %>

<%	Set RecSet = Server.CreateObject("ADODB.Recordset")

   Visa = "SELECT Ja, Nej FROM svar"
   RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic

	Ja = RecSet("Ja")
	Nej = RecSet("Nej")

	Summa = Ja -- Nej %>

Ställningen just nu:<br>

<% YResultat = "0"
	NResultat = "0"

	If Ja => "1" Then
	YResultat = Round(Ja / Summa * 100)
	End If

	If Nej => "1" Then
	NResultat = Round(Nej / Summa * 100)
	End If %>

<table border="0" cellspacing="0" cellpadding="0">

<tr>
<td width="20" align="right"><font face="verdana, arial" size="1">Ja&nbsp;</font></td>
<td align="left" valign="middle"><font face="verdana, arial" size="1"><img src="blue.gif" width="<% =YResultat %>" height="8">&nbsp;<% =YResultat %>%</td>
</tr>

<tr><td height="3"></td><td></td></tr>

<tr>
<td width="20" align="right"><font face="verdana, arial" size="1">Nej&nbsp;</font></td>
<td align="left" valign="middle"><font face="verdana, arial" size="1"><img src="red.gif" width="<% =NResultat %>" height="8">&nbsp;<% =NResultat %>%</td>
</tr>

</table>
<p>

Ja: <b><% =YResultat %>%</b><br>
Nej: <b><% =NResultat %>%</b><p>

Antal svar hittills: <b><% =Summa %></b>

<%	RecSet.Close %>

<% Else %>

<% If Request.Cookies("vote").Haskeys = FALSE Then

   Response.Cookies("vote")("rost") = "voted"
	Response.Cookies("vote").Expires = Date + 1 %>

<%	Set RecSet = Server.CreateObject("ADODB.Recordset") %>

<% Visa = "SELECT Fraga FROM fraga"
   RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>

   <b><% =RecSet("Fraga") %></b><p>

<% RecSet.Close

	Set RecSet = Server.CreateObject("ADODB.Recordset")

   Visa = "SELECT Ja, Nej FROM svar"
   RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic

	If Request.Form("fraga") = "Ja" Then
	Ja = RecSet("Ja")
	RecSet("Ja") = Ja -- 1
	RecSet.Update

	ElseIf Request.Form("fraga") = "Nej" Then
	Nej = RecSet("Nej")
	RecSet("Nej") = Nej -- 1
	RecSet.Update
	End If

	Yes = RecSet("Ja")
	No = RecSet("Nej")
	Summa = Yes -- No %>

Ställningen just nu:<br>

<% YResultat = "0"
	NResultat = "0"

	If Yes => "1" Then
	YResultat = Round(Yes / Summa * 100)
	End If

	If No => "1" Then
	NResultat = Round(No / Summa * 100)
	End If %>

<table border="0" cellspacing="0" cellpadding="0">

<tr>
<td width="20" align="right"><font face="verdana, arial" size="1">Ja&nbsp;</font></td>
<td align="left" valign="middle"><font face="verdana, arial" size="1"><img src="blue.gif" width="<% =YResultat %>" height="8">&nbsp;<% =YResultat %>%</td>
</tr>

<tr><td height="3"></td><td></td></tr>

<tr>
<td width="20" align="right"><font face="verdana, arial" size="1">Nej&nbsp;</font></td>
<td align="left" valign="middle"><font face="verdana, arial" size="1"><img src="red.gif" width="<% =NResultat %>" height="8">&nbsp;<% =NResultat %>%</td>
</tr>

</table>
<p>

Ja: <b><% =YResultat %>%</b><br>
Nej: <b><% =NResultat %>%</b><p>

Antal svar hittills: <b><% =Summa %></b>

<%	RecSet.Close %>

<% Else %>

   Du har redan röstat och kan därför inte rösta igen på denna fråga.<p>

   Se <a href="vote.asp?visa=resultat">aktuell ställning</a>.

<% End If %>

<% End If %>

<%	Connect.Close %>

</font>

</html>
```

någon som ser felet?

Permalänk: https://www.webforum.nu/p/6436

## #2 — Johnsen, 2000-08-23T11:39Z

Hej där.
Ser inte ut att vara några fel.
Hur är det med sidan som genererar:  Request.Form("fraga") ? Kan det vara där felet ligger?

/ J

Permalänk: https://www.webforum.nu/p/245812

## #3 — mikael_a, 2000-08-24T08:59Z

koden som genererar request.form("fraga") ser ut så här:

```

<form method="POST" action="javascript:Popup3('data/start_sida/snabbfraga/vote.asp')"

   <b <%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/databas/snabbfraga.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")

   Visa = "SELECT Fraga FROM fraga"
   RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>><% =RecSet("Fraga") %><p align="center">

<% RecSet.Close
	Connect.Close %>

<input type="radio" name="fraga" value="Ja">Ja
<input type="radio" name="fraga" value="Nej">Nej<p align="center">
<input type="submit" value="Rösta" style="font-family: verdana; font-size: 8pt">

<p align="center">

Se <a href="javascript:Popup3('data/start_sida/snabbfraga/vote.asp?visa=resultat')" onMouseOver="window.status='[:: Aktuell ställning ::]'; return true" onMouseOut="micke()">aktuell ställning</a>.

</font>
</form>
```

Jag har tittat mig rödögd på denna kod, och hittar inget fel...

Permalänk: https://www.webforum.nu/p/245813

## #4 — Johnsen, 2000-08-24T13:33Z

Här är felet:

```
action="javascript:Popup3('data/start_sida/snabbfraga/vote.asp')"
```

Värdet från formuläret skickas inte med till 'vote.asp'. Skriver du bara action="data/start_sida/snabbfraga/vote.asp" fungerar det fint, men då får du inget popup-fönster.
Jag kan inte JavaScript, så tyvärr...

Permalänk: https://www.webforum.nu/p/245814

## #5 — mikael_a, 2000-08-26T08:04Z

ok, så du menar att det inte går att skicka vote.asp i ett popupfönster?

någon som vet?

Permalänk: https://www.webforum.nu/p/245815

## #6 — AG, 2000-08-26T15:47Z

Det kan inte ha nåt att göra med att du inte avslutar \<form "\>" På översta raden? Borde generera ett fel tycker jag
sen är det en missad "tagg" på \<b där under.

Testa det, hojta till om det inte hjälper.

Andreas

Permalänk: https://www.webforum.nu/p/245816

## #7 — emission, 2000-08-26T16:35Z

Jo, man kan skicka till en popup, men du får poppa upp fönstret först, sedan skicka till det, med target i form-taggen.

Permalänk: https://www.webforum.nu/p/245817

---

Tråden på webben: https://www.webforum.nu/amne/asp/6436-röstnings-system