Varför byter den namn?

77 svar · 2 146 visningar · startad av Jeppeweb 14 feb. 2008 · sida 3 av 4

Frågan, av Jeppeweb 14 feb. 2008

Microsoft OLE DB Provider for ODBC Drivers error '80040e37' \[MySQL\]\[ODBC 3.51 Driver\]\[mysqld-5.0.45-log\]Table 'wohose.Fraga' doesn't exist /admin.asp, line 107 LINE 107: conn.execute("INSERT INTO fraga (fraga,ar,vecka) VALUES('" & request.form("fraga") & "','" & request.form("ar") &"','" & request.form("vecka") &"')") Set RS=Conn.Execute("Select from Fraga Order By PollID DE

Läs frågan i sin helhet →

voigtann1Medlem sedan juni 20019 519 inlägg

14 feb. 2008 13:52#41

Läser du vad jag skriver... din gamla kod som du säger att du får Invalid character är ju den som INTE ha " mellan {antal}

JeppewebMedlem sedan sep. 2006462 inlägg

14 feb. 2008 16:40#42

Alltså, va? Just nu ser den ut såhär, jag har inge " mellan {antal}.

			voigt_header = "<div id='welcometcolumn'><h1 id='vote'><a href='#' title='Visa tidigare resultat'>
<img src='images/poll_icon.gif' alt='' /></a>" & RecSet("fraga") & 
{antal} & Knapp & "</h1></div><div id='votecolumn'>"

voigtann1Medlem sedan juni 20019 519 inlägg

14 feb. 2008 16:44#43

rad 70 var det ju:

