röstnings-system

6 svar · 175 visningar · startad av mikael_a 23 aug. 2000

mikael_aMedlem sedan mars 2000475 inlägg

23 aug. 2000 09:45#1

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?

------------------
Micke & Annas Sajt
micke@micke-anna.nu

JohnsenMedlem sedan juli 2000836 inlägg

23 aug. 2000 11:39#2

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

mikael_aMedlem sedan mars 2000475 inlägg

24 aug. 2000 08:59#3

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...

------------------
Micke & Annas Sajt
micke@micke-anna.nu

JohnsenMedlem sedan juli 2000836 inlägg

24 aug. 2000 13:33#4

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...

------------------
-Det är olagligt att skapa ett knippe jäst vatten och nu skall även aktivt kol förbjudas.-

mikael_aMedlem sedan mars 2000475 inlägg

26 aug. 2000 08:04#5

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

någon som vet?

------------------
Micke & Annas Sajt
micke@micke-anna.nu

AGMedlem sedan mars 20001 266 inlägg

26 aug. 2000 15:47#6

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

emissionMedlem sedan dec. 19996 721 inlägg

26 aug. 2000 16:35#7

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.