Results 1 to 2 of 2
  1. #1
    Join Date
    Jun 2009
    Location
    Midlands
    Posts
    135

    Unanswered: Microsoft VBScript compilation (0x800A0400

    Hi all, how are you?

    thanks to all for your help in the past, another problem im affraid. hope you can point me in the right direction with this.

    I get this error:

    Microsoft VBScript compilation (0x800A0400)
    Expected statement
    /admin/stores/selectFloorPlans.asp, line 63
    End Function

    I can not seem to find where it may be.

    Here is the code for the page where the problems is pointing to:

    <%@Language="VBScript"%>
    <%Option Explicit%>
    <!-- FloorPlans -->
    <!-- #include file="../../i/comms.asp"-->

    <%
    Dim ifloorPlanID
    ifloorPlanID = Request.QueryString("f")

    openDB
    ShowHeader
    ShowImages
    CloseDB

    Function ShowHeader
    %>

    <html> <head>
    <title></title>

    <script type="text/javascript">
    var imageNames = '<%
    sSQL = "exec spGetFloorPlans"
    SET oRS = oDB.Execute(sSQL)
    IF NOT oRS.EOF THEN
    WHILE NOT oRS.EOF%>
    reponse.write "" & oRS("FloorplansImageName") & "," oRS.MoveNext WEND END IF %>';

    var aImages = imageNames.split(',');
    var currentImg = <%=request.querystring("f") %>

    function saveValue()
    {
    window.opener.document.forms[0].winID.value = currentImg;
    window.close();
    }

    function setImage(imageValue)
    {
    if (imageValue < 1)
    {
    imageValue = 1;
    }
    if (imageValue > 22)
    {
    imageValue = 22;
    }
    currentImg = imageValue;
    floorplans.src = '/img/floorplans/' + imageValue + '.jpg'; }

    </script>
    </head> <body>
    <%

    End Function (line 63)

    Function ShowImages
    %>

    <p style="text-align:center;">
    <a href="javascript:setImage(currentImg - 1);" title="scroll left"><img src="/img/left.gif"/></a>
    <img id="floorPlan" src="/img/floorplan/1.jpg" width="400px" />

    <a href="javascript:setImage(currentImg + 1);" title="scroll right">
    <img src="/img/right.gif" /></a><br /> <input type="button" value="save" onclick="javascript:saveValue();"
    </p>
    <script type="text/javascript">
    floorPlan.src = '/img/floorplans<%=request.querystring("f")%>.jpg';
    </script> <% End Function %>
    </body></html>

  2. #2
    Join Date
    May 2009
    Posts
    258
    I imagine your problem is actually in the following lines:
    WHILE NOT oRS.EOF%>
    reponse.write "" & oRS("FloorplansImageName") & "," oRS.MoveNext WEND END IF %>';
    The first line includes an extra end inline code tag and the second line needs to be split into four lines.

    Regards,

    Ax

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •