Este código no me funciona... la verdad es que no lo entiendo por que no. La BD es access.
 
 
For i = 0 To rsData.Fields.Count - 1
   Response.Write rsData.Fields(i).Name & " is "
   If (rsData.Fields(i).Attributes And adFldIsNullable) Then
      Response.Write "nullable."
   Else
      Response.Write "required."
   End If
   Response.Write "" & vbCrLf
Next  'i 
  
 
