Type mismatch

Jag får "type mismatch" när jag försöker köra följande kod:

Sub selectDay(intDay)
  If intDay = Day(Date) Then
    Response.Write "selected"
  End If
End Sub

Response.Write  "<select name='datum'>" & _
"<option value='27' " & selectDay(27) & ">27</option>" & _
"<option value='28' " & selectDay(28) & ">28</option>" & _
"</select>"

Kan man inte kalla en sub på detta vis?

------------------
// Skarre

Jag har även testat:

If CInt(intDay) = CInt(Day(Date)) Then

------------------
// Skarre

Jag hade gjort den som en function istället för en sub om du ska använda den på det sättet.

Function selectDay(intDay)
strTmp = ""
If intDay = Day(Date) Then strTmp = "selected"
selectDay = strTmp
End Function

Mvh,

------------------
Don't panic!

Schyrre! :)

------------------
// Skarre