Solved

ASP - Get Current Month, Current Year number then navigate between months

Posted on 2004-09-14
8
717 Views
Last Modified: 2006-11-17
Hello,

I have a Web page called "month.asp".  I am wanting to list the current month and Year (i.e Septemeber, 2004).  Then I will want to write it.  Then, next to the month name will be two graphic arrows that will allow a user to navigate to the previous month or to the next month while staying on "month.asp".

This is not a calendar.  I am just looking to navigate through the months.

Can you please help with a code example?

Thank you in advance.
0
Comment
Question by:rudyflyer
  • 5
  • 3
8 Comments
 
LVL 19

Expert Comment

by:peh803
ID: 12054890
Probably not the prettiest example available, but it works -- I know that for sure..
regards,
peh803
<%
Dim sDate
Dim sCurrMonth
Dim sForward
Dim sBack
Dim sBackMonthVal, sForwardMonthVal
sBack = ""
sForward = ""
sDisplayMonth = ""
if len(trim(request("forward")))>0 then
  sForward = request("forward")
end if

if len(trim(request("back")))>0 then
  sBack = request("back")
end if

sDate = date()
sCurrMonth = Month(date())

if len(request("currmonth"))>0 then
  sCurrMonth = request("currmonth")
end if

if sBack<>"" then
'  sDisplayMonth = sCurrMonth-1
end if

if sForward<>"" then
'  sDisplayMonth = sCurrMonth+1
end if

if sDisplayMonth="" then
  sDisplayMonth = sCurrMonth
end if

if sDisplayMonth<1 then
  sDisplayMonth=12
end if

if sDisplayMonth>12 then
  sDisplayMonth=1
end if

sBackMonthVal = sCurrMonth-1
sForwardMonthVal = sCurrMonth+1
if sBackMonthVal<1 then sBackMonthVal=12

if sForwardMonthVal>12 then sForwardMonthVal=1
%>
<a href="month.asp?back=1&currmonth=<%=sBackMonthVal%>"> <-- </a><%=MonthName(sDisplayMonth)%><a href="month.asp?forward=1&currmonth=<%=sForwardMonthVal%>"> --> </a>
0
 
LVL 19

Expert Comment

by:peh803
ID: 12054927
much cleaner version:

<%
Dim sDate
Dim sCurrMonth
Dim sBackMonthVal
Dim sForwardMonthVal

sDisplayMonth = ""
sDate         = date()
sCurrMonth    = Month(date())

if len(request("currmonth"))>0 then
  sCurrMonth = request("currmonth")
end if

if sDisplayMonth="" then
  sDisplayMonth = sCurrMonth
end if

if sDisplayMonth<1 then
  sDisplayMonth=12
end if

if sDisplayMonth>12 then
  sDisplayMonth=1
end if

sBackMonthVal = sCurrMonth-1
sForwardMonthVal = sCurrMonth+1
if sBackMonthVal<1 then sBackMonthVal=12
if sForwardMonthVal>12 then sForwardMonthVal=1

%>
<a href="month.asp?currmonth=<%=sBackMonthVal%>"> <-- </a><%=MonthName(sDisplayMonth)%><a href="month.asp?currmonth=<%=sForwardMonthVal%>"> --> </a>
0
 

Author Comment

by:rudyflyer
ID: 12055260
peh803,

This is excellent.  One other thing if you don't mind.  Is it possible to also get the year?  So, when a user navigates from month to month a parameter is passed indicating the year.  Then, when to gets to January the year changes to the next year.


THanks a lot.
0
 
LVL 19

Expert Comment

by:peh803
ID: 12055594
hm, okay, I should be able to include that (although it wasn't part of the original specifications....).

Give me a minute.  

Also, I'd be glad to accept more points for the additional question (2 for 1) :)

Glad you're happy so far,
peh803
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

Author Comment

by:rudyflyer
ID: 12055665
peh803,

Opps.  I meant to increase the points.  Sorry about that.  I doubled it to 250.
0
 
LVL 19

Accepted Solution

by:
peh803 earned 250 total points
ID: 12055703
Thanks for the points increase.  Here's your solution :)

Enjoy!!

peh803

<%
Dim sDate
Dim sCurrMonth
Dim sBackMonthVal
Dim sForwardMonthVal
Dim sCurrentYear
Dim sBackYear
Dim sForwardYear
sDisplayMonth = ""
sDate         = date()
sCurrMonth    = Month(date())
sCurrentYear  = Year(date())

if len(request("curryear"))>0 then
  sCurrentYear = request("curryear")
end if

sBackYear     = sCurrentYear
sForwardYear  = sCurrentYear

if len(request("currmonth"))>0 then
  sCurrMonth = request("currmonth")
end if

if sDisplayMonth="" then
  sDisplayMonth = sCurrMonth
end if

if sDisplayMonth<1 then
  sDisplayMonth=12
end if

if sDisplayMonth>12 then
  sDisplayMonth=1
end if

sBackMonthVal = sCurrMonth-1
sForwardMonthVal = sCurrMonth+1

if sBackMonthVal<1 then
  sBackMonthVal=12
  sBackYear = sCurrentYear - 1
end if

if sForwardMonthVal>12 then
  sForwardMonthVal=1
  sForwardYear = sCurrentYear + 1
end if

%>
<a href="month.asp?currmonth=<%=sBackMonthVal%>&curryear=<%=sBackYear%>"> <-- </a><%=MonthName(sDisplayMonth)%>, <%=sCurrentYear%><a href="month.asp?currmonth=<%=sForwardMonthVal%>&curryear=<%=sForwardYear%>"> --> </a>
0
 

Author Comment

by:rudyflyer
ID: 12056024
peh803,

Thanks a lot for the speedy replys and the help.  Much appreciated.
0
 
LVL 19

Expert Comment

by:peh803
ID: 12056677
no problem at all...always glad to help.

Take care, and look me up for future ?'s!

peh803
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
IIS POST request being ignored 4 53
classic asp checkbox uncheck and check 2 58
API works for 1 result, need to make it many 30 66
wordpress display sub menu only when click 12 23
I have helped a lot of people on EE with their coding sources and have enjoyed near about every minute of it. Sometimes it can get a little tedious but it is always a challenge and the one thing that I always say is:  The Exchange of information …
I would like to start this tip/trick by saying Thank You, to all who said that this could not be done, as it forced me to make sure that it could be accomplished. :) To start, I want to make sure everyone understands the importance of utilizing p…
Both in life and business – not all partnerships are created equal. As the demand for cloud services increases, so do the number of self-proclaimed cloud partners. Asking the right questions up front in the partnership, will enable both parties …
As a trusted technology advisor to your customers you are likely getting the daily question of, ‘should I put this in the cloud?’ As customer demands for cloud services increases, companies will see a shift from traditional buying patterns to new…

911 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

23 Experts available now in Live!

Get 1:1 Help Now