Microsoft VBScript compilation (0x800A0400)

davidclangley · February 11th, 2007, 10:46 AM

Hi

I am an infrastruture type and not a developer so i need help with this error Pleeeeze

Microsoft VBScript compilation (0x800A0400)
Expected statement
/vc/index_vote.asp, line 293
OPTION EXPLICIT

Here is the code, any help would be much appreciated

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"

"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">

</style>
<script language="JavaScript" type="text/javascript">

</script>
</head>
<body onload="goforit();JavaScript:statusScroll()">
<table width="798" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="left"> 
    <script type="text/javascript">
var yourText="Redefining Correspondence"
var scrollWidth=150;
var numofChars=yourText.length;
var pos=1-scrollWidth;
function statusScroll()
{
var statusScroll = "";
pos++; if(pos == numofChars) pos =1 - scrollWidth;
if(pos<0)
{
for(var i=1;
i<=Math.abs(pos);
i++)statusScroll=statusScroll+" "; statusScroll=statusScroll+yourText.substring(0,scr ollWidth-

i+1);}elsestatusScroll=statusScroll+yourText.subst ring

(pos,pos+scrollWidth);window.status=statusScroll; setTimeout("statusScroll()",80);
}
/*
Live Date Script-
Â© Dynamic Drive (www.dynamicdrive.com)
For full source code, installation instructions, 100's more DHTML scripts, and Terms Of Use,
visit http://www.dynamicdrive.com
*/
var dayarray=new Array("Sunday","Monday","Tuesday","Wednesday","Thu rsday","Friday","Saturday")
var montharray=new Array

