Welcome to Bob Erhart's Internet Site
HOME
ADD MESSAGE
PAGE/EMAIL
TAKE A DEMO SURVEY
SEE DEMO SURVEY RESULTS
VBA DEMO
BACK TO SOURCE CODE LISTING
<% '================================================================================ ' ' '================================================================================ Private Function HTMLFieldText(strName, strTargetField, strQuestion, intCols, strDefault) If IsNumeric(intCols) = False Then intCols = Len(strTargetField) If intCols < 1 Then intCols = Len(strTargetField) strTargetField = strName & "_" & strTargetField %>
<% = strQuestion %>
>
<% End Function %>
© Copyright 1999, 2013, R.G. Erhart, Erhart Consulting LLC, Rochester New York