<% Private Function GetInput(Variable) GetInput = Trim(Request.Form(Variable)) If Trim(Request.QueryString(Variable)) <> "" Then GetInput = Trim(Request.QueryString(Variable)) End If End Function Private Function GetVariable(Variable) If IsEmpty(Request.Form(Variable)) Then If IsEmpty(Request.QueryString(Variable)) Then GetVariable = Null Else GetVariable = Trim(Request.QueryString(Variable)) End If Else GetVariable = Trim(Request.Form(Variable)) End If End Function Private Function NonBreakingSpace(Value) ' Change all spaces not non-breaking spaces in "Value" For LCV = 1 to Len(Value) Select Case Mid(Value, LCV, 1) Case " " NonBreakingSpace = NonBreakingSpace & " " Case Else NonBreakingSpace = NonBreakingSpace & Mid(Value, LCV, 1) End Select Next End Function Private Sub Error(Message) Response.Write("

Error: " & Message & "

") End Sub Private Function LoggedIn() If Session("UserID") > 0 Then LoggedIn = True Else LoggedIn = False End If End Function %>