<%
Sub RenderPoll()
	If Request.Querystring("do") = "vote" Then
		conn.execute("Update svar Set klick=klick+1 Where id=" & Request.Form("vote"))
		Response.Cookies("rostat")="JA"
		Response.Cookies("rostat").Expires = date + 1
		Response.Redirect sidan
	Else
		'voigtann1's variabler
		dim voigt_header, voigt_pollString

		Dim RecSet
		Set RecSet = conn.execute("SELECT * , svar.ID AS vID, svar.pollID as pID FROM fraga INNER JOIN svar ON svar.PollID=fraga.pollID WHERE vecka=" & DatePart("ww", Date) & " And ar =" & DatePart("yyyy", Date) & " ORDER BY fraga.PollId DESC, Svarnr ASC")
	
		If Not RecSet.EOF Then
			totalVotes = Conn.Execute("SELECT sum(klick) AS tot FROM svar WHERE pollID=" & Recset("pID"))("tot")
			totalVotes = CLng(totalVotes)
			'Vi kommer ersätta {antal} med antals variablen strax innan vi rendera ut resultatet.
			voigt_header = "<div id='welcometcolumn'><h1 id='vote'><a href='#' title='Visa tidigare resultat'><img src='images/poll_icon.gif' alt='' /></a>" & RecSet("fraga") & "{antal}" & Knapp & "</h1></div><div id='votecolumn'>"
			Do Until Recset.EOF
			
			
				If Recset("klick") <> 0 Then
					Procent = (CLng((recset("klick")) / totalVotes) * 100)
				Else
					Procent=0
				End If
			
				Antal = Recset("klick") + antal
				x = x + 1
				Select Case x
					Case 1: BILD = "1.gif"
					Case 2: BILD = "1.gif"
					Case 3:	BILD = "1.gif"
					Case 4:	BILD = "1.gif"
				End Select
	
				If Request.Cookies("rostat") <> "JA" Then
					Radio="<input checked type=""radio"" name='vote' value=" & recset("vID") & "><img scr='' width=1>"
					Knapp ="<center><br><input type=""submit"" value=""Vote!""></center>"
					voigt_pollString = voigt_pollString & "<form action=" & sidan & "?do=vote&ID=" & Recset("vID") &" method=post>"
				End If
				
				voigt_pollString = voigt_pollString & "<a href='#'>" &recset("svar") & " (" & left(Procent,4) & "%)</a><br>"
				voigt_pollString = voigt_pollString & "<table border=""0"" width='" & bredd & "' height=""" & hojd  &""">" &_
								 "<tr bgcolor="& Color &">" &_
								 "<td height='" & hojd  &"' width=""100%"">" &_				
								 "<table border=""0"" width=""100%"" height=""" & hojd  &""">" &_
								 "<tr><td>"& Radio &"<img src=""images/start.gif"">" 
							
				If Request.Cookies("rostat") = EMPTY Then ' Var kommer Empty ifrån?
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width='" & int(left(Procent,4)-15) & "%'>"
				ElseIf Int(Left(Procent,3)) = 100 And Request.Cookies("rostat") = "JA" Then
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width='98%'>"
				Else
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width="& int(left(Procent,4)) &"%"">"
				End IF
							
				voigt_pollString = voigt_pollString & "<img src=""images/end.gif"">" & _
					"</td></tr></table>" & _
					"</tr>" & _
					"</table></form>" ' Du saknade </form>
				Recset.MoveNext
			Loop
			
			
			'Vi rendera ut pollen nu... först nu
			[b]Response.Write Replace(voigt_header,"{antal}",antal)[/b]
			Response.Write voigt_pollString
			Response.Write "<br> Antal: " & Antal  & Knapp 
			Response.Write "</div>" 
		
		End If
		
		RecSet.Close
		RS.close
	End If
End Sub

RenderPoll ' eller Call RenderPoll()

Conn.Close
Set Conn = Nothing%>

Jag förstår inte varför du håller på att ändra på rad 20.. och speciellt att ta bort "

JeppewebMedlem sedan sep. 2006462 inlägg

14 feb. 2008 16:52#44

Okej, fick igång den nu. Men den buggar typ, rejält.

Ehm, trycker man in en checkknapp, och sedan trycker på en till, ja då blir båda markerade.. knasigt.

Hur kommer det sig almighty ?

voigtann1Medlem sedan juni 20019 519 inlägg

14 feb. 2008 16:55#45

För att du skapar en nytt formulär för varje post den hittar:

<%
Sub RenderPoll()
	If Request.Querystring("do") = "vote" Then
		conn.execute("Update svar Set klick=klick+1 Where id=" & Request.Form("vote"))
		Response.Cookies("rostat")="JA"
		Response.Cookies("rostat").Expires = date + 1
		Response.Redirect sidan
	Else
		'voigtann1's variabler
		dim voigt_header, voigt_pollString

		Dim RecSet
		Set RecSet = conn.execute("SELECT * , svar.ID AS vID, svar.pollID as pID FROM fraga INNER JOIN svar ON svar.PollID=fraga.pollID WHERE vecka=" & DatePart("ww", Date) & " And ar =" & DatePart("yyyy", Date) & " ORDER BY fraga.PollId DESC, Svarnr ASC")
	
		If Not RecSet.EOF Then
			totalVotes = Conn.Execute("SELECT sum(klick) AS tot FROM svar WHERE pollID=" & Recset("pID"))("tot")
			totalVotes = CLng(totalVotes)
			'Vi kommer ersätta {antal} med antals variablen strax innan vi rendera ut resultatet.
			voigt_header = "<div id='welcometcolumn'><h1 id='vote'><a href='#' title='Visa tidigare resultat'><img src='images/poll_icon.gif' alt='' /></a>" & RecSet("fraga") & "{antal}" & Knapp & "</h1></div><div id='votecolumn'>"

			If Request.Cookies("rostat") <> "JA" Then
				Radio="<input checked type=""radio"" name='vote' value=" & recset("vID") & "><img scr='' width=1>"
				Knapp ="<center><br><input type=""submit"" value=""Vote!""></center>"
				voigt_pollString = voigt_pollString & "<form action=" & sidan & "?do=vote&ID=" & Recset("vID") &" method=post>"
			End If
				
			Do Until Recset.EOF
			
			
				If Recset("klick") <> 0 Then
					Procent = (CLng((recset("klick")) / totalVotes) * 100)
				Else
					Procent=0
				End If
			
				Antal = Recset("klick") + antal
				x = x + 1
				Select Case x
					Case 1: BILD = "1.gif"
					Case 2: BILD = "1.gif"
					Case 3:	BILD = "1.gif"
					Case 4:	BILD = "1.gif"
				End Select
				
				voigt_pollString = voigt_pollString & "<a href='#'>" &recset("svar") & " (" & left(Procent,4) & "%)</a><br>"
				voigt_pollString = voigt_pollString & "<table border=""0"" width='" & bredd & "' height=""" & hojd  &""">" &_
								 "<tr bgcolor="& Color &">" &_
								 "<td height='" & hojd  &"' width=""100%"">" &_				
								 "<table border=""0"" width=""100%"" height=""" & hojd  &""">" &_
								 "<tr><td>"& Radio &"<img src=""images/start.gif"">" 
							
				If Request.Cookies("rostat") = EMPTY Then ' Var kommer Empty ifrån?
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width='" & int(left(Procent,4)-15) & "%'>"
				ElseIf Int(Left(Procent,3)) = 100 And Request.Cookies("rostat") = "JA" Then
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width='98%'>"
				Else
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width="& int(left(Procent,4)) &"%"">"
				End IF
							
				voigt_pollString = voigt_pollString & "<img src=""images/end.gif"">" & _
					"</td></tr></table>" & _
					"</tr>" & _
					"</table>"
				Recset.MoveNext
				If Request.Cookies("rostat") <> "JA" Then
					voigt_pollString = voigt_pollString & "</form>"
				End If
			Loop
			
			
			'Vi rendera ut pollen nu... först nu
			Response.Write Replace(voigt_header,"{antal}",antal)
			Response.Write voigt_pollString
			Response.Write "<br> Antal: " & Antal  & Knapp 
			Response.Write "</div>" 
		
		End If
		
		RecSet.Close
		RS.close
	End If
End Sub

RenderPoll ' eller Call RenderPoll()

Conn.Close
Set Conn = Nothing%>

(visa källkod är inte alltid fel att kolla på).

JeppewebMedlem sedan sep. 2006462 inlägg

14 feb. 2008 16:57#46

Båda blir fortfarande markerade.

voigtann1Medlem sedan juni 20019 519 inlägg

14 feb. 2008 17:08#47

<%
Sub RenderPoll()
	If Request.Querystring("do") = "vote" Then
		conn.execute("Update svar Set klick=klick+1 Where id=" & Request.Form("vote"))
		Response.Cookies("rostat")="JA"
		Response.Cookies("rostat").Expires = date + 1
		Response.Redirect sidan
	Else
		'voigtann1's variabler
		dim voigt_header, voigt_pollString

		Dim RecSet
		Set RecSet = conn.execute("SELECT * , svar.ID AS vID, svar.pollID as pID FROM fraga INNER JOIN svar ON svar.PollID=fraga.pollID WHERE vecka=" & DatePart("ww", Date) & " And ar =" & DatePart("yyyy", Date) & " ORDER BY fraga.PollId DESC, Svarnr ASC")
	
		If Not RecSet.EOF Then
			totalVotes = Conn.Execute("SELECT sum(klick) AS tot FROM svar WHERE pollID=" & Recset("pID"))("tot")
			totalVotes = CLng(totalVotes)
			'Vi kommer ersätta {antal} med antals variablen strax innan vi rendera ut resultatet.
			voigt_header = "<div id='welcometcolumn'><h1 id='vote'><a href='#' title='Visa tidigare resultat'><img src='images/poll_icon.gif' alt='' /></a>" & RecSet("fraga") & "{antal}" & Knapp & "</h1></div><div id='votecolumn'>"

			voigt_pollString = voigt_pollString & "<form action=" & sidan & "?do=vote&ID=" & Recset("vID") &" method=post>"
			Do Until Recset.EOF
			
			
				If Recset("klick") <> 0 Then
					Procent = (CLng((recset("klick")) / totalVotes) * 100)
				Else
					Procent=0
				End If
			
				Antal = Recset("klick") + antal
				x = x + 1
				Select Case x
					Case 1: BILD = "1.gif"
					Case 2: BILD = "1.gif"
					Case 3:	BILD = "1.gif"
					Case 4:	BILD = "1.gif"
				End Select
				
			If Request.Cookies("rostat") <> "JA" Then
				Radio="<input type=""radio"" name='vote' value=" & recset("vID") & "><img scr='' width=1>"
				Knapp ="<center><br><input type=""submit"" value=""Vote!""></center>"
			End If
				
				voigt_pollString = voigt_pollString & "<a href='#'>" &recset("svar") & " (" & left(Procent,4) & "%)</a><br>"
				voigt_pollString = voigt_pollString & "<table border=""0"" width='" & bredd & "' height=""" & hojd  &""">" &_
								 "<tr bgcolor="& Color &">" &_
								 "<td height='" & hojd  &"' width=""100%"">" &_				
								 "<table border=""0"" width=""100%"" height=""" & hojd  &""">" &_
								 "<tr><td>"& Radio &"<img src=""images/start.gif"">" 
							
				If Request.Cookies("rostat") = EMPTY Then ' Var kommer Empty ifrån?
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width='" & int(left(Procent,4)-15) & "%'>"
				ElseIf Int(Left(Procent,3)) = 100 And Request.Cookies("rostat") = "JA" Then
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width='98%'>"
				Else
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width="& int(left(Procent,4)) &"%"">"
				End IF
							
				voigt_pollString = voigt_pollString & "<img src=""images/end.gif"">" & _
					"</td></tr></table>" & _
					"</tr>" & _
					"</table>"
				Recset.MoveNext
				voigt_pollString = voigt_pollString & "</form>"
			Loop
			
			
			'Vi rendera ut pollen nu... först nu
			Response.Write Replace(voigt_header,"{antal}",antal)
			Response.Write voigt_pollString
			Response.Write "<br> Antal: " & Antal  & Knapp 
			Response.Write "</div>" 
		
		End If
		
		RecSet.Close
		RS.close
	End If
End Sub

RenderPoll ' eller Call RenderPoll()

Conn.Close
Set Conn = Nothing%>

JeppewebMedlem sedan sep. 2006462 inlägg

14 feb. 2008 17:14#48

Tack, nu verkar det vara löst. Händer dock inget när jag trycker på vote knappen (A)

voigtann1Medlem sedan juni 20019 519 inlägg

14 feb. 2008 17:17#49

Ja... eftersom jag får kolla på din hemsida så ser jag felet direkt...
ta bort

				voigt_pollString = voigt_pollString & "</form>"

eftersom du tydligen har </form> + submit knappen i en helt annan fil... no offence men jag förstå inte riktigt hur du klarar programmera såhär...

Placera all kod för din poll i en fil och ha den som en funktion eller en Sub funktion: Då kan du använda den igen betydligt enklare än kopiera all kod igen och klistra in det.

JeppewebMedlem sedan sep. 2006462 inlägg

14 feb. 2008 19:45#50

Den buggar som fan nu, två som registrerat en röst, men den visar 0 på alla fält, varför?

<!--#Include file="Settings.asp"-->
<%
Sub RenderPoll()
	If Request.Querystring("do") = "vote" Then
		conn.execute("Update svar Set klick=klick+1 Where id=" & Request.Form("vote"))
		Response.Cookies("rostat")="JA"
		Response.Cookies("rostat").Expires = date + 1
		Response.Redirect sidan
	Else
		'voigtann1's variabler
		dim voigt_header, voigt_pollString, totalVotes

		Dim RecSet
		Set RecSet = conn.execute("SELECT * , svar.ID AS vID, svar.pollID as pID FROM fraga INNER JOIN svar ON svar.PollID=fraga.pollID WHERE vecka=" & 
DatePart("ww", Date) & " And ar =" & DatePart("yyyy", Date) & " ORDER BY fraga.PollId DESC, Svarnr ASC")
	
		If Not RecSet.EOF Then
			totalVotes = Conn.Execute("SELECT sum(klick) AS tot FROM svar WHERE pollID=" & Recset("pID"))("tot")
			totalVotes = CLng(totalVotes)
			'Vi kommer ersätta {antal} med antals variablen strax innan vi rendera ut resultatet.
			voigt_header = "<div id='welcometcolumn'><h1 id='vote'><a href='#' title='Visa tidigare resultat'><img src='images/poll_icon.gif' alt='' />
</a>" & RecSet("fraga") & "{antal}" & Knapp & "</h1></div><div id='votecolumn'>"

			voigt_pollString = voigt_pollString & "<form action=" & sidan & "?do=vote&ID=" & Recset("vID") &" method=post>"
			Do Until Recset.EOF
			
			
				If Recset("klick") <> 0 Then
					Procent = (CLng((recset("klick")) / totalVotes) * 100)
				Else
					Procent=0
				End If
			
				Antal = Recset("klick") + antal
				x = x + 1
				Select Case x
					Case 1: BILD = "1.gif"
					Case 2: BILD = "1.gif"
					Case 3:	BILD = "1.gif"
					Case 4:	BILD = "1.gif"
				End Select
				
			If Request.Cookies("rostat") <> "JA" Then
				Radio="<input type=""radio"" name='vote' value=" & recset("vID") & "><img scr='' width=1>"
				Knapp ="<center><br><input type=""submit"" value=""Vote!""></center>"
			End If
				
				voigt_pollString = voigt_pollString & "<a href='#'>" &recset("svar") & " (" & left(Procent,4) & "%)</a><br><br>"
				voigt_pollString = voigt_pollString & "<table border=""0"" width='" & bredd & "' height=""" & hojd  &""">" &_
								 "<tr bgcolor="& Color &">" &_
								 "<td height='" & hojd  &"' width=""100%"">" &_				
								 "<table border=""0"" width=""100%"" height=""" & hojd  &""">" &_
								 "<tr><td>"& Radio &"<img src=""images/start.gif"">" 
							
				If Request.Cookies("rostat") = EMPTY Then ' Var kommer Empty ifrån?
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width='" & int(left(Procent,4)-15) & "%'>"
				ElseIf Int(Left(Procent,3)) = 100 And Request.Cookies("rostat") = "JA" Then
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width='98%'>"
				Else
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width="& int(left(Procent,4)) &"%"">"
				End IF
							
				voigt_pollString = voigt_pollString & "<img src=""images/end.gif"">" & _
					"<br><br></td></tr></table>" & _
					"</tr>" & _
					"</table>"
				Recset.MoveNext
				voigt_pollString = voigt_pollString
			Loop
			
			
			'Vi rendera ut pollen nu... först nu
			Response.Write Replace(voigt_header,"{antal}",antal)
			Response.Write voigt_pollString
			Response.Write "<br>" & Knapp 
			Response.Write "</form>"
			Response.Write "</div>" 
		
		End If
		
		RecSet.Close
	End If
End Sub

RenderPoll ' eller Call RenderPoll()

Conn.Close
Set Conn = Nothing%>

JeppewebMedlem sedan sep. 2006462 inlägg

14 feb. 2008 20:15#51

Är det jämt nummer som röstat, syns inte dom blåa barsen alls, har röstat 5 gånger nu, den sätter 100% på den man sist tryckte på.. Varför?

Tacksam för hjälp

voigtann1Medlem sedan juni 20019 519 inlägg

14 feb. 2008 20:58#52

börja felsök... kolla din databas, prova skriv ut dina variabel "Procent" och loopa ut den så får man ett värde på vad den är...

				If Request.Cookies("rostat") = EMPTY Then ' Var kommer Empty ifrån?
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width='" & int(left(Procent,4)-15) & "%'>"
				ElseIf Int(Left(Procent,3)) = 100 And Request.Cookies("rostat") = "JA" Then
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width='98%'>"
				Else
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width="& int(left(Procent,4)) &"%"">"
				End IF

ser ut som där är "felet"... men man måste få datan för att kunna felsöka lite.

JeppewebMedlem sedan sep. 2006462 inlägg

14 feb. 2008 22:18#53

Skrev ut "Procent", får ut 10000 ..

EDIT; körde en loop, får ut 0 nu.

voigtann1Medlem sedan juni 20019 519 inlägg

15 feb. 2008 06:11#54

				If Recset("klick") <> 0 Then
					Procent = (CLng((recset("klick")) / totalVotes) * 100)
				Else
					Procent=0
				End If

Den blir alltid "Else" i denna If ser det ut som..
Vad är "klick"? är det ett antal?

				If CLng(Recset("klick")) > 0 Then
					Procent = (CInt((recset("klick")) / totalVotes) * 100)
				Else
					Procent=0
				End If

Vet inte om jag har frågat men vad är värdet på 'totalVotes' ?

JeppewebMedlem sedan sep. 2006462 inlägg

15 feb. 2008 09:15#55

Klick räknar ut antalet klick som gjorts på varje frågesvar.

totalVotes räknar just vad namnet är, ut hur många det är som röstat.

Hum.

voigtann1Medlem sedan juni 20019 519 inlägg

15 feb. 2008 10:16#56

Jo det vet jag, men _vad_ är innehållet.. 1,2 eller tomt...

JeppewebMedlem sedan sep. 2006462 inlägg

15 feb. 2008 10:18#57

Innehållet är 11.. Den räknar rätt..

voigtann1Medlem sedan juni 20019 519 inlägg

15 feb. 2008 10:43#58

Jag förstå inte alls ... jag gjorde ett snabbt exempel och det fungera för mig 100%:

<%
dim vResults, lTotal, voigt_pollString
vResults = Array(1,2,1) ' 3 val, val nr 2 har fått 2 svar (50% av alla som har röstat).
'Få ut totala antal röster
for i = 0 to Ubound(vResults)
	lTotal = lTotal + vResults(i) ' Loopar ut så vi vet antal röster totalt (4st)
Next

dim hojd
hojd = 15

Response.Write "Antal röster: " & lTotal & "<br>"

for i = 0 to Ubound(vResults)
	Procent = CInt((vResults(i)/lTotal)* 100) ' få ut Procenten på rösterna.
	Response.Write "Result " & i +1 & ": " & Procent & "% (" & vResults(i) & ")<br>" ' skriv ut ett "fint" meddelande
	Response.Write RenderGraph(Procent, hojd, "http://www.woho.se/images/1.gif") & "<br>" ' Anropar RenderGraph se funktion nedan.
Next

Function RenderGraph(lPercentage,lHeight,sPictureName)
	dim lWidth
	If Int(lPercentage) = 100 And Request.Cookies("rostat") = "JA" Then
		lWidth = 98
	Else
		lWidth = int(lPercentage)
	End If
	RenderGraph = "<img src=""" & sPictureName & """ style=""height:" & lHeight & "px;width:" & lWidth & "%"""">"
