Populate Drop Down

[SweetLou]

I'm trying to populate a dropdown list with a default selected current year. I was using:

Code: Select all

<%
yearnow = Right(Year(Date),4)
%>
<select name="Season_Year">
<%
i = "1986"
FOR LoopCtr = 1 to 50
Response.Write "<option value=" & chr(34) & i & chr(34)
IF yearnow = i THEN
Response.Write " selected=" &chr(34) & "selected" & chr(34)
END IF
Response.Write ">" & i & "</option>" &VbCrLf
i = i + 1
NEXT
%>

But this code will not create the selected text in the IF statement. I am assuming that is because yearnow is a date so that the value will be different than when i = 2006. So, I came up with

Code: Select all

yearnow = dateadd("yyyy",0,date())
%>
<select name="Season_Year">
<%
n = -20
i = dateadd("yyyy",n,date())
FOR LoopCtr = 1 to 100
Response.Write "<option value=" & chr(34) & Right(i,4) & chr(34)
IF yearnow = i THEN
Response.Write " selected=" &chr(34) & "selected" & chr(34)
END IF
Response.Write ">" & Right(i,4) & "</option>" &VbCrLf
n = n + 1
i = dateadd("yyyy",+n,date())
NEXT

This seems to work, but I would rather stay away from the date format for the values, if that is what is happening. Does anyone know of a better way of doing this?

[jakyra]

I'm not sure why you used

Code: Select all

yearnow = Right(Year(Date),4)

Right is a string function and will convert your value to a string thus you are doing
2004="2004" which is false

I would just use

Code: Select all

 yearnow = Year(Date)

Does this somehow create problems for you?

[SweetLou]

Right, thanks. I wasn't thinking that using Right would make it a string. Silly me.

[SweetLou]

That code seems to be working well for me, thanks again. I do have another problem though. I am sending the form to the same page for the action. If there is a problem, like they forgot to enter required information, then the form will be populated with the information that they entered with a note about what to change. I want the drop down to keep the information that they entered. I tried

Code: Select all

<form action="Testfor.asp" method="post">
<select name="frmDay">
<%
a = Request.Form("frmDay")
i = 1
FOR LoopCtr = 1 to 31
Response.Write "<option value=" & chr(34) & i & chr(34)
IF a = i  THEN
Response.Write "selected=" &chr(34) & "selected" & chr(34)
END IF
Response.Write ">" & i & "</option>" &VbCrLf
 
i = i + 1
NEXT
%>
 
<input type="submit" name="Submit" value="Submit">
</form>

I can't seem to get i to equal a so that the "selected='selected'" part shows up. I have tried a couple of different ways, but no matter what I tried, I couldn't get it to work. Any ideas?

[jakyra]

it's the same kind of problem. Everything from the request scope is a string so try

Code: Select all

if isnumeric(request.form("frmDay")) then a=cint(request.form("frmDay"))

it's good practice to test the isnumeric even though it's coming from you..

[SweetLou]

Thanks again. I thought that maybe the variable was being changed to a different type, but I couldn't find anything about that or how to change it.