'----------------------------------------------------------- ---------

' FGETVAR: Returns a varible from a Request object and initializes it if its empty

' Call FGetVar(variable name,default,type) type =s for string; n for number

 '----------------------------------------------------------- ---------

Public Function FGetVar(var,thedefault,thetype)

     ' Perform IDC style DefaultParameter processing.

     If IsEmpty(Request(var)) Or Request(var) = "" or Request(var) = " " Then

     'The field is empty.  Handle the empty field condition

            If thetype = "s" Then

                 MyVar  = (CStr(thedefault))

            Else

                 MyVar  = thedefault

            End IF

     Else

     'The field is not empty.  Process the value

     'First handle error conditions

     If IsNumeric(Request(var)) = False and thetype = "n" Then

            Response.write ("Expecting a number instead of a string for: " & var)

            Response.end

     End If

     

     If thetype = "n" Then

            MyVar = ABS(Request(var))

     Else

            MyVar = Request(var)

            'Replace single quote with two single quotes

            MyVar = Replace(MyVar,"'","''")

     End If



     End If

            'response.write (thedefault)

            FGetVar = My

End Function