Vad händer med åäö?

Funkar det kanske bättre såhär?

function Bild_Bokstav(strCompleteSentence)

For i = 1 to len(strCompleteSentence)
     strLetter = Mid(strCompleteSentence, i, 1)

     If Asc(LCase(strLetter)) = Asc(strLetter) Then

		if strLetter = " " then
		Bild_Bokstav = Bild_Bokstav & " "
		else
		Bild_Bokstav = Bild_Bokstav & "<img src=""" & "Alfabet-s/" & Chr(Asc(strLetter)) & ".gif" & """>"
		end if
       
     Else

		Bild_Bokstav = Bild_Bokstav & "<img src=""" & "Alfabet-l/" & Chr(Asc(strLetter)) & ".gif" & """>"

     End If

Next
end function

Tack, men det funka inte.. jag vet inte vad dom har gjort på servern, det är ett företag som min kompis jobbar hos..

Jag testa att köra en test fil med detta innehåll: (skulle ha gjort det tidigare, sorry)

<%
pelle = öar finns här
response.write pelle
%>

<br><br>
Daniel testar snö och änglar

och får ut detta:

Kompileringsfel i Microsoft VBScript fel '800a0408' 

Ogiltigt tecken 

/test.asp, line 2 

pelle = öar finns här
--------^

så det måste vara fel hos dem..

Nope...

<%
pelle = "öar finns här"
response.write pelle
%>

Du måste omsluta dina strängar med citationstecken...

Oj då! :)
Ok, nu funka det.. kom också på varför det inte funkar. Nu får man be om ursäkt när det var en helt annan sak.. :(

Jag hade sparat filen i UTF-8 format för att kunna använda japanska tecken i filen och det funkar faktist fint på min XP maskin men deras servrar supportar väl inte detta format antar jag..

Ska testa vidare.. UTF8 var ingen bra lösning..

kanske för att det internet företaget inte har japanska support installerat på deras servrar det inte funkar..

Det borde inte vara något problem att använda UTF-8 om du anger att det är det du använder: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iisref/htm/ref_vbom_resopch.asp

Jag kom på vad som är fel nu, men jag vet inte riktigt hur jag ska åtgärda det..

Jag har en funktion som ser ut så här:

function SweCorrectDay(Dag)
    Select Case Dag
    Case "1" SweCorrectDay = "Söndag"
    Case "2" SweCorrectDay = "Måndag"
    Case "3" SweCorrectDay = "Tisdag"
    Case "4" SweCorrectDay = "Onsdag"
    Case "5" SweCorrectDay = "Torsdag"
    Case "6" SweCorrectDay = "Fredag"
    Case "7" SweCorrectDay = "Lördag"	
    End Select
end function

och den är kopplad till detta:

SweTid = SweCorrectDay(Weekday(Date)) & " " & Day(Date) & ", " & FormatDateTime(Time, 4)
SweTid = Replace(SweTid, ":", "+")

som hämtar in datumet bara.. och sen använder jag text till bild scriptet som jag posta först för att få ut det till små bilder, dvs.

function Bild_Bokstav(strCompleteSentence)
For i = 1 to len(strCompleteSentence)
     strLetter = Mid(strCompleteSentence, i, 1)

     If Asc(LCase(strLetter)) = Asc(strLetter) Then

		if strLetter = " " then
		Bild_Bokstav = Bild_Bokstav & " "
		else
		Bild_Bokstav = Bild_Bokstav & "<img src=""" & "Alfabet-s/" & strLetter & ".gif" & """>"
		end if
     Else
		Bild_Bokstav = Bild_Bokstav & "<img src=""" & "Alfabet-l/" & strLetter & ".gif" & """>"
     End If

Next
end function

Om jag tar bort å'et i "Måndag" så funkar allt perfekt och det blir inga åäö fel på sidan! men om jag låter å'et stå kvar så blir alla ÅÄÖ på hela sidan bara krummelurer!

Nån som vet varför?

Skriver ut bilderna så här: <%=Bild_Bokstav(SweTid)%>

Har du testat med att ersätta åäö med följande?
&Aring; = Å
&aring; = å
&Auml; = Ä
&auml; = ä
&Ouml; = Ö
&ouml; = ö

Tack!
Fast om jag använder Text -> Bild funktionen så funkar det inte :(

Jag har testat o lekt med Asc() och Chr() ett tag nu utan resultat..

Nån som vet vad som kan göra att det blir fel i koden jag skrev i medelandet före den här..? Filen är sparad i UTF-8 format.