new bie question - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

new bie question

Hi,

I'm trying to validate a form by posting the ASP page to itself. I'm trying to check the length of

textfields, and flag the fields which have zero size, and then change the font color selectively. But

when I try to change the font color I get a 'type mismatch error'.

Here is my code


<%
if Request.Form("Submit")="Submit" then
dim arrError(15)


For i =0 to 15-1
arrError(i)=False
NEXT

dim StrText
Const STRFIELDS=15, NUMFIELDS=4
For i= 0 to STRFIELDS-1
StrText=Cstr(GetFname(i))
If Len(Request.Form(StrText))=0 Then
arrError(i)=TRUE
End If
Next
End If

Function GetFname(x)
Select Case x
Case 0
GetFname="lname"
Case 1
GetFname="fname"
Case 2
GetFname="minitial"
Case 3
GetFname="mrecno"
Case 4
GetFname="age"
Case 5
GetFname="Sex"
Case 6
GetFname="dob_date"
Case 7
GetFname="dob_year"
Case 8
GetFname="exam_date"
Case 9
GetFname="exam_year"
Case 10
GetFname="reasonfordiag"
Case 11
GetFname="diffdiag"
Case 12
GetFname="mjrfind"
Case 13
GetFname="mnrfind"
Case 14
GetFname="technote"
End Select
End Function

%>










...
...
...

Please help !

Thanks

Senthil

style="color:red;" <% end if

%>>Last Name


