<code>
Vad är det för fel på denna?

response.write "<option value='"& Dateadd("m", manad, Eventdate)&"'>"& UCase(left(MonthName(Month(Dateadd("m", manad, Eventdate))),1)) & right(MonthName(Month(Dateadd("m", manad, Eventdate))), len(MonthName(Month(Dateadd("m", manad, Eventdate)))-1))&"</option>"

Får detta fel:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: '[string: "januari"]'

Det ser riktigt ut om manad innehåller ett nummer och Eventdate innehåller ett datum.

/Johan

Är det detta du vill ha?

<code>
<SELECT id=select1 name=select1>
<%
Eventdate = Date()
For manad = 1 To 12
dteDatum = Dateadd("m", manad, Eventdate)
strMonth = MonthName(Month(dteDatum))
strMonthName = UCase(Left(strMonth,1)) & Right(strMonth,Len(strMonth)-1)
Response.Write "<option value='"& dteDatum &"'>" & strMonthName & "</option>"
Next
%>
</SELECT>
</code>

/Janne

Ja och nu har jag hittat problemet, jag hade -1 ett snäpp fel.