<%
Dim objFreeField
Set objFreeField = New Cls_FreeField

Class Cls_FreeField

    Public Sub GetFieldVal(ByVal ChannelId, ByVal ListInfo)
        Dim oRs, FormFieldName, FieldType
        Set oRs = Easp.db.GR(TablePrefix & "FreeField:Alias,FieldName,FieldType,IsNotNull,FieldNull", " ChannelId = "& ChannelId &" ", "")
        If Not oRs.EOF Then
            Do While Not oRs.EOF
                FormFieldName = ""
                FieldType = CmsFun.ChkNumEric(oRs("FieldType"))
                Select Case FieldType
                    Case 3, 4
                        FormFieldName = Replace(Easp.Post(""& oRs("FieldName") &":s") & "", ", ", ",")
                    Case Else
                        FormFieldName = Easp.Post(""& oRs("FieldName") &":s")
                End Select
                If CmsFun.ChkNumEric(oRs("IsNotNull")) = 1 Then
                    If Easp.IsN(FormFieldName) Then
                        Easp.WE oRs("FieldNull")
                    End If
                End If
                ListInfo(Trim(oRs("FieldName"))) = FormFieldName
                oRs.MoveNext
            Loop
        End If
        Easp.db.C oRs
    End Sub

End Class
%>