bobbybrown69
Programmer
Any idea why I can get the Response.Write to display the number 2147 but when I uncomment this code:
'If 2491 = rsTemp2("EmployeeID" Then
and use this code:
If lHelpDeskEmployees = rsTemp2("EmployeeID" Then
I can't get the proper value to be selected in the dropdown box. I am using the 2491 to test it but the value could be different if the user chooses another option. The variable lHelpDeskEmployees value is 2491 when I do a Response.Write and the value 2491 is a value in the dropdown box and in the Querystring. I have also tried Request("Employees" as well as Request.Form("Employees"
I have been playing with this for hours. Any ideas what I am doing wrong?
Thanks.
------------------------------------------------------
<select name="Employees" id="Employees" size="1">
<option value="0" selected> </option>
<%
Dim rsTemp2, lHelpDeskEmployees
lHelpDeskEmployees = Request.QueryString("Employees"
Set rsTemp2 = dbCoastal.Execute("SelectHelpDeskEmployees", , 4)
Do While Not rsTemp2.EOF
If lHelpDeskEmployees = rsTemp2("EmployeeID" Then Response.Write("<option SELECTED value=" & rsTemp2("EmployeeID" & ">" & rsTemp2("NickName" & " " & rsTemp2("LastName" & "</option>" & vbCrLf)
Else
Response.Write("<option value=" & rsTemp2("EmployeeID" & ">" & rsTemp2("NickName" & " " & rsTemp2("LastName" & "</option>" & vbCrLf)
End If
'If 2491 = rsTemp2("EmployeeID" Then
'Response.Write("<option SELECTED value=" & rsTemp2("EmployeeID" & ">" & rsTemp2("NickName" & " " & rsTemp2("LastName" & "</option>" & vbCrLf)
'End If
rsTemp2.MoveNext
Loop
rsTemp2.Close
Set rsTemp2 = Nothing
%>
</select>
<% Response.Write(lHelpDeskEmployees) %>
'If 2491 = rsTemp2("EmployeeID" Then
and use this code:
If lHelpDeskEmployees = rsTemp2("EmployeeID" Then
I can't get the proper value to be selected in the dropdown box. I am using the 2491 to test it but the value could be different if the user chooses another option. The variable lHelpDeskEmployees value is 2491 when I do a Response.Write and the value 2491 is a value in the dropdown box and in the Querystring. I have also tried Request("Employees" as well as Request.Form("Employees"
I have been playing with this for hours. Any ideas what I am doing wrong?
Thanks.
------------------------------------------------------
<select name="Employees" id="Employees" size="1">
<option value="0" selected> </option>
<%
Dim rsTemp2, lHelpDeskEmployees
lHelpDeskEmployees = Request.QueryString("Employees"
Set rsTemp2 = dbCoastal.Execute("SelectHelpDeskEmployees", , 4)
Do While Not rsTemp2.EOF
If lHelpDeskEmployees = rsTemp2("EmployeeID" Then Response.Write("<option SELECTED value=" & rsTemp2("EmployeeID" & ">" & rsTemp2("NickName" & " " & rsTemp2("LastName" & "</option>" & vbCrLf)
Else
Response.Write("<option value=" & rsTemp2("EmployeeID" & ">" & rsTemp2("NickName" & " " & rsTemp2("LastName" & "</option>" & vbCrLf)
End If
'If 2491 = rsTemp2("EmployeeID" Then
'Response.Write("<option SELECTED value=" & rsTemp2("EmployeeID" & ">" & rsTemp2("NickName" & " " & rsTemp2("LastName" & "</option>" & vbCrLf)
'End If
rsTemp2.MoveNext
Loop
rsTemp2.Close
Set rsTemp2 = Nothing
%>
</select>
<% Response.Write(lHelpDeskEmployees) %>