Avatar billede kpl Nybegynder
12. august 2001 - 17:19 Der er 5 kommentarer og
1 løsning

Syntax error?

Hej Jeg har et lille scriot som jeg prøver at få til at fungere i et andet script.

Jeg får denne fejl:

Microsoft VBScript compilation error \'800a03ea\'

Syntax error

/foreignhelp/stem.inc, line 5

function stem(id)
^



Selve scriptet lægger jeg lige ind her, hvis nogen har lyst (filen som vises her) er i forvejen en include fil - har det nogen betydning?)



</td>
        <td width=10></td>
        <td valign=top width=130  bgcolor=\"#EEEEEE\" align=left>
            <table border=0 cellspacing=0 cellpadding=3 bgcolor=\"#981200\" width=100%>
                <tr><td class=\"whitesmallertext\" align=\"center\">SEARCH</td></tr>
            </table>
           
        <div align=center>
        <form action=\"/foreignhelp/search.asp?cmdSearch=1\" method=\"post\">
        <input type=\"text\" name=\"txtSearch\" size=\"15\" maxlength=\"250\" class=\"tbflat\">
        <input type=\"submit\" name=\"cmdSearch\" value=\"Go\" class=\"cmdflat\"><br>
        (<a href=\"/foreignhelp/search.asp\">Advanced Search</a>)</form>
        </div>
        <table border=0 cellspacing=0 cellpadding=3 bgcolor=\"#981200\" width=100%>
                <tr><td class=\"whitesmallertext\" align=\"center\">EXPERT HELP</td></tr>
            </table>
            <br>
            » <a href=\"/foreignhelp/ekspert/emner.asp\">Ask an Expert</a><br>
            <br><br><br>
            <table border=0 cellspacing=0 cellpadding=3 bgcolor=\"#981200\" width=100%>
                <tr><td class=\"whitesmallertext\" align=\"center\">THIS WEEKS POLL</td></tr>
            </table>
            <br>
           
            <p align=\"center\">


<!-- #include file=\"stem.inc\" -->
<% Stem(1) %>
</p>
<p align=\"center\">
<script language=\"JavaScript\" src=\"http://impdk.tradedoubler.com/imp/5202/58214\"></script>

            <br>
            </p>




        </td>
    </tr>
</table>



<table border=0 cellspacing=0 cellpadding=0 width=780 bgcolor=\"#981200\" align=center>
<tr>

<td> &nbsp;
<% if not bDontCount then %>

<SCRIPT type=\"text/javascript\" language=\"JavaScript\">
var d=new Date();
var s=d.getSeconds();
var m=d.getMinutes();
var x=s*m;
f=\'\' + escape(document.referrer);
if (navigator.appName==\'Netscape\'){b=\'NS\';}
if (navigator.appName==\'Microsoft Internet Explorer\'){b=\'MSIE\';}
if (navigator.appVersion.indexOf(\'MSIE 3\')>0) {b=\'MSIE\';}
u=\'\' + escape(document.URL); w=screen.width; h=screen.height;
v=navigator.appName;
fs = window.screen.fontSmoothingEnabled;
if (v != \'Netscape\') {c=screen.colorDepth;}
else {c=screen.pixelDepth;}
j=navigator.javaEnabled();
info=\'w=\' + w + \'&h=\' + h + \'&c=\' + c + \'&r=\' + f + \'&u=\'+ u + \'&fs=\' + fs + \'&b=\' + b + \'&x=\' + x;
document.write(\'<a href=\"http://www.mitfirma.com\" target=\"_blank\"><img src=\"/foreignhelp/count.asp?\'+info+ \'\" width=110 height=16 border=0 alt=\"WebDesign\">\');
</script>

<% end if %>
</td>
<td class=\"whitesmallertext\" align=right>
</td>
</tr>
</table>
</body>
</html>

Avatar billede tofte Juniormester
12. august 2001 - 17:22 #1
har du også vedlag stem.inc, eller er det bare mig som ikke kan finde den?
Avatar billede kpl Nybegynder
12. august 2001 - 17:26 #2
Sorry - den kommer her:

<%

function stem(id)

  font    = \"<font size=\'1\' face=\'Verdana\'>\"
  faktor  = 1
  barcolor = \"#FF0000\"

  Set RsVote = Server.CreateObject(\"ADODB.Connection\")
  DBPath = \"DBQ=\" & server.mappath(\"/log/stem.mdb\")
  RsVote.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

  Sql = \"Select * from navn where Id = \" & id
  Set Record =  RsVote.Execute(Sql)
  If Not Record.EOF then
    If (Len(Request.Cookies(\"stem\")(CSTR(id))))  then
      Dim Valg(5)
      valg(1) = Record(\"valg1\")
      valg(2) = Record(\"valg2\")
      valg(3) = Record(\"valg3\")
      valg(4) = Record(\"valg4\")
      valg(5) = Record(\"valg5\")

      response.write font & Record(\"Beskrivelse\")  & \"<br><br>\"

      Sql = \"Select count(*) as Found from Result where VoteId = \" & id
      Set Record =  RsVote.Execute(Sql)
      Ialt = Record(\"found\")

      Response.Write \"<div align=\'left\'><table border=\'0\'><tr>\"
      For i = 1 to 5
        If valg(i) <> \"\" then
          Sql = \"Select count(*) as Found from Result where VoteId = \" & id & \" and vote = \'\" & Valg(i) & \"\'\"
          Set Record = RsVote.Execute(Sql)
          Procent = 100/Ialt * Record(\"Found\")
          response.write \"<td>\" & font & Valg(i) & \"</td><td>\" & font & Round(procent) & \"%</td></tr>\"
        end if
      Next
      Response.Write \"</table></div>\"
      Response.Write \"Based on \" & Ialt & \" votes.\"    
    else
      session(\"retur\") = Request.ServerVariables(\"SCRIPT_NAME\")
      response.write font & Record(\"Beskrivelse\")
      response.write \"<html><head><title>Stem</title></head><body>\"
      response.write \"<form method=\'POST\' action=\'http://www.chameleon.dk/foreignhelp/stemreg.asp\'>\"
      response.write \"<input type=\'hidden\' name=\'Voteid\' value=\" & Id & \">\"
      If Record(\"Valg1\") <> \"\" then
        response.write \"<input type=\'radio\' value=\'\" & Record(\"Valg1\") & \"\' name=\'R1\'>\" & Record(\"Valg1\") & \"<br>\"
      end if 
      If Record(\"Valg2\") <> \"\" then
        response.write \"<input type=\'radio\' value=\'\" & Record(\"Valg2\") & \"\' name=\'R1\'>\" & Record(\"Valg2\") & \"<br>\"
      end if
      If Record(\"Valg3\") <> \"\" then
        response.write \"<input type=\'radio\' value=\'\" & Record(\"Valg3\") & \"\' name=\'R1\'>\" & Record(\"Valg3\") & \"<br>\"
      end if
      If Record(\"Valg4\") <> \"\" then
        response.write \"<input type=\'radio\' value=\'\" & Record(\"Valg4\") & \"\' name=\'R1\'>\" & Record(\"Valg4\") & \"<br>\"
      end if
      If Record(\"Valg5\") <> \"\" then
        response.write \"<input type=\'radio\' value=\'\" & Record(\"Valg5\") & \"\' name=\'R1\'>\" & Record(\"Valg5\") & \"<br>\"
      end if
      response.write \"<p>&nbsp;<input type=\'submit\' value=\'Vote\' name=\'B1\'>&nbsp;&nbsp; <input type=\'reset\' value=\'Reset\' name=\'B2\'></p>\"
      response.write \"</form></body></html>\"
    end if
  else
    response.write font & \"Fejl\"
  end if
end function
%>
Avatar billede lenka Nybegynder
12. august 2001 - 17:42 #3
Hvad hvis du nu sætter alle dine width=100% til at være width=\"100%\"? Ellers ser det jo ud som om et ASP tag afsluttes (width=100%> <--). Måske kunne det forårssage en syntax error længere nede, som det jo gør? Jeg ved det ikke, men måske et forsøg værd?
Avatar billede kpl Nybegynder
12. august 2001 - 18:03 #4
hmmmm.. nej - ligesåsnart jeg fjerner <% Stem(1) %>

fungerer scriptet perfekt. Den fil du omtaler er en include footer fil
Avatar billede kpl Nybegynder
12. august 2001 - 18:09 #5
Problemet er løst...
Selve <!-- #include file=\"stem.inc\" --> skulle ind i _header og <% Stem(1) %>
skulle placeres i footer.

Jeg har rodet med dette i flere timer - tak for forsøget
Avatar billede lenka Nybegynder
12. august 2001 - 18:11 #6
Ok, mange tak for pointerne, selvom mit svar ikke hjalp så meget :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester