syntaxfel....varför?

hej.
försöker skapa en funktion som skall kolla vilken dag det är.. om det är lördag fredag etc...

function checkday(Dag)
	Select Case Dag
		Case 1: Dag = "Söndagen" & " den " & Day(intDatum) & "/" & Month(intDatum) 
		Case 2: Dag = "Måndagen" & " den " & Day(intDatum) & "/" & Month(intDatum) 
		Case 3: Dag = "Tisdagen" & " den " & Day(intDatum) & "/" & Month(intDatum) 
		Case 4: Dag = "Onsdagen" & " den " & Day(intDatum) & "/" & Month(intDatum) 
		Case 5: Dag = "Torsdagen"& " den " & Day(intDatum) & "/" & Month(intDatum)
		Case 6: Dag = "Fredagen" & " den " & Day(intDatum) & "/" & Month(intDatum) 
		Case 7: Dag = "Lördagen" & " den " & Day(intDatum) & "/" & Month(intDatum) 
	End Select
	Dag = cstr(trim(Dag))
end function

response.write checkday(WeekDay(intDatum))

men jag får syntaxfel på första raden....
nån som har nån ide?

/ Mikul

Hur ser resten av koden ut? Har du funktionen inuti en loop eller i en annan funktion?

Prova att byta variabelnamn på den variabel du skapar för att returnera. Den har nu samma namn som den variabel du kör select case på, det vet jag inte om det är så himla lyckat.

Mvh,

Så här ser resten ut:

<%
if request("month") <> "" then 
manad = request("month")
else
manad = month(date)
if len(manad) = 1 then 
manad = "0"& manad
end if
end if
if request("ar") <> "" then
ar = request("ar")
else
ar = year(date)
end if

Datum = ar & "-" & manad & "-01"  
intDatum = Datum
intManad = Month(intDatum) 

	Do until intManad = Month(dateadd("m",1,Datum))
		If Day(intDatum) = Day(date) Then
			farg1 = "<font color=""red"">"
			farg2 = "</font>"
		Else
			farg1 = ""
			farg2 = ""
		End If

function checkDay(strDag)
		dag = strDag
		Select Case Dag
			Case 1: Dag = "Söndagen" & " den " & Day(intDatum) & "/" & Month(intDatum) 
			Case 2: Dag = "Måndagen" & " den " & Day(intDatum) & "/" & Month(intDatum) 
			Case 3: Dag = "Tisdagen" & " den " & Day(intDatum) & "/" & Month(intDatum) 
			Case 4: Dag = "Onsdagen" & " den " & Day(intDatum) & "/" & Month(intDatum) 
			Case 5: Dag = "Torsdagen"& " den " & Day(intDatum) & "/" & Month(intDatum)
			Case 6: Dag = "Fredagen" & " den " & Day(intDatum) & "/" & Month(intDatum) 
			Case 7: Dag = "Lördagen" & " den " & Day(intDatum) & "/" & Month(intDatum) 
		End Select
		strdag = cstr(trim(Dag))
		checkDay = strDag
	End function
		
		Response.Write checkday(WeekDay(intDatum)) &"<br>"
		intDatum = DateAdd("d", 1, intDatum)
		intManad = Month(intDatum)

		if response.isclientconnected then 
			response.flush
		else 
			response.end 
		end if
	Loop

%>

/ Mikul

Lägg koden för funktionen utanför din do loop. Det är bra att samla funktioner och sub antingen först eller sist i källkodsfilen.

Du kan inte definiera funktioner i loopar.

Tack så mycket...

tack så mycket...
nu har jag lärt mig nåt nytt...
tack båda två!
:stud :bire :birp :x

/ Mikul