plocka ut månad med query

Byt ut

request.querystring("menu1")

mot

request.form("menu1")

så bör det funka.

det hjälper inte.. jag har ju "länkarna" så här

kalender_val.asp?menu1=December

[red]
if Cstring(request.querystring("menu1")) = "Maj" Then
aktman = Maj[/red]

Sen skulle man kanske lagt allt i en select case ;)

mv icaaq

Är Maj en variabel? Annars måste det vara klammrar ("") runt ordet. Och varför har du två If-starter men bara en end if?

ja får det inte att funka ändå!1! vad kan vara fel?

OIchhur gör jag en select case!

Om jag bara öppnar sidan utan ett värde för "menu1" så får jag att den saknar en End If på samma rad som jag har

<%=aktman%>

Lägge jag in ett värde för "menu1" så vill den bara inte visa sidan

Bengt

har bytt namn från "menu1" till "man" så koden ser ut så här

<%
if Cstring(request.querystring("man")) = "" Then
aktman = Maj
Else if Cstring(request.querystring("man")) = "Maj" Then
aktman = Maj
Else if Cstring(request.querystring("man")) = "Juni" Then
aktman = Juni 
Else if Cstring(request.querystring("man")) = "Juli" Then
aktman = Juli 
Else if Cstring(request.querystring("man")) = "Augusti" Then
aktman = Augusti
Else if Cstring(request.querystring("man")) = "September" Then
aktman = September
Else if Cstring(request.querystring("man")) = "Oktober" Then
aktman = Oktober
Else if Cstring(request.querystring("man")) = "November" Then
aktman = November
Else if Cstring(request.querystring("man")) = "December" Then
aktman = December
End If
%>

Det känns lite overkill att göra sådär.

[red]
If CString (Request.QueryString("man")) = "" Then
     aktman = "Maj"
Else
     aktman = CString(request.QueryString("man"))
End If
[/red]

mv icaaq

Det där med Cstring funkar det inte men utan det är det ok

<%
If Request.QueryString("man") = "" Then
     aktman = "Maj"
Else
     aktman = request.QueryString("man")
End If
%>

Hur skriver jag för att få aktuell månad istället för "Maj"?

Först och främst tycker jag du ska representera månaden med dess tal. (Jan = 0, Feb = 1, osv) Datorer blir mycket enklare att programmera om man gör det på deras språk.

Men om du vill ha på ditt sätt skulle jag nog gjort såhär.

select case request.querystring("man")
case "Januari", "Februari", "Mars", "April", "Maj", "Övriga månader samma sak"
   aktman = request.querystring("man")
case else
   aktman = "Du har inte valt någon månad!"
end select

Om du däremot skulle representera det som tal blir det lite vackrare tycker jag i alla fall.

dim sMon
sMon = request.querystring("man")
if isnumeric(sMon) then
   if sMon >= 0 and sMon < 13 then
      aktman = sMon
   else
      aktman = "n/a"
   end if
end if

OK!

Men jag är ute efter att när man klickar på länken Kalender så ska man automatiskt hamna på den månad det är just nu

Det där med Cstring funkar det inte men utan det är det ok

Det är för att det ska stå CStr()
Får väl skylla på att det var ett tag sen jag skrev VBScript ;)

Hur skriver jag för att få aktuell månad istället för "Maj"?

[red]
<%
If Request.QueryString("man") = "" Then
     aktman = "Maj"
Else
     aktman = MonthName(DatePart("M", Now()))
End If
%>
[/red]

kanske ;)

mv icaaq

tack