Fejlsøgning i dette den siger der mangler "wend"
Hejsa,jeg har følgende asp fil. Den siger "Expected 'Wend'" som fejl.
<!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">
<head>
<title>Alma's Hjemmeside</title>
<link rel="stylesheet" href="style.css" type="text/css">
<!-- <meta http-equiv="content-type" content="text/html;charset=utf-8" />-->
<script type="text/javascript">dqm__codebase = "dhtml_nav/" </script>
<script type="text/javascript" src="dhtml_nav/navdata-dk.js"></script>
<script type="text/javascript" src="dhtml_nav/dqm_loader.js"></script>
</head>
<body>
<div id="page" align="center">
<div id="pageplaceholder">
<div id="logo"></div>
<!-- MENU -->
<div id="menu">
<div id="menu-links" align="left">
<div id='m1' class='menu-links'><img src='images/m-frontpage-0.gif' id='menu2' name='menu2' width='76' height='22' alt=''
border='0'></div>
<div id='m2' class='menu-links'><img src='images/m-pics-0.gif' id='menu3' name='menu3' width='79' height='22' alt=''
border='0'></div>
<div id='m3' class='menu-links'><img src='images/m-calendar-0.gif' id='menu4' name='menu4' width='87' height='22' alt=''
border='0'></div>
<div id='m4' class='menu-links'><img src='images/m-tree-0.gif' id='menu5' name='menu5' width='76' height='22' alt=''
border='0'></div>
<div id='m5' class='menu-links'><img src='images/m-vote-0.gif' id='menu6' name='menu6' width='99' height='22' alt=''
border='0'></div>
<div id="m6" class='menu-links'><img src='images/m-guest-0.gif' id="menu7" name='menu7' width='93' height='22' alt=''
border='0'></div>
<div id='m-right' class='menu-links'><img src='images/m-right.gif' width='260' height='22' alt=''></div>
</div>
</div>
<!-- CONTENT -->
<div id="default_content_main" align="left">
<div id="headline">Afstemninger & Konkurrence</div>
<br>
<br>
<b>Tak for din stemme</b>
<br />
<%
set choice = Request.Form("answerID")
set nameVoter = Request.Form("txtName")
set voteIP = Request.ServerVariables("REMOTE_HOST")
'set qID = Request.QueryString("qid")
if (choice <> "") then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=oyan_dk;UID=***;PWD=***;"
sql = "INSERT INTO s2006_voteAnswers VALUES ('','"& choice & "','" & voteIP & "','" & nameVoter & "')"
set rs = conn.execute(sql)
Response.Write("Dit svar er registreret")
else
Response.Write("...men noget gik galt :-(")
end if
Response.Write("<br />Her under kan du se hvad andre har gættet og stemt på.")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=oyan_dk;UID=oyan_dk;PWD=nmss4sc;"
set rs = conn.execute("SELECT * FROM s2006_votings")
while not rs.EOF
Response.Write(rs("Question"))
Response.Write("<table>")
Response.Write("<tr>")
set rsPos = conn.execute("SELECT * FROM s2006_voteAnswerPos WHERE votingID =" & rs("ID"))
totalPos = 0
do while not rsPos.EOF
totalPos = totalPos+1
rsPos.MoveNext
loop
rsPos.MoveFirst
do while not rsPos.EOF
set rsNoAns = conn.execute("SELECT * FROM s2006_voteAnswers WHERE AnswerPosID=" & rsPos("ID"))
totalAns = 0
do while not rsNoAns.EOF
totalAns = totalAns+1
rsNoAns.MoveNext
loop
if (totalAns > 0) then
set height = 300*totalAns/totalPos
set percent = 100*totalAns/totalPos
Response.Write("<td><img src=""images/votecol.jpg"" alt=""svar"" width=""16"" height=" & heigth & " /></td>")
else
Response.Write("<td><img src=""images/votecol.jpg"" alt=""svar"" width=""16"" height=""1"" /></td>")
end if
rsPos.MoveNext
loop
Response.Write("</tr></table><br /><br />")
rs.MoveNext
wend
%>
<br />
<div style="CLEAR:both"></div>
</div> <!-- BOTTOM -->
<div id="bottom"><img src="images/bottom.gif" width="770" height="6" alt=""></div>
</div>
</div>
</body>
</html>
