Easy function for numeric or date drop down lists asp

ASP Free Forums Sponsor:

January 15th, 2007, 05:11 PM

urbanmike

Contributing User

Join Date: Jan 2007

Location: Sydney, Australia

Posts: 32

Time spent in forums: 13 h 49 m 44 sec
Reputation Power: 3

Easy function for numeric or date drop down lists asp

Below is an example of how to quickly construct a day/month/year date dropdown.

Te function will automatically decrease the numbers if the BeginCount > EndCount

Code:

<%
Sub DropDownDate(BeginCount,EndCount)
		 dim iCount
		if BeginCount > EndCount then
		iCount = BeginCount + 1
		 EndCount = cint(EndCount)
			While iCount >= EndCount
			%>
			<option value="<%=iCount%>"><%=iCount%></option>
			<%
			iCount = iCount - 1
		Wend
		else
		 iCount = BeginCount - 1
		 EndCount = cint(EndCount)
			While iCount <= EndCount
			%>
			<option value="<%=iCount%>"><%=iCount%></option>
			<%
			iCount = iCount + 1
		Wend
		end if
end sub


'=========================================
 'Day
'=========================================
response.write("<select name=""""day"""">")
response.write("<option value="""""""">Select day</option")
Call DropDownDate(1,31)
response.write("</select>")

'=========================================
 'Month
'=========================================
response.write("<select name=""""month"""">")
response.write("<option value="""""""">Select month</option")
Call DropDownDate(1,12)
response.write("</select>")

'=========================================
 'Year
'=========================================
response.write("<select name=""""year"""">")
response.write("<option value="""""""">Select year</option")
Call DropDownDate(2006,1943)
response.write("</select>")
%>

January 16th, 2007, 06:21 AM

degsy

Contributing User

ASP Free God 2nd Plane (6000 - 6499 posts)

Join Date: Aug 2005

Location: North East, UK

Posts: 6,191

Time spent in forums: 3 Weeks 4 Days 19 h 41 m 52 sec
Reputation Power: 121

You have an HTML error in your code

Code:

response.write("<option value="""""""">Select day</option")

You are missing the closing > from the options

If you add this in you will notice that the script does not work correctly. Looping starts from 0 instead of 1.

Also, you could trim down the coding

e.g.

asp Code:

Original - asp Code

Sub DropDownDate(Interval,BeginCount,EndCount,Indentat  ion)
    i=0 : s=1
    If IsNumeric(Indentation) Then i = CInt(Indentation)
    If BeginCount > EndCount Then s = -1
 
    Response.Write Space(i) & "<select name=""" & Interval & """>" & vbCrlf
    Response.Write Space(i+2) & "<option>Select " & Interval & "</option>" & vbCrlf
    For iCount=BeginCount To EndCount Step s
        Response.Write Space(i+2) & "<option value=""" & iCount & """>" & iCount & "</option>" & vbCrlf
    Next
    Response.Write Space(i) & "</select>" & vbCrlf
End Sub
 
Call DropDownDate("Day",1,31,0)
Call DropDownDate("Month",1,12,0)
Call DropDownDate("Year",2006,1943,0)

__________________
CyberTechHelp

Last edited by degsy : January 16th, 2007 at 06:24 AM.

Viewing: ASP Free Forums > Programming > Code Bank > Easy function for numeric or date drop down lists asp

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump