SkarreMedlem sedan apr. 20012 427 inläggTrådstart#1 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?
SkarreMedlem sedan apr. 20012 427 inlägg Jag har även testat:
If CInt(intDay) = CInt(Day(Date)) Then
@ndersMedlem sedan juni 200032 967 inläggJag 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,
