---
title: "spara en kod och sedan använda den senare"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/40669-spara-en-kod-och-sedan-använda-den-senare"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ampy"
published: "2002-04-02T09:32:50.000Z"
updated: "2002-04-02T19:56:47.000Z"
replies: 2
views: 206
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/40669-spara-en-kod-och-sedan-använda-den-senare"
---

# spara en kod och sedan använda den senare

## #1 — ampy, 2002-04-02T09:32Z

Här har jag en kod och det som är med fetstil vill jag skriva ut senare tillsammans med en annan kod. Eftersom den koden är i en loop och jag vill skriva ut den 5 max fem gånger senare beroende på hur många poster det finns i tabellen. 

```
<%

SQL = "SELECT * FROM omrostningar where agare = '"&medlem&"' AND typ = 'svar' AND poll_id = "&pollid&" "
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

x = 0

Do Until RecSet.EOF

x = x + 1

Set oRS = Connect.Execute("select count(*) as no from omrostningar where agare = '"&medlem&"' AND typ = 'svar' AND poll_id = "&pollid&" AND svar_"&x&" = '1'") 

[b]Response.Write " (" & oRS("no") & ")<br>"

Response.Write "<img src='bilder/vote-kant.gif' height = '5'"
Response.Write "<img src='bilder/vote-mid.gif' height = '5' width = '"_
&(oRS("no")/5)*100 &"'>"
Response.Write "<img src='bilder/vote-mid2.gif' height = '5' width = '"_
&(100-(oRS("no")/5)*100) &"'>"
Response.Write "<img src='bilder/vote-kant.gif' height = '5'> " &Round((oRS("no")/5)*100, 1) &" %<br>"
[/b]

RecSet.MoveNext
Loop

RecSet.Close
%>

Jag vill sätta ihop koden med denna kod:

[kod]
<%

SQL = "SELECT * FROM omrostningar where agare = '"&medlem&"' AND typ = 'poll' order by id desc"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic 

Response.Write RecSet("svar_1") & "<br><br>"

[i]här ska koden då x är värt 1 hamna[/i]

Response.Write RecSet("svar_2") & "<br><br>"

[i]här ska koden då x är värt 2 hamna[/i]

Response.Write RecSet("svar_3") & "<br><br>"

[i]här ska koden då x är värt 3 hamna[/i]

Response.Write RecSet("svar_4") & "<br><br>"

[i]här ska koden då x är värt 4 hamna[/i]

Response.Write RecSet("svar_5") & "<br><br>"

[i]här ska koden då x är värt 5 hamna[/i]

RecSet.Close

%>
```

Alltså vill jag att den koden överst ska hamna här beroende på vad x var i loopen i den översta koden. Om det bara fanns tex tre poster så vill jag inte skriva ut:

Response.Write RecSet("svar_4") och 
Response.Write RecSet("svar_5")

hoppas ni fattar vad jag menar.

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

## #2 — ampy, 2002-04-02T18:54Z

Ingen som vet hur man kan göra?

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

## #3 — PatrikB, 2002-04-02T19:56Z

ngt sådant hära kanske ......

```
<%
SQL = "SELECT * FROM omrostningar " & _
	"where agare = '"&medlem&"' AND typ = 'svar' AND poll_id = "&pollid&" "

RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

	x = 0
	
	Do Until RecSet.EOF
		x = x + 1
		Set oRS = Connect.Execute("select count(*) as no from omrostningar " & _
			"where agare = '"&medlem&"' AND typ = 'svar' AND poll_id = "&pollid&" AND svar_"&x&" = '1'") 
		
		Call ShowVote(oRS("no"), x)
	
		RecSet.MoveNext
	Loop

RecSet.Close

Sub ShowVote(vData, lCnt)
	Response.Write "(" & lCnt & ")<BR>" & _
		"<img src='bilder/vote-kant.gif' height = '5'>" & _
		"<img src='bilder/vote-mid.gif' height = '5' width = '" & _
			CLng((vData/5)*100) &"'>" & _
		"<img src='bilder/vote-mid2.gif' height = '5' width = '" & _
			CLng(100-(vData/5)*100) &"'>" & _
		"<img src='bilder/vote-kant.gif' height = '5'> " & _
			Round((vData/5)*100, 1) & "<br>"
End Sub
%>
```

cya,
PatrikB

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/40669-spara-en-kod-och-sedan-använda-den-senare