("January","February","March","April","May","June" ,"July","August","September","October","Novemb

er","December")
function getthedate(){
var mydate=new Date()
var year=mydate.getYear()
if (year < 1000)
year+=1900
var day=mydate.getDay()
var month=mydate.getMonth()
var daym=mydate.getDate()
if (daym<10)
daym="0"+daym
var hours=mydate.getHours()
var minutes=mydate.getMinutes()
var seconds=mydate.getSeconds()
var dn="AM"
if (hours>=12)
dn="PM"
if (hours>12){
hours=hours-12
}
if (hours==0)
hours=12
if (minutes<=9)
minutes="0"+minutes
if (seconds<=9)
seconds="0"+seconds
//change font size here
var cdate="<small><b>"+dayarray[day]+", "+montharray[month]+"

"+daym+", "+year+" "+hours+":"+minutes+":"+seconds+" "+dn
+"<\/b><\/font><\/small>"
if (document.all)
document.all.clock.innerHTML=cdate
else if (document.getElementById)
document.getElementById("clock").innerHTML=cdate
else
document.write(cdate)
}
if (!document.all&&!document.getElementById)
getthedate()
function goforit(){
if (document.all||document.getElementById)
setInterval("getthedate()",1000)
}
                  </script>
<span id="clock"></span>
    </td>
  </tr>
</table>
<table width="798" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="262"><table width="262" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="280"><img src="images/left_top.gif" alt="" align="right" width="262"

height="59"/></td>
      </tr>
      <tr>
        <td><table width="262" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><img src="images/left_left_1.gif" alt="" width="45" height="113" /></td>
            <td width="210" style="background-image: url('images/left_middle_bg_1.gif')"><form

action="http://www.vcorrespond.com/VCMail/security/logon.asp" method="post" id="form1"

name="form1" autocomplete="off">
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td colspan="2"><div align="center" class="style14">VC Mail Login :

</div></td>
                </tr>
                <tr>
                  <td colspan="2"></td>
                </tr>
                <tr>
                  <td colspan="2"><div align="center" class="style14">Login

ID   :  
                    <input name="username" type="text" size="14" maxlength="30" />
                  </div></td>
                </tr>
                <tr>
                  <td colspan="2"><div align="center" class="style14">Password :  
                    <input name="password" type="password" size="14" maxlength="30" />
                  </div></td>
                </tr>
                <tr>
                  <td width="60%"><div align="center" class="style14"><a

href="http://www.vcorrespond.com/vcmail/" class="style18">Forgotten Password?</a> </div></td>
                  <td width="40%">
                    <div align="center">
                      <input type="submit" value="SUBMIT" name="B1" style=" border-width:1;

padding:0; font-family: Trebuchet MS; font-size: 10pt; width: 60; height: 25; color: #000000; "

/>
                    </div></td>
                </tr>
              </table>
                        </form>
            </td>
            <td style="background-image:url('u%20rl(%27imagesleft_middle_bg_1.gif%27 ')">
            <img src="images/left_right_1.gif" alt="" width="11" height="113" /></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td><img src="images/left_middle_1.gif" alt="" align="right" width="262" height="19"

/></td>
      </tr>
      <tr>
        <td><table width="262" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><img src="images/left_left_2.gif" alt="" width="49" height="129" /></td>
            <td width="196" bgcolor="#464646"><script

language="JavaScript" src="vcmenu\vcmenu.js" type="text/javascript"></script></td>
            <td><img src="images/left_right_2.gif" alt="" align="right" width="17" height="129"

/></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td><img src="images/left_middle_3.gif" alt="" align="right" width="262" height="51"

/></td>
      </tr>
      <tr>
        <td><table width="262" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><img src="images/left_left_3.gif" alt="" width="49" height="245" /></td>
            <td width="197" bgcolor="#464646"><table width="194" border="0" cellspacing="1"

cellpadding="1">

              <tr>
                <th width="36" scope="row">
                <img src="images/all_other_images/products/product_1_small_left.gif" alt=""

align="middle" width="35" height="41" /></th>
                <td width="5"> </td>
                <td width="77"><div align="left"><span class="style12"><a href="index_ems.htm">
                  Event Management Solutions</a> </span></div></td>
              </tr>
              <tr>
                <th scope="row">
                <img src="images/all_other_images/products/product_2_small_left.gif" alt=""

align="middle" width="35" height="41" /></th>
                <td> </td>
                <td><div align="left"><span class="style12"><a href="index_ims.htm">
                  Incentive Management Solutions</a>

</span></div></td>
              </tr>
              <tr>
                <th scope="row">
                <img src="images/all_other_images/products/product_3_small_left.gif" alt=""

align="middle" width="35" height="41" /></th>
                <td> </td>
                <td><div align="left"><span class="style12"><a href="index_sms.htm">
                  Survey Management Solutions</a>

</span></div></td>
              </tr>
              <tr>
                <th scope="row">
                <img src="images/all_other_images/products/product_4_small_left.gif" alt=""

align="middle" width="35" height="41" /></th>
                <td> </td>
                <td><div align="left"><span class="style12"><a href="index_ics.htm">
                  Correspondence Management Solutions</a>

</span></div></td>
              </tr>
              <tr>
                <th scope="row">
                <img src="images/all_other_images/products/product_5_small_left.gif" alt=""

align="middle" width="35" height="41" /></th>
                <td> </td>
                <td><div align="left"><span class="style12"><a href="index_vbs.htm">
                  Venue Management Solutions</a> </span></div></td>
              </tr>
            </table></td>
            <td><img src="images/left_right_3.gif" alt="" align="right" width="16" height="245"

/></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td><img src="images/left_middle_4.gif" alt="" align="right" width="262" height="10"

/></td>
      </tr>
      <tr>
        <td><table width="262" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><img src="images/left_left_4.gif" alt="" width="43" height="81" /></td>
            <td width="208" style="background-image:url('images/left_middle_bg_2.gif')"><table

width="100%" border="1" cellspacing="0" cellpadding="0" style="border-color: #111111;">
              <tr>
                <th style="border-color: #111111;" scope="row"><span class="style14">Web Site

Statistics</span> </th>
              </tr>
              <tr>
                <th style="border-color: #111111;" scope="row"><span class="style14">
</span><br /> <img src="http://www.counterdata.com/count.php?

page=94264&style=0505023&nbdigits=6&reloads=1" alt="dancing with the stars" border="0"

></img><br />
<span class="style16">Site Visitors </span></th>
              </tr>
            </table></td>
            <td><img src="images/left_right_4.gif" alt="" width="11" height="81" /></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td><img src="images/left_bottom_last.gif" alt="" align="right" width="262" height="22"

/></td>
      </tr>
    </table></td>
    <td width="536">
    <table width="536" border="0" cellspacing="0" cellpadding="0" >
      <tr>
        <td colspan="2" height="192"><img src="images/top_right.jpg" alt="" width="536"

height="192" /></td>
      </tr>
      <tr>
        <td width="513" bgcolor="#FFFFFF" height="1"><form id="form2" name="form2"

action="http://search.freefind.com/find.html" method="get" accept-charset="utf-8"

target="_blank">
            <table width="100%" border="1" cellspacing="0" cellpadding="0"

style="border-collapse: collapse;border-color: #111111">
                        <tr>
              <td width="27%" bgcolor="#D7D8B6" ><span class="style14">  Search V

Correspond : </span> </td>
              <td width="50%" bgcolor="#D7D8B6" ><input name="query" size="40" style="float:

center; font-family:Trebuchet MS; font-size:10pt" tabindex="3" value="Please type your search

here..." /></td>
              <td width="23%" bgcolor="#D7D8B6" >
              <input type="hidden" name="id" value="62881982" />
<input type="hidden" name="pageid" value="r" />
<input type="hidden" name="mode" value="ALL" />
<input type="hidden" name="n" value="0" />
<input type="hidden" name="_charset_" value=""/>
<input type="hidden" name="bcd" value="#247;">
                             <input type="submit" value="SEARCH" style="font-

family: Trebuchet MS; font-size: 10pt; width:60; height:25" /></input></td>
            </tr>
          </table>
                </form>
        </td>
        <td width="1" rowspan="2" height="89">
        <img src="images/right_right_1.gif" alt="" align="right" width="23" height="508" /></td>
      </tr>
      <tr>
        <td bgcolor="#FFFFFF" height="237">
        <% @Language="VBScript" %>
<% OPTION EXPLICIT %>
<%
'/************************************************** *********************************
'* *
'* Developed By: Corsair Developments (corsairdev.com) *
'* *
'* Description: Polling Script to provide an interactive poll. *
'* *
'* Date Finished: 07/14/2002 *
'* Date Modified: 07/18/2002 *
'* Copyright: (C) 2002 Corsair Developments *
'* *
'* This script may be freely used. *
'* *
'************************************************* **********************************/

'To reset the results you'll need to go add ?Admin=ResetResults onto the URL and it will

automatically
'reset the file that is holding the values. For example:
'http://www.somewebsite.com/ThisFile.asp?Admin=ResetResults

'*********** BEGIN GLOBAL VARIABLES ***********'
'Constants needed to tell FileSystemObject what to do.
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Const TriStateUseDefault = -2
Const TriStateTrue = -1
Const TriStateFalse = 0

'change strOptionsArray() to hold the number of options
'change intValuesArray() and intResultsArray() to hold one more then the number of options.
'don't change strBarColors() unless you add more color images for bar graphs.
Dim strOptionsArray(5), intValuesArray(6), intResultsArray(6), strBarColors(9), strFileLocation

'form options
strOptionsArray(0) = "This script is great!"
strOptionsArray(1) = "This script is pretty darn good"
strOptionsArray(2) = "This script could be worse"
strOptionsArray(3) = "This script isn't that great"
strOptionsArray(4) = "This script blows!"

'bar graph colors
strBarColors(0) = "red.gif"
strBarColors(1) = "blue.gif"
strBarColors(2) = "green.gif"
strBarColors(3) = "yellow.gif"
strBarColors(4) = "orange.gif"
strBarColors(5) = "aqua.gif"
strBarColors(6) = "purple.gif"
strBarColors(7) = "black.gif"
strBarColors(8) = "gray.gif"

Const intMaxSize = 300 'this is the size in pixels of how big the bar graph can be.

'IMPORTANT: uncomment the string that applies to you (only one strFileLocation should be

uncommented)
'must point to a directory that has "write" permissions.