Comments

  • faustinegeorgefaustinegeorge Posts: 351Member
    Declare the array outside the if block.
    [code]
    <%
    dim arrError(15)
    if Request.Form("Submit")="Submit" then

    [/code]


    HTH
    Faustine
    --------
    : Hi,
    :
    : I'm trying to validate a form by posting the ASP page to itself. I'm trying to check the length of
    :
    : textfields, and flag the fields which have zero size, and then change the font color selectively. But
    :
    : when I try to change the font color I get a 'type mismatch error'.
    :
    : Here is my code
    :
    :
    : <%
    : if Request.Form("Submit")="Submit" then
    : dim arrError(15)
    :
    :
    : For i =0 to 15-1
    : arrError(i)=False
    : NEXT
    :
    : dim StrText
    : Const STRFIELDS=15, NUMFIELDS=4
    : For i= 0 to STRFIELDS-1
    : StrText=Cstr(GetFname(i))
    : If Len(Request.Form(StrText))=0 Then
    : arrError(i)=TRUE
    : End If
    : Next
    : End If
    :
    : Function GetFname(x)
    : Select Case x
    : Case 0
    : GetFname="lname"
    : Case 1
    : GetFname="fname"
    : Case 2
    : GetFname="minitial"
    : Case 3
    : GetFname="mrecno"
    : Case 4
    : GetFname="age"
    : Case 5
    : GetFname="Sex"
    : Case 6
    : GetFname="dob_date"
    : Case 7
    : GetFname="dob_year"
    : Case 8
    : GetFname="exam_date"
    : Case 9
    : GetFname="exam_year"
    : Case 10
    : GetFname="reasonfordiag"
    : Case 11
    : GetFname="diffdiag"
    : Case 12
    : GetFname="mjrfind"
    : Case 13
    : GetFname="mnrfind"
    : Case 14
    : GetFname="technote"
    : End Select
    : End Function
    :
    : %>
    :
    :
    :
    :
    :
    :
    :
    :
    :
    :
    :
    : ...
    : ...
    : ...
    :
    : Please help !
    :
    : Thanks
    :
    : Senthil
    :
    :

    style="color:red;" <% end if
    :
    : %>>Last Name

    :
    :
  • senthilpr_insenthilpr_in Posts: 10Member
    Hi,

    It worked perfectly fine. I thought I can declare the array inside the if block because it is used only when the form is submitted. Could you please clarify

    thanks


    : Declare the array outside the if block.
    : [code]
    : <%
    : dim arrError(15)
    : if Request.Form("Submit")="Submit" then
    :
    : [/code]
    :
    :
    : HTH
    : Faustine
    : --------
    : : Hi,
    : :
    : : I'm trying to validate a form by posting the ASP page to itself. I'm trying to check the length of
    : :
    : : textfields, and flag the fields which have zero size, and then change the font color selectively. But
    : :
    : : when I try to change the font color I get a 'type mismatch error'.
    : :
    : : Here is my code
    : :
    : :
    : : <%
    : : if Request.Form("Submit")="Submit" then
    : : dim arrError(15)
    : :
    : :
    : : For i =0 to 15-1
    : : arrError(i)=False
    : : NEXT
    : :
    : : dim StrText
    : : Const STRFIELDS=15, NUMFIELDS=4
    : : For i= 0 to STRFIELDS-1
    : : StrText=Cstr(GetFname(i))
    : : If Len(Request.Form(StrText))=0 Then
    : : arrError(i)=TRUE
    : : End If
    : : Next
    : : End If
    : :
    : : Function GetFname(x)
    : : Select Case x
    : : Case 0
    : : GetFname="lname"
    : : Case 1
    : : GetFname="fname"
    : : Case 2
    : : GetFname="minitial"
    : : Case 3
    : : GetFname="mrecno"
    : : Case 4
    : : GetFname="age"
    : : Case 5
    : : GetFname="Sex"
    : : Case 6
    : : GetFname="dob_date"
    : : Case 7
    : : GetFname="dob_year"
    : : Case 8
    : : GetFname="exam_date"
    : : Case 9
    : : GetFname="exam_year"
    : : Case 10
    : : GetFname="reasonfordiag"
    : : Case 11
    : : GetFname="diffdiag"
    : : Case 12
    : : GetFname="mjrfind"
    : : Case 13
    : : GetFname="mnrfind"
    : : Case 14
    : : GetFname="technote"
    : : End Select
    : : End Function
    : :
    : : %>
    : :
    : :
    : :
    : :
    : :
    : :
    : :
    : :
    : :
    : :
    : :
    : : ...
    : : ...
    : : ...
    : :
    : : Please help !
    : :
    : : Thanks
    : :
    : : Senthil
    : :
    : :
    :
    :

    style="color:red;" <% end if
    : :
    : : %>>Last Name

    : :
    : :
  • faustinegeorgefaustinegeorge Posts: 351Member
    variables declared within any blocks like if ,while etc, have a scope
    within that block only. Varibles declared outside any functions,subs etc. has a page wide scope.
    HTH
    Faustine
    --------

    : Hi,
    :
    : It worked perfectly fine. I thought I can declare the array inside the if block because it is used only when the form is submitted. Could you please clarify
    :
    : thanks
    :
    :
    : : Declare the array outside the if block.
    : : [code]
    : : <%
    : : dim arrError(15)
    : : if Request.Form("Submit")="Submit" then
    : :
    : : [/code]
    : :
    : :
    : : HTH
    : : Faustine
    : : --------
    : : : Hi,
    : : :
    : : : I'm trying to validate a form by posting the ASP page to itself. I'm trying to check the length of
    : : :
    : : : textfields, and flag the fields which have zero size, and then change the font color selectively. But
    : : :
    : : : when I try to change the font color I get a 'type mismatch error'.
    : : :
    : : : Here is my code
    : : :
    : : :
    : : : <%
    : : : if Request.Form("Submit")="Submit" then
    : : : dim arrError(15)
    : : :
    : : :
    : : : For i =0 to 15-1
    : : : arrError(i)=False
    : : : NEXT
    : : :
    : : : dim StrText
    : : : Const STRFIELDS=15, NUMFIELDS=4
    : : : For i= 0 to STRFIELDS-1
    : : : StrText=Cstr(GetFname(i))
    : : : If Len(Request.Form(StrText))=0 Then
    : : : arrError(i)=TRUE
    : : : End If
    : : : Next
    : : : End If
    : : :
    : : : Function GetFname(x)
    : : : Select Case x
    : : : Case 0
    : : : GetFname="lname"
    : : : Case 1
    : : : GetFname="fname"
    : : : Case 2
    : : : GetFname="minitial"
    : : : Case 3
    : : : GetFname="mrecno"
    : : : Case 4
    : : : GetFname="age"
    : : : Case 5
    : : : GetFname="Sex"
    : : : Case 6
    : : : GetFname="dob_date"
    : : : Case 7
    : : : GetFname="dob_year"
    : : : Case 8
    : : : GetFname="exam_date"
    : : : Case 9
    : : : GetFname="exam_year"
    : : : Case 10
    : : : GetFname="reasonfordiag"
    : : : Case 11
    : : : GetFname="diffdiag"
    : : : Case 12
    : : : GetFname="mjrfind"
    : : : Case 13
    : : : GetFname="mnrfind"
    : : : Case 14
    : : : GetFname="technote"
    : : : End Select
    : : : End Function
    : : :
    : : : %>
    : : :
    : : :
    : : :
    : : :
    : : :
    : : :
    : : :
    : : :
    : : :
    : : :
    : : :
    : : : ...
    : : : ...
    : : : ...
    : : :
    : : : Please help !
    : : :
    : : : Thanks
    : : :
    : : : Senthil
    : : :
    : : :
    : :
    : :
    :
    :

    style="color:red;" <% end if
    : : :
    : : : %>>Last Name

    : : :
    : : :
Sign In or Register to comment.