spara en kod och sedan använda den senare

2 svar · 202 visningar · startad av ampy 2 apr. 2002

ampyMedlem sedan feb. 20011 498 inlägg

Frågan2 apr. 2002 09:32#1

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.

ampyMedlem sedan feb. 20011 498 inlägg

2 apr. 2002 18:54#2

Ingen som vet hur man kan göra?

PatrikBMedlem sedan mars 20002 836 inlägg

2 apr. 2002 19:56#3

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