date selection in ASP

[preetilak]

I am developing a site on ASP which does not support JavaScript. Is there a way to have dropdown date in the following format....

<select....for day> <select for Month> <select for year>

in ASP. The select values must be in numbers.

[buntine]

Yes. Its not ASP or JavaScript, though. It is HTML. ;)

You have to do is generate the combo boxes with a simple loop. I would recommend you write a little sub-routine to handle this.

Public Sub GenerateNNumericSelectBox(strName, intStart, intEnd)
Dim i

If Not IsNumeric(intStart) Or Not IsNumeric(intEnd) Then
Exit Sub
End If

With Response
.Write "<select name=""" & strName & """>" & VbCrLf

For i = intStart To intEnd
.Write "<option value=""" & i & """>" & i & "</option>" & VbCrLf
Next

.Write "</select>" & VbCrLf
End With
End Sub

Response.Write GenerateNumericSelectBox("cboDay", 1, 31)
Response.Write GenerateNumericSelectBox("cboMonth", 1, 12)
Response.Write GenerateNumericSelectBox("cboYear", 2000, 2030)

Regards.

[preetilak]

thanks,

But I encounter the following error....

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'GenerateNumericSelectBox'

/i_mode/date.asp, line 22

[buntine]

Ok. Silly mistake on my behalf.

Try this:

GenerateNumericSelectBox("cboDay", 1, 31)
GenerateNumericSelectBox("cboMonth", 1, 12)
GenerateNumericSelectBox("cboYear", 2000, 2030)

Regards.

[preetilak]

I see this error when I use the corrected code...

Microsoft VBScript compilation error '800a0414'

Cannot use parentheses when calling a Sub

/i_mode/date.asp, line 22

GenerateNumericSelectBox("cboDay", 1, 31)
-----------------------------------------^

[buntine]

Alright. Another mistake. This is what happens when you just write code into the form. :p Just remove the parantheses.

GenerateNumericSelectBox "cboDay", 1, 31
GenerateNumericSelectBox "cboMonth", 1, 12
GenerateNumericSelectBox "cboYear", 2000, 2030

Regards.

[preetilak]

Thanks.

[buntine]

Some closure would be appreciated. Is this working for you? Would you like to know exactly how it works (for educational purposes)?

Regards.

[preetilak]

yes sure. The code worked. I would like to know why it did not work with the '( )'. Normally, when we write a function, we pass the params like fnName(param1,....). Why not so with this?

[buntine]

Because it was not a function, but a sub-routine. Functions return a value, sub-routines do not. ;)

Truthfully, I do not know the official reason. VBScript just does not like it when we use parentheses on sub-routines with more than one paramater.

Google should warrant the actual reason, though.

Regards.