Expected Wend hjælp ?
hejjeg for denne her fejl når jeg åbner min side:
Microsoft VBScript compilation error '800a03fa'
Expected 'Wend'
/kal.asp, line 229
siden.asp
<!-- #include file="base.asp" -->
<%
Session.LCID = 1030
if request("mode") = "opret" THEN
SQL1 = "INSERT INTO arrangement (dato, extra, klokken, prisv, prisb, pladser, kategori) VALUES ('" & request("dato") & "','" & request("extra") & "','" & request("klokken") & "','" & request("prisv") & "','" & request("prisb") & "','" & request("pladser") & "','" & request("kategori") & "')"
Conn.execute(SQL1)
Response.write "<strong>Fisktur oprettet</strong><br><br><br>"
End if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="style/akstyle.css" rel="stylesheet" type="text/css">
<title>Oprettelse af Fiskture</title>
</head>
<body>
Oprettelse af Fisketure<br>
<br>
<form name="form1" method="post" action="kal.asp">
<input name="mode" type="hidden" value="opret">
<table width="613" border="0">
<tr>
<td width="53">Dato</td>
<%
date1 = "01-01-" & year(date)
date2 = "31-12-" & year(date)+5
val=DateDiff("d",date1,date2)
%>
<td width="550">
<select name="dato" id="dato">
<% For i = 0 to val
if date = dateadd("d", i , date1) then %>
<option value="<%= dateadd("d", i, date1) %>" selected><%= weekdayname(weekday(dateadd("d", i, date1))) %> <%= dateadd("d", i, date1) %> </option>
<% else %>
<option value="<%= dateadd("d", i, date1) %>"><%= weekdayname(weekday(dateadd("d", i, date1))) %> <%= dateadd("d", i, date1) %></option>
<% end if
next %>
</select></td>
</tr>
<tr>
<td>Extra</td>
<td><textarea name="extra" id="extra"></textarea></td>
</tr>
<tr>
<td>Klokken</td>
<td>
<input name="klokken" type="text" id="klokken">
<span class="alm_text_sort">f.eks. <b><span style='font-family:Verdana'><font size="1">09,00 – 15.00</font><o:p></o:p></span></b></span><b><span style='font-family:Verdana'><o:p></o:p></span><span style='font-family:Verdana'><o:p></o:p></span></b></td>
</tr>
<tr>
<td>Pris Voksen </td>
<td>
<select name="prisv" id="prisv">
<option value="Kr. 25" selected>Kr. 25
<option value="Kr. 50">Kr. 50
<option value="Kr. 75">Kr. 75
<option value="Kr. 100">Kr. 100
<option value="Kr. 125">Kr. 125
<option value="Kr. 150">Kr. 150
<option value="Kr. 175">Kr. 175
<option value="Kr. 200">Kr. 200
<option value="Kr. 225">Kr. 225
<option value="Kr. 250">Kr. 250
<option value="Kr. 275">Kr. 275
<option value="Kr. 300">Kr. 300
<option value="Blå Flag">Blå Flag
<option value="Optaget">Optaget
</select></td>
</tr>
<tr>
<td>Pris Barn </td>
<td>
<select name="prisb" id="prisb">
<option value="Kr. 25" selected>Kr. 25
<option value="Kr. 50">Kr. 50
<option value="Kr. 75">Kr. 75
<option value="Kr. 100">Kr. 100
<option value="Kr. 125">Kr. 125
<option value="Kr. 150">Kr. 150
<option value="Kr. 175">Kr. 175
<option value="Kr. 200">Kr. 200
<option value="Kr. 225">Kr. 225
<option value="Kr. 250">Kr. 250
<option value="Kr. 275">Kr. 275
<option value="Kr. 300">Kr. 300
<option value="Blå Flag">Blå Flag
<option value="Optaget">Optaget
</select></td>
</tr>
<tr>
<td>Antal ledige pladser </td>
<td>
<select name="pladser" id="pladser">
<option value="Optaget">Optaget
<option value="Få Ledige pladser">Få Ledige pladser
<option>Ledige Pladser
<option value="Blå Flag">Blå Flag
<option value="Hele Skibet Kr. 1.000,-">Hele Skibet Kr. 1.000,-
<option value="Hele Skibet Kr. 1.500,-">Hele Skibet Kr. 1.500,-
<option value="Hele Skibet Kr. 2.000,-">Hele Skibet Kr. 2.000,-
<option value="Hele Skibet Kr. 2.500,-">Hele Skibet Kr. 2.500,-
<option value="Hele Skibet Kr. 3.000,-">Hele Skibet Kr. 3.000,-
<option value="Hele Skibet Kr. 3.500,-">Hele Skibet Kr. 3.500,-
<option value="Hele Skibet Kr. 4.000,-">Hele Skibet Kr. 4.000,-
<option value="Hele Skibet Kr. 4.500,-">Hele Skibet Kr. 4.500,-
<option value="Hele Skibet Kr. 5.000,-">Hele Skibet Kr. 5.000,-
</select></td>
</tr>
<tr>
<td>Havn::</td>
<td><select name="kategori" id="kategori">
<option value="Rødby">Rødby</option>
<option value="Hundested">Hundested</option>
<option value="Helsingør">Helsingør</option>
</select></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="Submit" value="Opret Fisketure"></td>
</tr>
</table>
<p> </p>
</form>
<p>
<% if Not len(request("aar")) > 0 THEN
aar = year(date())
else
aar = request("aar")
end if %>
</p>
<table width="200" border="0">
<tr>
<% FOR i=0 TO 5 %>
<td><a href="kal.asp?aar=<%= datepart("yyyy", date())+i %>"><%= datepart("yyyy", date())+i %></a></td>
<% next %>
</tr>
</table>
<table width="782" border="0">
<tr>
<td width="113"><b><span style='font-family:Verdana'><font size="1">Tidspunkter:</font><o:p></o:p></span></b></td>
<td width="37"><b><span style='font-family:Verdana'><font size="1">Extra</font></span></b></td>
<td width="90"><div align="center"><b><span style='font-family:Verdana'><font size="1">Klokken:</font><o:p></o:p></span></b></div></td>
<td width="79"><div align="center"><b><span style='font-size:7.5pt;font-family:Verdana'>Pris voksen:</span></b></div></td>
<td width="95"><div align="center"><b><span style='font-size:7.5pt;font-family:Verdana'>Pris barn:</span></b></div></td>
<td width="342"><b><span style='font-size:7.5pt;font-family:Verdana'>Antal ledige pladser:</span></b></td>
</tr>
</table>
<br>
<br>
<% While Not rs2.eof %>
<%
FOR i=1 TO 12
dato1 = "01-" & i & "-05"
SQLbeg = "SELECT * FROM arrangement WHERE AND month(dato)=" & i & " AND YEAR(dato) = " & aar & " ORDER BY dato"
set rs2 = conn.execute(SQLbeg)
IF not (rs2.bof or rs2.eof) THEN %>
<span class="fiske_text_rod"><strong><%= monthname(month(cdate(dato1))) %> - </strong></span><strong><span class="fiske_text_rod"><%= rs2("kategori") %></span></strong>
<br>
<% While Not rs2.eof %>
<br>
<table width="1000" border="0">
<tr>
<td width="147" class="fiske_text_rod"><strong><%= monthname(month(cdate(dato1))) %>
</strong></td>
<td width="117"> </td>
<td width="127"><b><span style='font-family:Verdana'><o:p></o:p></span></b></td>
<td width="113"> </td>
<td width="98"> </td>
<td width="159"> </td>
<td width="159"> </td>
</tr>
<tr class="alm_text_sort">
<td height="15"><b><span style='font-family:Verdana'><font size="1">Tidspunkter:</font><o:p></o:p></span></b></td>
<td><b><span style='font-family:Verdana'><font size="1">Havn</font></span></b></td>
<td><div align="left"><b><span style='font-family:Verdana'><font size="1">Klokken:</font><o:p></o:p></span></b></div></td>
<td><div align="left"><b><span style='font-size:7.5pt;font-family:Verdana'>Pris voksen:</span></b></div></td>
<td><div align="left"><b><span style='font-size:7.5pt;font-family:Verdana'>Pris barn:</span></b></div></td>
<td><div align="left"><b><span style='font-size:7.5pt;font-family:Verdana'>Antal ledige pladser:</span></b></div></td>
<td><div align="left"><b><span style='font-family:Verdana'><font size="1">Extra</font></span></b></div></td>
</tr>
<% While Not rs2.eof
if counter mod 2 = 0 then
bg = "bg1"
else
bg = "bg2"
end if
counter = counter + 1%>
<tr>
<td height="21" class="<%=bg%>"><%= weekdayname(weekday(rs2("dato"))) %> <%= rs2("dato") %></td>
<td class="<%=bg%>"><%= rs2("kategori") %></td>
<td><div align="left" class="<%=bg%>"><%= rs2("klokken") %></div></td>
<td><div align="left" class="<%=bg%>"><%= rs2("prisv") %></div></td>
<td><div align="left" class="<%=bg%>"><%= rs2("prisb") %></div></td>
<td><div align="left" class="<%=bg%>"><%= rs2("pladser") %></div></td>
<td><div align="left" class="<%=bg%>"><%= rs2("extra") %><b><a href="rediger.asp?id=<%= rs2("kategori") %>" class="alm_text_rod">Ret</a></b></div></td>
</tr>
<% rs2.movenext
wend %>
</table>
</p>
</body>
</html>
