---
title: "Varför kan inte denna funka?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11594-varför-kan-inte-denna-funka"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ReloadMaster"
published: "2001-09-11T13:41:00.000Z"
updated: "2001-09-13T08:16:00.000Z"
replies: 19
views: 290
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/11594-varför-kan-inte-denna-funka"
---

# Varför kan inte denna funka?

## #1 — ReloadMaster, 2001-09-11T13:41Z

\<%If "&svar4&" = "" Then

'Gör inget

Else
r4 = RecSet("roster4")
%\>
Svar4: \<% =r4%\>\<br\>
\<%End If%\>

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

## #2 — LarsG, 2001-09-11T13:47Z

Är svar4 en variabel? I så fall

```
<%If svar4 = "" Then
'Gör inget

Else
r4 = RecSet("roster4")
%>
Svar4: <% =r4%><br>
<%End If%>
```

annars så får du förklara lite mer.

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

## #3 — ReloadMaster, 2001-09-11T13:54Z

Tack det löste det...
Men hur ska jag skriva om det är ett databasfält...

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

## #4 — LarsG, 2001-09-11T14:01Z

Tja, det är ju ingen principiell skillnad 

```
<%
sql = "select * from qs"
set recset = connect.execute("sql")
'
while not recset.eof
svar4 = recset("svar4")
if  svar4 = "" then
'gör inget
else
r4 = RecSet("roster4")
%>
Svar4: <% =r4%><br>
<%End If
recset.movenext
wend %>
```

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

## #5 — ReloadMaster, 2001-09-12T16:11Z

Vad är fel här?

\<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("votedb.mdb")

SQL = "SELECT top 1 \* From rosta ORDER BY ID DESC"
Set RecSet = Connect.Execute(SQL)

%\>
\<%
s4 = RecSet("svar4")
If "&s4&" = "" Then
%\>
\<%
Else
r4 = RecSet("roster4")
%\>
Svar4: \<% =r4%\>\<br\>
\<%End If%\>
\<%
RecSet.Close 
Set RecSet = Nothing 
Connect.Close 
Set Connect = Nothing 
%\>

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

## #6 — LarsG, 2001-09-12T16:22Z

```
If "" & s4 <> "" Then
r4 = RecSet("roster4")
%>
Svar4: <% =r4%><br>
<%End If%>
```

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

## #7 — ReloadMaster, 2001-09-12T16:42Z

Tack, Lasse

men nu kommer del två...
Jag skulle vilja att den skriver ut % på rösterna också i denna kod(om det går...)

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

## #8 — SuPeR_ToBBe, 2001-09-12T16:52Z

Ta antal svar på varje fråga och dela det med antal som har svarat, multiplicera med 100 och sätt ett %-tecken efter.

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

## #9 — LarsG, 2001-09-12T17:00Z

Du kan lägga in beräkningen direkt i sql-frågan:

```
sql = "select 100*svar1/(svar1+svar2+svar3+svar4) as p1,
100*svar2/(svar1+svar2+svar3+svar4) as p2,100*svar3/(svar1+svar2+svar3+svar4) as p3,100*svar1/(svar1+svar2+svar3+svar4) as p4 from rosta order by id desc"
set rs = connect.execute(sql)
while not rs.eof
for i = 1 to 4
response.write "rs("p"&i) & "% svar " _ 
& i & "<br>"
next
rs.movenext
wend
```

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

## #10 — ReloadMaster, 2001-09-12T18:37Z

Hur kan jag få in en i denna kod då:

\<%
s4 = RecSet("svar4")
If s4 = "" Then
r4 = RecSet("roster4")
%\>
Svar4: \<% =r4%\>\<br\>
\<%End If%\>

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

## #11 — ReloadMaster, 2001-09-12T19:58Z

Jag får det inte att funka...

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

## #12 — LarsG, 2001-09-12T20:30Z

Det beror på hur din tabell ser ut
Om kolumnerna 

roster1,
roster2,
roster3,
roster4

innehåller röster för de olika alternativen så får du % så här

```
<%
r1 = cdbl(recset("roster1"))
r2 = cdbl(recset("roster2"))
r3 = cdbl(recset("roster3"))
r4 = cdbl(recset("roster4"))
total = r1 + r2 + r3 + r4
s4 = recset("svar4")
if "" & s4 <> "" then %>
Svar4: <% =r4%><br> (<%= 100*(r4/total)%> %
<% end if %>
```

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

## #13 — ReloadMaster, 2001-09-12T20:45Z

Fan Lasse vad skulle jag göra om inte du vore här...
Men finns det något sätt att effektivitera denna kod efter som jag måste skriva ut den 10 gånger...

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

## #14 — ReloadMaster, 2001-09-12T20:55Z

Sedan undrar jag hur man slipper:
53,3333333333333% asså långa procent
om man vill att den visar bara ett heltal...

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

## #15 — icaaq, 2001-09-12T21:08Z

```
FormatNumber(ditt_tal, 0)
```

 :)

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

## #16 — LarsG, 2001-09-12T21:45Z

Nu vet jag inte exakt hur du menar och hur din nuvarande kod ser ut men det går ju att skriva så här

```

for i = 1 to 10
s = recset("svar" & i)
if "" & s <> "" then 
'gör något med s %>

<% 
end if
next 
%>
```

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

## #17 — ReloadMaster, 2001-09-13T08:01Z

Går det att korta ner med %:en oxå?

```
<%
r1 = cdbl(recset("roster1"))
r2 = cdbl(recset("roster2"))
r3 = cdbl(recset("roster3"))
r4 = cdbl(recset("roster4"))
r5 = cdbl(recset("roster5"))
r6 = cdbl(recset("roster6"))
r7 = cdbl(recset("roster7"))
r8 = cdbl(recset("roster8"))
r9 = cdbl(recset("roster9"))
r10 = cdbl(recset("roster10"))
total = r1 + r2 + r3 + r4 + r5 + r6 + r7 + r8 + r9 + r10
for i = 1 to 10
s = recset("svar" & i)
if "" & s <> "" then 
r = recset("roster" & i)
%> 
Svar<%=i%> : <% =r%>(<%= 100*(r/total)%>%)
<% 
end if
next 
%>
```

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

## #18 — LarsG, 2001-09-13T08:04Z

```
<%
total = 0
for i = 1 to 10
total = total + cdbl(recset("roster" & i))
next
for i = 1 to 10
s = recset("svar" & i)
if "" & s <> "" then 
r = recset("roster" & i)
%> 
Svar<%=i%> : <% =r%>(<%= 100*(r/total)%>%)
<% 
end if
next 
%>
```

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

## #19 — ReloadMaster, 2001-09-13T08:08Z

Tack IICAQ!

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

## #20 — ReloadMaster, 2001-09-13T08:16Z

Fan Lasse du är ju Kung!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11594-varför-kan-inte-denna-funka