Hello All,

I have a query on one of my page and i include this page on another one but it gives me an error as follows:

Microsoft VBScript compilation (0x800A0400)
Expected statement

Here is my code:

<%


        SSQL=" SELECT DET_PEGA.Action, DET_PEGA.PEGAID, DET_PEGA.ApplicationGroup, DET_PEGA.ApplicationDetail, DET_PEGA.AccessGroup, DET_PEGA.BackupApprover, "
        SSQL =SSQL & " DET_PEGA.Division, DET_PEGA.Unit,DET_PEGA.Comment "
        SSQL =SSQL & " FROM DET_Pega WHERE (rqn="& VRQN &")"


        Set Rst = CNX.Execute(SSQL)

        If Not Rst.EOF then
            if Rst.fields("Action")<>"" AND Rst.fields("Action")<>"-" then
            Response.write("Action : <span class=field> "& Rst.fields("Action") &" </span> <br>")
            if Rst.fields("PEGAID")<>"" AND Rst.fields("PEGAID")<>"-" then
            Response.write("PEGAID : <span class=field> "& Rst.fields("PEGAID") &" </span> <br>")
            if Rst.fields("ApplicationGroup")<>"" AND Rst.fields("ApplicationGroup")<>"-" then
            Response.write("ApplicationGroup : <span class=field> "& Rst.fields("ApplicationGroup") &" </span> <br>")
            if Rst.fields("ApplicationDetail")<>"" AND Rst.fields("ApplicationDetail")<>"-" then
            Response.write("ApplicationDetail : <span class=field> "& Rst.fields("ApplicationDetail") &" </span> <br>")
            if Rst.fields("AccessGroup")<>"" AND Rst.fields("AccessGroup")<>"-" then
            Response.write("AccessGroup : <span class=field> "& Rst.fields("AccessGroup") &" </span> <br>")
            if Rst.fields("BackupApprover")<>"" AND Rst.fields("BackupApprover")<>"-" then
            Response.write("BackupApprover : <span class=field> "& Rst.fields("BackupApprover") &" </span> <br>")
            if Rst.fields("Division")<>"" AND Rst.fields("Division")<>"-" then
            Response.write("Division : <span class=field> "& Rst.fields("Division") &" </span> <br>")
            if Rst.fields("Unit")<>"" AND Rst.fields("Unit")<>"-" then
            Response.write("Unit : <span class=field> "& Rst.fields("Unit") &" </span> <br>")
            if Rst.fields("Comment")<>"" AND Rst.fields("Comment")<>"-" then
            Response.write("Comment : <span class=field> "& Rst.fields("Comment") &" </span> <br>")

       End If
%>





I include this page as follows:


<% @language=vbscript %>
<%
Select case vorikrn%>
                        <%Case "PEGAPRF_PRD"
                        response.write("Pega")%>


end select
%>



Please help.

But you don't say WHAT LINE you get the error on!

One thing you can do to help track it down is to *temporarily* replace the #INCLUDE with the actual code.

You apparently aren't aware of it, but your #INCLUDE will *ALWAYS* be there, anyway. #INCLUDE happens *way* before the page is compiled, much less run, so *all* #include'd code is *always* there. Always.