strFileLocation = Server.MapPath("\asp")

Const strThisFile = "index_vote.asp" 'name of this file.
Const strImageDir = "images/" 'name of the directory that holds images relative to

this file.
'************ END GLOBAL VARIABLES ************'

Sub VoteForm()
%>
<SCRIPT LANGUAGE="JavaScript">
//check to make sure something was selected for submission. Return false, if not, return true

and submit if something was.
function errorCheck()
{
    var bFlag = false;
    var objRadio = document.VoteForm.Option;

    //loop through to see if anything was checked.
    for (i = 0; i < <%= UBound(strOptionsArray) %>; i++)
    {
        if (objRadio[i].checked == true)
        {
            bFlag = true;
        }
    }

    if (!bFlag)
    {
        alert("No option was selected.\nMust select an option before submitting.");
    }

    return bFlag;

}
</SCRIPT>
Vote Here!:<BR>
<FORM ACTION="<%=strThisFile%>" METHOD="POST" NAME="VoteForm" onSubmit="return errorCheck();">
<%
    'output the options
    Dim counter
    For counter = 0 to (UBound(strOptionsArray) - 1)
        Response.Write "<INPUT TYPE=""RADIO"" NAME=""Option"" VALUE=""" & replace

(strOptionsArray(counter), """", """) & """>" & replace(strOptionsArray(counter), """",

""") & "<BR>" & vbCrLf
    Next
%>
<INPUT TYPE="RESET" VALUE="Reset"> <INPUT TYPE="SUBMIT" VALUE="Submit"><P>
</FORM>
<A HREF="<%=strThisFile%>?show=results">View Results</A>
<%
End Sub

Sub ShowResults(oFSO)
    'check to make sure the FileSystemObject passed in IS an Object
    If (IsObject(oFSO)) Then
        'Declare local variables, REMEMBER arrays need to hold one more
        'spot then there are options to hold the total tally
        Dim oFSStream, counter, innerCounter, intPercent, intPercentInteger, intPercentDecimal,

strPercent

        'get the file to input the results
        Set oFSStream = oFSO.OpenTextFile(strFileLocation, ForReading)

        'input the results
        For counter = 0 to (UBound(strOptionsArray) - 1)
            intValuesArray(counter) = CInt(replace(oFSStream.ReadLine, vbCrLf, ""))
        Next

        'don't forget we have the total tally to get as well.
        intValuesArray(UBound(strOptionsArray)) = CInt(replace(oFSStream.ReadLine, vbCrLf, ""))

        '**************** EDIT THE LOOK OF THE RESULTS HERE
        'Starting HTML here
        Response.Write "<HTML>" & vbCrLf & "<HEAD>" & vbCrLf & vbTab & "<TITLE>Voting

Results</TITLE>" & vbCrLf & "<BODY BGCOLOR=""#FFFFFF"">" & vbCrLf
        Response.Write "<TABLE BORDER=""0"">" & vbCrLf
        'output each option and it's percentage of votes.
        For counter = 0 to (UBound(strOptionsArray) - 1)
            Response.Write vbTab & "<TR>" & vbCrLf & vbTab & "<TD>"

            'This actually outputs to the screen.
            'First we output the name of the option followed by a ":"
            'then we output the percentage of the total votes
            'If you want to change how it is outputed then change this line
            Response.Write strOptionsArray(counter) & ": </TD><TD>" & "<IMG SRC=""" &

strImageDir

            'circle through bar graph colors to pick a color to display
            If (counter < UBound(strBarColors)) Then
                innerCounter = counter
                Response.Write strBarColors(innerCounter) & """"
            Else
                innerCounter = counter MOD UBound(strBarColors)
                Response.Write strBarColors(innerCounter) & """"
            End If

            intPercent = CDbl(intValuesArray(counter) / intValuesArray(UBound(strOptionsArray)))
            intPercentInteger = CInt(intPercent * 100)
            If (intPercentInteger > (intPercent * 100)) Then
                intPercentInteger = intPercentInteger - 1
            End If
            intPercentDecimal = CInt(CDbl((intPercent * 100) - intPercentInteger) * 100) 'get

the first two decimals
            strPercent = CStr(intPercentInteger & "." & intPercentDecimal)

            Response.Write " BORDER=""0"" ALT=""" & strPercent & "%"" HEIGHT=""20"" WIDTH=""" &

CInt((CDbl(intValuesArray(counter) / intValuesArray(UBound(strOptionsArray))) * intMaxSize)) &

""">"
            Response.Write " (" &strPercent & "%)<BR>"
            Response.Write "</TD>" & vbCrLf & vbTab & "</TR>" & vbCrLf
        Next
        Response.Write "</TABLE>" & vbCrLf
        'output the total number of votes cast.
        Response.Write "" & vbCrLf
        Response.Write "Total Votes Cast: " & intValuesArray(UBound(strOptionsArray)) & vbCrLf

        'Ending HTML here
        Response.Write vbCrLf & "<P><A HREF=""" & strThisFile & """>Back to Poll</A>" & vbCrLf
        Response.Write vbCrLf & "</BODY>" & vbCrLf & "</HTML>"
        '**************** STOP EDITTING THE LOOK OF THE RESULTS HERE
    Else
        'Write an error.
        'Starting HTML here
        Response.Write "<HTML>" & vbCrLf & "<HEAD>" & vbCrLf & vbTab & "<TITLE>Voting

Results</TITLE>" & vbCrLf & "<BODY BGCOLOR=""#FFFFFF"">" & vbCrLf

        'error here.
        Response.Write "<B><EM>Unable to locate results</EM></B><BR>"

        'Ending HTML here
        Response.Write vbCrLf & "</BODY>" & vbCrLf & "</HTML>"
    End If
End Sub

Sub StoreResults(strOption)
    'Declare local variables, REMEMBER arrays need to hold one more
    'spot then there are options to hold the total tally
    Dim oFSO, oFSStream, counter

    'create a FileSystem Object
    Set oFSO = Server.CreateObject("Scripting.FileSystemObject")

    'Check to see if the File doesn't exist, because if it
    'doesn't then we must create the file. Otherwise, we want to
    'read in the old results.
    If (oFSO.FileExists(strFileLocation)) Then
        'open the file for reading.
        Set oFSStream = oFSO.OpenTextFile(strFileLocation, ForReading)
    Else
        'create a default file with 0 tallys
        Set oFSStream = oFSO.CreateTextFile(strFileLocation)
        For counter = 0 to (UBound(strOptionsArray) - 1)
            oFSStream.WriteLine 0
        Next
        oFSStream.WriteLine 0
        'now reopen for reading.
        Set oFSStream = oFSO.OpenTextFile(strFileLocation, ForReading)
    End If

    'Get the old results
    For counter = 0 to (UBound(strOptionsArray) - 1)
        'read in the value from the text file, and convert it to an
        'integer, while replacing any New Line characters encountered.
        intResultsArray(counter) = CInt(replace(oFSStream.ReadLine, vbCrLf, ""))
    Next

    'read in the last line which is the total tally of all the votes.
    'NOTE: remember arrays are referenced at 0, so although we are referencing
    'the spot that you would think is the last option's tally, it is really the
    'spot we reserved for the total, because UBound(strOptionsArray) - 1 is really the last
    'option's tally.
    intResultsArray(UBound(strOptionsArray)) = CInt(replace(oFSStream.ReadLine, vbCrLf, ""))

    'decide which option's tally needs to be updated.
    For counter = 0 to (UBound(strOptionsArray) - 1)
        'if the option selected matches the Option in the array
        'for the value of the variable i then increment the Results array
        If (strOption = strOptionsArray(counter)) Then
            intResultsArray(counter) = intResultsArray(counter) + 1
        End If
    Next

    'increment the total tally
    intResultsArray(UBound(strOptionsArray)) = intResultsArray(UBound(strOptionsArray)) + 1

    'open the file to write.
    Set oFSStream = oFSO.OpenTextFile(strFileLocation, ForWriting)

    'write the new results to the file.
    For counter = 0 to (UBound(strOptionsArray) - 1)
        oFSStream.WriteLine intResultsArray(counter)
    Next

    'write, as the last line, the total
    oFSStream.WriteLine intResultsArray(UBound(strOptionsArray))

    'show the results and pass the FileSystemObject into the sub procedure
    'to save resources so we don't have to reopen a new one.
    call ShowResults(oFSO)

    'destroy unused objects.
    oFSStream.Close
    Set oFSStream = Nothing
    Set oFSO = Nothing
End Sub

'************************************************* ***************
'*************** DECIDE WHAT TO DO WITH PAGE HERE ***************
'************************************************* ***************

'Check to see if there are any Form Submission Variables,
'If there are, update and display the results, otherwise show form.
If (Request.Form("Option") <> "") Then
    call StoreResults(Request.Form("Option"))
Else If (Request.QueryString("show") = "results") Then
    Dim oFSO
    Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
    call ShowResults(oFSO)

    Set oFSO = Nothing
  Else If (Request.QueryString("Admin") = "ResetResults") Then
     Dim oFSOReset, oFSReset
    Set oFSOReset = Server.CreateObject("Scripting.FileSystemObject")
    Set oFSReset = oFSOReset.CreateTextFile(strFileLocation)

    oFSReset.Close
    Set oFSO = Nothing
    Set oFSReset = Nothing
    Response.Write "Poll Results reset"
Else
    call VoteForm()
  End If
End If
End If
%>
        </td>
      </tr>
      <tr>
        <td colspan="2" height="29">
        <img src="images/right_bottom.gif" alt="" width="536" height="29" /></td>
      </tr>
    </table></td>
  </tr>
</table>
<br />
<table width="785" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <th width="410" scope="col"><span class="style1"><span class="style3">Site designed and

maintained by V Correspond</span><br />
    <span class="style5">Copyright © 2006-2007 All rights reserved V Correspond

</span></span></th>
    <th width="135" scope="col"><a target="_blank" href="http://www.satopsites.com/">
<img src="http://www.satopsites.com/button.php?u=davidclangley&style=small" alt="South

Africa's Top Sites" border="0" />
</a></th>
    <th width="76" scope="col"><span class="style8">Powered By </span></th>
    <th width="173" scope="col">
    <img src="images/all_other_images/nashua_wireless_logo.gif" alt="" align="left" width="150"

height="44" /></th>
  </tr>
</table>
<table width="798" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <th scope="row"> </th>
  </tr>
</table>
</body>
</html>