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