Hard-coded Hell!

Sub WritePosition()

If fPositionID = "0" Then

Response.Write "<OPTION VALUE='0' SELECTED>Select Type </OPTION>"

Response.Write "<OPTION VALUE='F/T'>Full Time</OPTION>"

Response.Write "<OPTION VALUE='P/T'>Part Time</OPTION>"

Response.Write "<OPTION VALUE='Temp'>Agency Hires</OPTION>"

ElseIf fPositionID = "F/T" Then

Response.Write "<OPTION VALUE='0'>Select Type </OPTION>"

Response.Write "<OPTION VALUE='F/T' SELECTED>Full Time</OPTION>"

Response.Write "<OPTION VALUE='P/T'>Part Time</OPTION>"

Response.Write "<OPTION VALUE='Temp'>Agency Hires</OPTION>"

ElseIf fPositionID = "P/T" Then

Response.Write "<OPTION VALUE='0'>Select Type </OPTION>"

Response.Write "<OPTION VALUE='F/T'>Full Time</OPTION>"

Response.Write "<OPTION VALUE='P/T'SELECTED>Part Time</OPTION>"

Response.Write "<OPTION VALUE='Temp'>Agency Hires</OPTION>"

Else

Response.Write "<OPTION VALUE='0'>Select Type </OPTION>"

Response.Write "<OPTION VALUE='F/T'>Full Time</OPTION>"

Response.Write "<OPTION VALUE='P/T'>Part Time</OPTION>"

Response.Write "<OPTION VALUE='Temp' SELECTED>Agency Hires</OPTION>"

End If

End Sub