End Function

%>

... en enkel array med tal... + en funktion för att rita ut "grafen"? eller mätaren.

vad innehåller Recset("klick") egentligen?

JeppewebMedlem sedan sep. 2006462 inlägg

15 feb. 2008 13:35#59

Är du säker på att den fungerade? Problemet för mig är att, visst, den fungerar en gång när man trycker, men trycker du igen, på ett annat röstalternativ, då blir det 100% på den trots att man tryckt på en annan tidigare...

Klick innehåller hur många klick som gjort på vardera svarsalternativ, den fungerar, det kommer in information i databasen. Låt oss säga att två personer röstar på "Hej", och 3 på "Weo", då blir det 2 på "Hej" och 3 på "Weo" helt enkelt.

Såhär ser min kod ut just nu.

<!--#Include file="Settings.asp"-->
<%
Sub RenderPoll()
	If Request.Querystring("do") = "vote" Then
		conn.execute("Update svar Set klick=klick+1 Where id=" & Request.Form("vote"))
		Response.Cookies("rostat")="JA"
		Response.Cookies("rostat").Expires = date + 1
		Response.Redirect sidan
	Else
		'voigtann1's variabler
		dim voigt_header, voigt_pollString, totalVotes

		Dim RecSet
		Set RecSet = conn.execute("SELECT * , svar.ID AS vID, svar.pollID as pID FROM fraga INNER JOIN svar ON svar.PollID=fraga.pollID WHERE vecka=" & DatePart("ww", Date) & " And ar =" & DatePart("yyyy", Date) & " ORDER BY fraga.PollId DESC, Svarnr ASC")
	
		If Not RecSet.EOF Then
			totalVotes = Conn.Execute("SELECT sum(klick) AS tot FROM svar WHERE pollID=" & Recset("pID"))("tot")
			totalVotes = CLng(totalVotes)
			'Vi kommer ersätta {antal} med antals variablen strax innan vi rendera ut resultatet.
			voigt_header = "<div id='welcometcolumn'><h1 id='vote'><a href='#' title='Visa tidigare resultat'><img src='images/poll_icon.gif' alt=''/></a> " &RecSet("fraga")&" <a href='#' title='Totalt har " & " {antal}" & " r&ouml;stat'> " & " {antal}" & "</a></h1></div><div id='votecolumn'>"

			voigt_pollString = voigt_pollString & "<form action=" & sidan & "?do=vote&ID=" & Recset("vID") &" method=post>"
			Do Until Recset.EOF
			
			
				If Recset("klick") <> 0 Then
					Procent = (CLng((recset("klick")) / totalVotes) * 100)
				Else
					Procent=0
				End If
			
				Antal = Recset("klick") + antal
				x = x + 1
				Select Case x
					Case 1: BILD = "1.gif"
					Case 2: BILD = "1.gif"
					Case 3:	BILD = "1.gif"
					Case 4:	BILD = "1.gif"
				End Select
				
			If Request.Cookies("rostat") <> "JA" Then
				Radio="<input type=""radio"" name='vote' value=" & recset("vID") & "><img scr='' width=1>"
				Knapp ="<center><br><input type=""submit"" value=""R&ouml;sta!""></center>"
			End If
				
				voigt_pollString = voigt_pollString & "<a href='#'>" &recset("svar") & " (" & left(Procent,4) & "%)</a><br>"
				voigt_pollString = voigt_pollString & "<table border=""0"" width='" & bredd & "' height=""" & hojd  &""">" &_
								 "<tr bgcolor="& Color &">" &_
								 "<td height='" & hojd  &"' width=""100%"">" &_				
								 "<table border=""0"" width=""100%"" height=""" & hojd  &""">" &_
								 "<tr><td>"& Radio &"<img src=""images/start.gif"">" 
						

							
				If Request.Cookies("rostat") = EMPTY Then ' Var kommer Empty ifrån?
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width='" & int(left(Procent,4)-15) & "%'>"
				ElseIf Int(Left(Procent,3)) = 100 And Request.Cookies("rostat") = "JA" Then
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width='98%'>"
				Else
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width="& int(left(Procent,4)) &"%"">"
				End IF
											
				voigt_pollString = voigt_pollString & "<img src=""images/end.gif"">" & _
					"</td></tr></table>" & _
					"</tr>" & _
					"</table>"
				Recset.MoveNext
				voigt_pollString = voigt_pollString
			Loop
			
			'Vi rendera ut pollen nu... först nu
			Response.Write Replace(voigt_header,"{antal}",antal)
			Response.Write voigt_pollString
			Response.Write "<br>" & Knapp 
			Response.Write "</form>"
			Response.Write "</div>" 
		
		End If
		
		RecSet.Close
	End If
End Sub

RenderPoll ' eller Call RenderPoll()

Conn.Close
Set Conn = Nothing%>

voigtann1Medlem sedan juni 20019 519 inlägg

15 feb. 2008 14:04#60

Du behöver inte postar koden varje gång du svarar. Jag undra om du själv vet vad din egna kod gör.

Är du säker på att den fungerade?

Ja jag är säker. Jag testar och testar igen min kod och jag har absolut inga problem.

Problemet för mig är att, visst, den fungerar en gång när man trycker, men trycker du igen, på ett annat röstalternativ, då blir det 100% på den trots att man tryckt på en annan tidigare...

fungera 1 gång? att visa resultatet? eller? Då är det ju något i din kod runt.... som jag har påpekat innan:

				If Request.Cookies("rostat") = EMPTY Then ' Var kommer Empty ifrån?
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width='" & int(left(Procent,4)-15) & "%'>"
				ElseIf Int(Left(Procent,3)) = 100 And Request.Cookies("rostat") = "JA" Then
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width='98%'>"
				Else
					voigt_pollString = voigt_pollString & "<img src=""images/" & BILD &""" height="""& hojd  &""" width="& int(left(Procent,4)) &"%"">"
				End IF

Detta för mig är verkligen... riktigt konstigt.
left(xxx,4) på ett tal som är max 100 dvs 3 tecken...

int(left(Procent,4)-15)

detta fattar jag inte heller varför du har riktigt.