<% If Len(request("opt")) > 0 then showOpt = request("opt") showField = request("fld") rs.CursorType = 2 rs.Open "SELECT * FROM " & tablPfx & "OptTypes WHERE optionName='" & showOpt & "';", strConn If NOT rs.EOF then optValues = rs(2) allowCustom = rs(3) customName = rs(4) isHidden = rs(6) isSearchOnly = rs(8) If isSearchOnly then Response.Write showField & ":  -Number Only (drop-down appears on ""Search"" form only)" Else If isHidden = 1 then isHiddenFlag = " *" valArray = Split(optValues, sf) For I = 0 to Ubound(valArray) strValues = strValues & "" & Replace(valArray(I), sg, "") & "" Next If allowCustom = 1 then strCustom = "  " & customName & "  " End If Response.Write showField & ": " & strValues & "" & isHiddenFlag & strCustom End If Else: Response.Write showField & ": " End If rs.close Else: Response.Write "Not Available (Select an option, press an ""eye"" to preview...)" End If %>