Varför byter den namn?

Tackar så mycket för tid :)

Jag pastade in koden du gav, och får nu detta felmeddelande;

Microsoft VBScript compilation error '800a0411'

Name redefined

/poll/vote.asp, line 10

Dim RecSet
----^

Om variabeln redan är deklarerad (dim:ad) tidigare i koden ska du inte göra det igen.

Det är den inte, vad jag kan se?

Kanske i en include-fil?
Ta bort raden iaf - någonstans är variablen deklarerad sedan tidigare.

Japp, stämde.

Dim x, Antal, Knapp,ACCESS,MYSQL,MSSQL, title, DATABASE,DATABASENAME, USERNAME, PASSWORD, Sidan, Bredd, hojd, Color, PollAdminUsername, PollAdminPassword, Conn, RecSet, Rs, Procent, BILD, Radio

ser den ut i include-filen, är det rätt?

Jag får iallafall det här felmeddelandet nu..

Microsoft VBScript compilation error '800a0411'

Name redefined

/poll/vote.asp, line 13

Dim totalVotes, Antal, Procent, x, BILD
----------------^

för att Antal redan finns deklarerad... ta bort den. Läs lite vad felmeddelandet innebär innan du postar det på wF. Detta är rätt uppenbart vad felet är.

Japp, nu fungerar det.

Jag vill visa "Antal" i den här diven, men den visar inget.

Response.Write "<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>"

Antagligen för att det här kommer precis under;

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

Hur löser jag det på bästa sätt?

Tack!!

voigtann1 skrev:

Läs lite vad felmeddelandet innebär innan du postar det på wF. Detta är rätt uppenbart vad felet är.

Har börjat göra det, läsa vad allt har för innebörd. Dels för att jag vill lära mig, och slippa posta här så fort jag får ett problem som jag inte kan handskas med. :OO

för när du skriver ut Response.Write där så är antal inget... Du har inte ens börjat loopa ut det.. placera koden längre ner.

Jo, jag vet. Men jag har lekt med olika varianter men jag får det inte att fungera, endast en massa felmeddelande..

Skulle vara snällt om du ge en hint eller hjälpa :)

Hint? du har ju själv svarat på din egna fråga.
Jag hade inte kanske kört Response.Write utan all resultat hade jag sparat i variabler som jag hade retunerat eller skrivit ut i slutet av din Sub/funktion.

<%
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
			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%>

Microsoft VBScript compilation error '800a0408'

Invalid character

/poll/vote.asp, line 70

Response.Write Replace(voigt_header,{antal},antal)
------------------------------------^

Eh, skulle jag byta ut {antal}? :q

Response.Write Replace(voigt_header,"{antal}",antal)

läs fel meddelandet.. den vill ha en sträng eller en variabel... {} kan inte användas i variabler.

Okej.
Men hur ska den variabeln se ut då? Jag får inte till det. Fan.

Kolla din kod och kolla mitt svar på förra inlägget.... hint: "

Förstår inte vad du menar..

Nu är du lite väl bekväm tycker jag... läs koden

Response.Write Replace(voigt_header,{antal},antal) ' Old Code
Response.Write Replace(voigt_header,"{antal}",antal) ' New Code

Jaha, jaja. Tar jag bort citattecknena så får jag ett felmeddelande så jag antog att det var fel..

Microsoft VBScript compilation error '800a0408'

Invalid character

/poll/vote.asp, line 20