Hjælp......!!!!!
<%@ Language=VBScript %><%
Set dataconn = Server.CreateObject("ADODB.Connection")
dataconn.ConnectionTimeout = Application("dataconn_ConnectionTimeout")
dataconn.CommandTimeout = Application("dataconn_CommandTimeout")
dataconnUser = Application("dataconn_RuntimeUserName")
dataconnPass = Application("dataconn_RuntimePassword")
dataconn.Open Application("dataconn_ConnectionString"),dataconnUser, dataconnPass
Set CmdTemp = Server.CreateObject("ADODB.Command")
Set CmdTemp.ActiveConnection = dataconn
Set rstmp = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT * from Nyheder order by slutdato"
CmdTemp.CommandText = Sql
CmdTemp.CommandType = 1
rstmp.Open CmdTemp, , 0, 1
%>
<html>
<head>
<title></title>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#F5F9DE" background="../images/bg-gul-bue.jpg">
<font face="Arial">
<center><br><br>
<table width="400" border="1" cellspacing="0" cellpadding="1">
<% rstmp1.moveNext %>
<% Wend %>
<tr><td colspan="2" align="center" bgcolor="ff0000""><b>Nyheder:</b></td></tr>
<tr><td colspan="2" align="center"><small><b><a href="../News/admin-nyheder-ny.asp"><img src="../images/opret.gif" border="0" WIDTH="80" HEIGHT="22"></a></b></small></td></tr>
<%
Set CmdTemp1 = Server.CreateObject("ADODB.Command")
Set CmdTemp1.ActiveConnection = dataconn
Set rstmp1 = Server.CreateObject("ADODB.Recordset")
Sql1 = "SELECT * from nyheder order by slutdato"
CmdTemp1.CommandText = Sql
CmdTemp1.CommandType = 1
rstmp1.Open CmdTemp1, , 0, 1
%>
<% While Not rstmp1.EOF %>
<tr><td><% = rstmp1("overskrift") %></td>
<td align="center"><a href="../News/admin-nyheder.asp?valg=<% = rstmp1("id") %>"><img src="../images/rediger.gif" border="0" WIDTH="100" HEIGHT="22"></a>
<a href="../News/admin-nyheder-slet-check.asp?valg=<% = rstmp1("id") %>"><img src="../images/slet.gif" border="0" WIDTH="80" HEIGHT="22"></a></td></tr>
<% rstmp1.moveNext %>
<% Wend %>
</table>
</font>
</body>
</html>
Første gang der står <% Wend %>, får jeg en fejlmeddelse, hvad er der galt ???
