---
title: "Varför byter den namn?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/169039-varför-byter-den-namn/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jeppeweb"
published: "2008-02-14T09:34:47.000Z"
updated: "2008-02-17T13:56:01.000Z"
replies: 77
views: 2192
page: 2
pages: 4
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/169039-varför-byter-den-namn"
---

# Varför byter den namn?

_Sida 2 av 4._

## #21 — Jeppeweb, 2008-02-14T11:09Z

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
\----^

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

## #22 — @nders, 2008-02-14T11:10Z

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

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

## #23 — Jeppeweb, 2008-02-14T11:14Z

Det är den inte, vad jag kan se?

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

## #24 — @nders, 2008-02-14T11:29Z

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

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

## #25 — Jeppeweb, 2008-02-14T11:32Z

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?

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

## #26 — Jeppeweb, 2008-02-14T11:34Z

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
\----------------^

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

## #27 — voigtann1, 2008-02-14T11:41Z

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.

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

## #28 — Jeppeweb, 2008-02-14T11:51Z

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

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

## #29 — Jeppeweb, 2008-02-14T11:53Z

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

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

## #30 — voigtann1, 2008-02-14T11:54Z

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.

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

## #31 — Jeppeweb, 2008-02-14T11:59Z

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 :)

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

## #32 — voigtann1, 2008-02-14T12:08Z

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.

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

## #33 — voigtann1, 2008-02-14T12:16Z

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

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

## #34 — Jeppeweb, 2008-02-14T12:21Z

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

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

## #35 — voigtann1, 2008-02-14T12:37Z

```
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.

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

## #36 — Jeppeweb, 2008-02-14T12:55Z

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

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

## #37 — voigtann1, 2008-02-14T12:58Z

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

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

## #38 — Jeppeweb, 2008-02-14T13:02Z

Förstår inte vad du menar..

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

## #39 — voigtann1, 2008-02-14T13:26Z

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

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

## #40 — Jeppeweb, 2008-02-14T13:36Z

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

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/169039-varför-byter-den-namn/page2  
Föregående sida: https://www.webforum.nu/amne/asp/169039-varför-byter-den-namn.md  
Nästa sida: https://www.webforum.nu/amne/asp/169039-varför-byter-den-namn/page3.md