#1
  1. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Nov 2012
    Posts
    17
    Rep Power
    0

    Microsoft VBScript compilation (0x800A03EA)


    Hi,

    Please, can anyone advise me more how to fix the above error.

    Thanks in advanced.

    <td bgcolor="#F7FBEA">

    <% =rs("Artistic_Field_Film") & If(rs("Artistic_Field_Literary_Arts") <> "", "," & rs("Artistic_Field_Literary_Arts"), "") & If(rs("Artistic_Field_Dance") <> "", "," & rs("Artistic_Field_Dance"), "") & If(rs("Artistic_Field_Music") <> "", "," & rs("Artistic_Field_Music"), "") & If(rs("Artistic_Field_Theatre") <> "", "," & rs("Artistic_Field_Theatre"), "") & If(rs("Artistic_Field_Visual_Arts") <> "", "," & rs("Artistic_Field_Visual_Arts"), "") & If(rs("Artistic_Field_Others") <> "", "," & rs("Artistic_Field_Others"), "") %>

    </td>
  2. #2
  3. No Profile Picture
    Contributing User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Oct 2012
    Posts
    103
    Rep Power
    9
    <td bgcolor="#F7FBEA">
    your code does not make a lot of sense, it should be
    Code:
    <% response.write rs("Artistic_Field_Film") 
     If(rs("Artistic_Field_Literary_Arts") <> "" then  response.Write  "," & rs("Artistic_Field_Literary_Arts")
     If(rs("Artistic_Field_Dance") <> "" then response.Write "," & rs("Artistic_Field_Dance")
     If(rs("Artistic_Field_Music") <> "" then response.Write "," & rs("Artistic_Field_Music")
     If(rs("Artistic_Field_Theatre") <> "" then response.Write "," & rs("Artistic_Field_Theatre")
     If(rs("Artistic_Field_Visual_Arts") <> "" then response.Write "," & rs("Artistic_Field_Visual_Arts")
     If(rs("Artistic_Field_Others") <> "" then "," & rs("Artistic_Field_Others"), "") %>
    </td>
  4. #3
  5. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Nov 2012
    Posts
    17
    Rep Power
    0
    Hi,

    I still have error when I use your code.

    Please, can anyone give me any idea how to do.

    <% response.write rs("Artistic_Field_Film")
    If(rs("Artistic_Field_Literary_Arts") <> "" then response.Write "," & rs("Artistic_Field_Literary_Arts")
    If(rs("Artistic_Field_Dance") <> "" then response.Write "," & rs("Artistic_Field_Dance")
    If(rs("Artistic_Field_Music") <> "" then response.Write "," & rs("Artistic_Field_Music")
    If(rs("Artistic_Field_Theatre") <> "" then response.Write "," & rs("Artistic_Field_Theatre")
    If(rs("Artistic_Field_Visual_Arts") <> "" then response.Write "," & rs("Artistic_Field_Visual_Arts")
    If(rs("Artistic_Field_Others") <> "" then "," & rs("Artistic_Field_Others"), "") %>
    </td>

    Microsoft VBScript compilation

    Expected ')'

    If(rs("Artistic_Field_Literary_Arts") <> "" then response.Write "," & rs("Artistic_Field_Literary_Arts") ^
  6. #4
  7. No Profile Picture
    Contributing User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Oct 2012
    Posts
    103
    Rep Power
    9
    Code:
    If(rs("Artistic_Field_Literary_Arts") <> "" then response.Write "," & rs("Artistic_Field_Literary_Arts")
    you have extra ( in red...
  8. #5
  9. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Nov 2012
    Posts
    17
    Rep Power
    0

    Microsoft VBScript compilation (0x800A0400) Expected statement


    Hi,

    When I write my code like this its show up above error.

    Please, can any one advice me how to fix this code.

    Thanks.

    <% response.write rs("Artistic_Field_Film")
    If rs("Artistic_Field_Literary_Arts") <> "" then response.Write "," & rs("Artistic_Field_Literary_Arts")
    If rs("Artistic_Field_Dance") <> "" then response.Write "," & rs("Artistic_Field_Dance")
    If rs("Artistic_Field_Music") <> "" then response.Write "," & rs("Artistic_Field_Music")
    If rs("Artistic_Field_Theatre") <> "" then response.Write "," & rs("Artistic_Field_Theatre")
    If rs("Artistic_Field_Visual_Arts") <> "" then response.Write "," & rs("Artistic_Field_Visual_Arts")
    If rs("Artistic_Field_Others") <> "" then "," & rs("Artistic_Field_Others"), "") %>
  10. #6
  11. No Profile Picture
    Contributing User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Oct 2012
    Posts
    103
    Rep Power
    9
    What error and on what line you have?
  12. #7
  13. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Nov 2012
    Posts
    17
    Rep Power
    0
    Hi,

    Please, can any one advice me how to fix this code.

    Thanks.

    <% response.write rs("Artistic_Field_Film")
    If rs("Artistic_Field_Literary_Arts") <> "" then response.Write "," & rs("Artistic_Field_Literary_Arts")////// end of this line I have the error of Microsoft VBScript compilation (0x800A0400) Expected statement
    If rs("Artistic_Field_Dance") <> "" then response.Write "," & rs("Artistic_Field_Dance")
    If rs("Artistic_Field_Music") <> "" then response.Write "," & rs("Artistic_Field_Music")
    If rs("Artistic_Field_Theatre") <> "" then response.Write "," & rs("Artistic_Field_Theatre")
    If rs("Artistic_Field_Visual_Arts") <> "" then response.Write "," & rs("Artistic_Field_Visual_Arts")
    If rs("Artistic_Field_Others") <> "" then "," & rs("Artistic_Field_Others"), "") %>
  14. #8
  15. No Profile Picture
    Contributing User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Oct 2012
    Posts
    103
    Rep Power
    9
    I can see a problemm there If rs("Artistic_Field_Others") <> "" then "," & rs("Artistic_Field_Others"), "")

    but cahnge code to below it should take care


    Code:
    <% response.write rs("Artistic_Field_Film")
    If rs("Artistic_Field_Literary_Arts") <> "" then 
        response.Write "," & rs("Artistic_Field_Literary_Arts")
    end if
     If rs("Artistic_Field_Dance") <> "" then 
        response.Write "," & rs("Artistic_Field_Dance")
     end if
    If rs("Artistic_Field_Music") <> "" then 
        response.Write "," & rs("Artistic_Field_Music")
    end if
     If rs("Artistic_Field_Theatre") <> "" then 
        response.Write "," & rs("Artistic_Field_Theatre")
     end if
    If rs("Artistic_Field_Visual_Arts") <> "" then 
        response.Write "," & rs("Artistic_Field_Visual_Arts")
    end if
     If rs("Artistic_Field_Others") <> "" then 
        response.Write "," & rs("Artistic_Field_Others")
     end if
    %>

IMN logo majestic logo threadwatch logo seochat tools logo