---
title: "sätta ihop denna kod"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/44670-sätta-ihop-denna-kod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ampy"
published: "2002-05-27T17:32:35.000Z"
updated: "2002-05-27T18:42:01.000Z"
replies: 6
views: 215
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/44670-sätta-ihop-denna-kod"
---
# sätta ihop denna kod
## #1 — ampy, 2002-05-27T17:32Z
Hur ska man göra för att sätta ihop denna kod?
for i = lbound(vilkenPoll) to ubound(vilkenPoll)
for i = lbound(fraga) to ubound(fraga)
så att det blir en rad?
Permalänk: https://www.webforum.nu/p/44670
## #2 — @nders, 2002-05-27T17:33Z
Det kan du inte.
Varför vill du göra det?
Permalänk: https://www.webforum.nu/p/682852
## #3 — ampy, 2002-05-27T17:37Z
Så här ser hela min kod ut. Och som ni ser i fetstil har jag två variablar.
```
SQL = "Select * From poll order by pollID "
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
set RecSet = Connect.execute(SQL)
if not RecSet.eof then
do until RecSet.eof
intAntal = intAntal + 1
RecSet.movenext
loop
RecSet.movefirst
[B] redim vilkenPoll(intAntal)
redim fraga(intAntal)[/B]
i = 0
do until RecSet.eof
vilkenPoll(i) = RecSet("pollID")
fraga(i) = RecSet("question")
i = i + 1
RecSet.movenext
loop
RecSet.close
for i = lbound(vilkenPoll) to ubound(vilkenPoll)
for i = lbound(fraga) to ubound(fraga)
SQL = "Select totalvotes From poll Where PollID = " &vilkenPoll(i)
Set RS = Connect.Execute(SQL)
antalroster = RS("totalvotes")
Set RS = nothing
SQL = "Select * From alt Where PollID = " &vilkenPoll(i)
Set RS = Connect.Execute(SQL)
Do Until RS.EOF
langd = 200 - (RS("total")/antalroster)*200
Response.Write "
"
Response.Write "
"
Response.Write "
" & RS("alternative") & "
"
Response.Write "
" & Round((RS("total")/antalroster)*100, 1) & "%
"
Response.Write "
"
Response.Write "
"
RS.MoveNext
Loop
Set RS = nothing
%>
Totalt
<%=antalroster%> röster
<%
next
end if
%>
```
Permalänk: https://www.webforum.nu/p/682857
## #4 — @nders, 2002-05-27T17:38Z
Du kan inte använda i som loopkontroller i båda looparna eftersom de är nästlade. Byt den ena till typ p eller så.
Dessutom kan jag inte se någon next som passar till någon av dessa for-loopar?
Mvh,
Permalänk: https://www.webforum.nu/p/682860
## #5 — ampy, 2002-05-27T18:06Z
Så här ser koden ut nu:
```
<%
SQL = "Select * From poll order by pollID desc"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
set RecSet = Connect.execute(SQL)
if not RecSet.eof then
do until RecSet.eof
intAntal = intAntal + 1
RecSet.movenext
loop
RecSet.movefirst
redim vilkenPoll(intAntal)
i = 0
do until RecSet.eof
vilkenPoll(i) = RecSet("pollID")
i = i + 1
RecSet.movenext
loop
RecSet.close
for i = lbound(vilkenPoll) to ubound(vilkenPoll)
[B]SQL = "Select * From poll Where PollID = " &vilkenPoll(i)[/B]
Set RS = Connect.Execute(SQL)
antalroster = RS("totalvotes")
fraga = RS("question")
Set RS = nothing
SQL = "Select * From alt Where PollID = " &vilkenPoll(i)
Set RS = Connect.Execute(SQL)
%>
<%=fraga%>
<%
Do Until RS.EOF
langd = 200 - (RS("total")/antalroster)*200
Response.Write "
"
Response.Write "
"
Response.Write "
" & RS("alternative") & "
"
Response.Write "
" & Round((RS("total")/antalroster)*100, 1) & "%
"
Response.Write "
"
Response.Write "
"
RS.MoveNext
Loop
%>
Totalt
<%=antalroster%> röster
<%
next
end if
%>
```
Men det verkar som om itne for i avslutas för efter när den har skrivit ut alla poster (det funkar perfekt) så får jag detta fel:
Microsoft JET Database Engine fel '80040e14'
Syntaxfel (operator saknas) i frågeuttrycket 'PollID ='.
/80/fragor.asp, line 150
Permalänk: https://www.webforum.nu/p/682900
## #6 — LarsG, 2002-05-27T18:18Z
redim vilkenPoll(intAntal-1)
eftersom index börjar på 0
Permalänk: https://www.webforum.nu/p/682907
## #7 — ampy, 2002-05-27T18:42Z
Tack så mycket. Nu funkar det perfekt.
Permalänk: https://www.webforum.nu/p/682914
---
Tråden på webben: https://www.webforum.nu/amne/asp/44670-sätta-ihop-denna-kod
" & Round((RS("total")/antalroster)*100, 1) & "%