DBNull Parser for VBScript

Function ParseDBNull(objVal,strDataType)

         If ISNull(objVal) = True Then

               Select Case  lcase(strDataType)

                           Case “string”,”datetime”

                                       ParseDBNull = “”

                          Case “numeric”

                                    ParseDBNull = 0

                         Case “boolean”

                                    ParseDBNull = False

                         Case Else

                                     ParseDBNull = “”

                    End Select

             Else

                      ParseDBNull = objVal

              End If

End Function

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s