Microsoft VBScript compilation (0x800A0400

mind_grapes · #1 (**permalink**) 07-01-09, 04:31

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%>



<%
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>