---
title: "Ytterligare ett syntaxfel....varför?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38339-ytterligare-ett-syntaxfel-varför"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "mikul"
published: "2002-02-24T21:47:59.000Z"
updated: "2002-02-24T22:42:34.000Z"
replies: 2
views: 165
page: 1
pages: 1
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/38339-ytterligare-ett-syntaxfel-varför"
---

# Ytterligare ett syntaxfel....varför?

## #1 — mikul, 2002-02-24T21:47Z

nu postar jag hela koden direkt...

```
<table border="1" width="24%">
  <tr>
    <td width="100%" colspan="7">&nbsp;</td>
  </tr>
  <tr>

<%
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) 
function checkDay(strDag)
	dag = strDag
	Select Case Dag
		Case 1: Dag = 7'"Söndagen" & " den " & Day(intDatum) & "/" & Month(intDatum) 
		Case 2: Dag = 1'"Måndagen" & " den " & Day(intDatum) & "/" & Month(intDatum) 
		Case 3: Dag = 2'"Tisdagen" & " den " & Day(intDatum) & "/" & Month(intDatum) 
		Case 4: Dag = 3'"Onsdagen" & " den " & Day(intDatum) & "/" & Month(intDatum) 
		Case 5: Dag = 4'"Torsdagen"& " den " & Day(intDatum) & "/" & Month(intDatum)
		Case 6: Dag = 5'"Fredagen" & " den " & Day(intDatum) & "/" & Month(intDatum) 
		Case 7: Dag = 6'"Lördagen" & " den " & Day(intDatum) & "/" & Month(intDatum) 
	End Select
	strdag = cstr(trim(Dag))
	checkDay = strDag
End function

		

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

	if cdate(intDatum) = cdate(Datum) then
	select case weekday(intDatum)
		case 2
		strt = 1 
%>
   		 <td width="14,3%">1</td>
    <%
  		Case 3  
  		start = 2 
  	%>
  		 <td width="14,3%">&nbsp;</td>
   		 <td width="14,3%">1</td>
   <%
  		Case 4   
  		start = 3
  	%>
  		 <td width="14,3%">&nbsp;</td>
		 <td width="14,3%">&nbsp;</td>
		  <td width="14,3%">1</td>
        <%
  		Case 5   
  		start = 4
  	%>    
   		 <td width="14,3%">&nbsp;</td>
   		  <td width="14,3%">&nbsp;</td>
   		   <td width="14,3%">&nbsp;</td>
   		    <td width="14,3%">1</td>
        <%
  		Case 6   
  		start = 5
  	%>
   		 <td width="14,3%">&nbsp;</td>
   		  <td width="14,3%">&nbsp;</td>
   		   <td width="14,3%">&nbsp;</td>
   		    <td width="14,3%">&nbsp;</td>
   		     <td width="14,3%">1</td>

   <%
  		Case 7   
  		start = 6
  	%>
   		 <td width="14,3%">&nbsp;</td>
   		  <td width="14,3%">&nbsp;</td>
      		<td width="14,3%">&nbsp;</td>
       	<td width="14,3%">&nbsp;</td>
       	 <td width="14,3%">&nbsp;</td>
       	  <td width="14,3%">1</td>
        <%
  		Case 1   
  		start = 1
  	%>
  		<td width="14,3%">&nbsp;</td>
   		 <td width="14,3%">&nbsp;</td>
   		  <td width="14,3%">&nbsp;</td>
   		   <td width="14,3%">&nbsp;</td>
   		    <td width="14,3%">&nbsp;</td>
   		     <td width="14,3%">&nbsp;</td>
   		      <td width="14,3%">1</td></tr>
<%
end select
else

select case cint(start)
%>
		case 1
		strt = 2 
%>
    <td width="14,3%"><%	Response.Write farg1 & checkday(WeekDay(intDatum)) & farg2 & "<br>" %></td>
    <%
  		Case 2      ' <---------------------här är det fel... 
  		start = 3 
  	%>
  	 <td width="14,3%">&nbsp;</td>
    <td width="14,3%"><%	Response.Write farg1 & checkday(WeekDay(intDatum)) & farg2 & "<br>" %></td>
   <%
  		Case 3   
  		start = 4
  	%>
  	 <td width="14,3%">&nbsp;</td>
	 <td width="14,3%">&nbsp;</td>
	  <td width="14,3%"><%	Response.Write farg1 & checkday(WeekDay(intDatum)) & farg2 & "<br>" %></td>
        <%
  		Case 4   
  		start = 5
  	%>    
    <td width="14,3%">&nbsp;</td>
     <td width="14,3%">&nbsp;</td>
      <td width="14,3%">&nbsp;</td>
       <td width="14,3%"><%	Response.Write farg1 & checkday(WeekDay(intDatum)) & farg2 & "<br>" %></td>
        <%
  		Case 5   
  		start = 6
  	%>
    <td width="14,3%">&nbsp;</td>
     <td width="14,3%">&nbsp;</td>
      <td width="14,3%">&nbsp;</td>
       <td width="14,3%">&nbsp;</td>
        <td width="14,3%"><%	Response.Write farg1 & checkday(WeekDay(intDatum)) & farg2 & "<br>" %></td>

   <%
  		Case 6   
  		start = 7
  	%>
    <td width="14,3%">&nbsp;</td>
     <td width="14,3%">&nbsp;</td>
      <td width="14,3%">&nbsp;</td>
       <td width="14,3%">&nbsp;</td>
        <td width="14,3%">&nbsp;</td>
         <td width="14,3%"><%	Response.Write farg1 & checkday(WeekDay(intDatum)) & farg2 & "<br>" %></td>
        <%
  		Case 7   
  		start = 1
  	%>
  	<td width="14,3%">&nbsp;</td>
    <td width="14,3%">&nbsp;</td>
     <td width="14,3%">&nbsp;</td>
      <td width="14,3%">&nbsp;</td>
       <td width="14,3%">&nbsp;</td>
        <td width="14,3%">&nbsp;</td>
         <td width="14,3%"><%	Response.Write farg1 & checkday(WeekDay(intDatum)) & farg2 & "<br>" %></td></tr>
<%
end select

end if

		
'Response.Write farg1 & checkday(WeekDay(intDatum)) & farg2 & "<br>" 
		intDatum = DateAdd("d", 1, intDatum)
		intManad = Month(intDatum)

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

%>  

</table>
```

nån som har nån idé?

/ Mikul

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

## #2 — Pace, 2002-02-24T22:38Z

```
select case cint(start)
[red]%>[/red]
		case 1
```

Ta bort.

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

## #3 — mikul, 2002-02-24T22:42Z

tack så mycket...

/ Mikul

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/38339-ytterligare-ett-syntaxfel-varför