--- title: "förbryllande poll..." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/6810-förbryllande-poll" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "nakoz" published: "2000-10-06T21:55:00.000Z" updated: "2000-10-07T15:01:00.000Z" replies: 2 views: 155 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/6810-förbryllande-poll" --- # förbryllande poll... ## #1 — nakoz, 2000-10-06T21:55Z hmm... sitter med en liten poll... å allt e så grymt förbryllande med dessa variabler fram å tillbaka... ?! om nån orkar kolla skulle jag bli jätteglad... 240 rader... \*ehm\* ``` <% Response.Buffer = True %>

<% Show = "SELECT Color FROM users WHERE ID = "&session("ID") RecSet.Open Show, cn, adOpenStatic, adLockOptimistic %> <% If RecSet("Color") = "Röd" Then %>

<% End If %> <% If RecSet("Color") = "Blå" Then %>

<% End If %> <% If RecSet("Color") = "Grön" Then %>

<% End If %> <% RecSet.Close %> <% If Request.QueryString("visa") = "resultat" Then show = "SELECT * FROM Poll" RecSet.Open show, cn, adOpenStatic, adLockOptimistic %> <% =RecSet("PollFraga") %> <% alt1 = RecSet("PollAlt1") alt2 = RecSet("PollAlt2") alt3 = RecSet("PollAlt3") alt4 = RecSet("PollAlt4") summa = alt1 + alt2 + alt3 + alt4 %> ställningen just nu:
<% alt1res = "0" alt2res = "0" alt3res = "0" alt4res = "0" If RecSet("PollAlt1") => "1" Then alt1res = Round(alt1 / summa * 100) End If If RecSet("PollAlt2") => "1" Then alt2res = Round(alt2 / summa * 100) End If If RecSet("PollAlt3") => "1" Then alt3res = Round(alt3 / summa * 100) End If If RecSet("PollAlt4") => "1" Then alt4res = Round(alt4 / summa * 100) End If %>

<%= RecSet("PollAlt1") %>	<% =alt1res %>%

<%= RecSet("PollAlt2") %>	<% =alt2res %>%

<%= RecSet("PollAlt3") %>	<% =alt3res %>%

<%= RecSet("PollAlt4") %>	<% =alt4res %>%

<%= RecSet("PollAlt1") %>: <% =alt1res %>%
<%= RecSet("PollAlt2") %>: <% =alt2res %>%
<%= RecSet("PollAlt3") %>: <% =alt3res %>%
<%= RecSet("PollAlt4") %>: <% =alt4res %>%
antal svar hittills: <% =summa %> <% Else If Request.Cookies("vote").Haskeys = FALSE Then Response.Cookies("vote")("rost") = "voted" Response.Cookies("vote").Expires = Date + 1 %> <% =RecSet("PollFraga") %>
If Request.Form("fraga") = "<%= RecSet("PollAlt1") %>" Then alt1 = <%= RecSet("PollAlt1") %> <%= RecSet("PollAlt1") %> = alt1 -- 1 RecSet.Update ElseIf Request.Form("fraga") = "<%= RecSet("PollAlt2") %>" Then alt2 = <%= RecSet("PollAlt2") %> <%= RecSet("PollAlt2") %> = alt2 -- 1 RecSet.Update ElseIf Request.Form("fraga") = "<%= RecSet("PollAlt3") %>" Then alt3 = <%= RecSet("PollAlt3") %> <%= RecSet("PollAlt3") %> = alt3 -- 1 RecSet.Update ElseIf Request.Form("fraga") = "<%= RecSet("PollAlt4") %>" Then alt4 = <%= RecSet("PollAlt4") %> <%= RecSet("PollAlt4") %> = alt4 -- 1 RecSet.Update End If alt4 = RecSet("PollAlt1") alt4 = RecSet("PollAlt2") alt4 = RecSet("PollAlt3") alt4 = RecSet("PollAlt4") summa = alt1 + alt2 + alt3 + alt4 %> ställningen just nu:
<% alt1res = "0" alt2res = "0" alt3res = "0" alt4res = "0" If RecSet("PollAlt1") => "1" Then alt1res = Round(alt1 / Summa * 100) End If If RecSet("PollAlt2") => "1" Then alt2res = Round(alt2 / Summa * 100) End If If RecSet("PollAlt3") => "1" Then alt3res = Round(alt3 / Summa * 100) End If If RecSet("PollAlt4") => "1" Then alt4res = Round(alt4 / Summa * 100) End If %>

<%= RecSet("PollAlt1") %>	<% =alt1res %>%

<%= RecSet("PollAlt2") %>	<% =alt2res %>%

<%= RecSet("PollAlt3") %>	<% =alt3res %>%

<%= RecSet("PollAlt4") %>	<% =alt4res %>%

<%= RecSet("PollAlt1") %>: <% =alt1res %>%
<%= RecSet("PollAlt2") %>: <% =alt2res %>%
<%= RecSet("PollAlt3") %>: <% =alt3res %>%
<%= RecSet("PollAlt4") %>: <% =alt4res %>%
antal svar hittills: <% =summa %> <% RecSet.Close %> <% Else %> du har redan röstat och kan därför inte rösta igen på denna fråga.

aktuell ställning. <% End If End If %>

``` \*puh\* felmeddelandet blir: Körningsfel i Microsoft VBScript fel '800a005e' Ogiltig användning av Null: 'Round' /asp/hemsidor/oldflykt2/poll/vote.asp, rad 65 rad 65 är: ``` alt1res = Round(alt1 / summa * 100) ``` mkt tacksam för eventuell hjälp! Permalänk: https://www.webforum.nu/p/6810 ## #2 — nakoz, 2000-10-07T14:06Z vill ingen hjälpa mig? Permalänk: https://www.webforum.nu/p/250703 ## #3 — Toonster, 2000-10-07T15:01Z Kan det vara så att alt1 -alt4 kan ha talet 0, och kan man köra Round(0) ? /T Permalänk: https://www.webforum.nu/p/250704 --- Tråden på webben: https://www.webforum.nu/amne/asp/6810-förbryllande-poll