Function YesNoDropDown(strName, strSelected)
Dim i
Dim strSelectedString
Dim YesNoName
Dim YesNoCode
YesNoName = Array("Yes","No")
YesNoCode = Array("Y","N")
YesNoDropDown = "<select name='" & strName & "'>" & vbcrlf
YesNoDropDown = YesNoDropDown & "<option>" & "--" & "</option>"
For i = 0 To UBound(YesNoName)
If strSelected = YesNoCode(i) Then
strSelectedString = "Selected"
Else
strSelectedString = ""
End If
YesNoDropDown = YesNoDropDown & "<option value='" & YesNoCode(i) & "' " & _
strSelectedString & " >" & YesNoName(i) & "</option>" & vbcrlf
Next
YesNoDropDown = YesNoDropDown & "</select>" & vbcrlf
End Function