else if og Do While
har et script som ser så ledes ud:<%
sql = "SELECT * From grupper Where gruppeId = "& Request.QueryString("id") & " order by ip4 asc "
Set rs = Con.Execute(Sql)
Do While Not rs.EOF
%>
<head><script type="text/javascript">
<!--
function sletip() {
var answer = confirm("Er du sikker på du vil slette <%=rs("ip1")%>.<%=rs("ip2")%>.<%=rs("ip3")%>.<%=rs("ip4")%>?")
if (answer){
alert("Slettes")
window.location = "delete.asp?mode=ip&id=<%=rs("id")%>";
}
else {
alert("Så slipper <%=rs("ip1")%>.<%=rs("ip2")%>.<%=rs("ip3")%>.<%=rs("ip4")%> denne gang")
}
}
//-->
</script></head>
<tr>
<td width="175" height="18" style="border-bottom: 1px solid #F3F3F3"><font face="Verdana" size="1"> <b><%=rs("ip1")%>.<%=rs("ip2")%>.<%=rs("ip3")%>.<%=rs("ip4")%></b></td>
<td width="46" height="18" style="border-bottom: 1px solid #F3F3F3">
<% if rs("link")= "http" AND "remote" then %><a href="http://<%=rs("ip1")%>.<%=rs("ip2")%>.<%=rs("ip3")%>.<%=rs("ip4")%>"><img border="0" src="icon-ie.jpg"></a><a href="remote/<%=rs("ip1")%>.<%=rs("ip2")%>.<%=rs("ip3")%>.<%=rs("ip4")%>.rdp"><img border="0" src="wn_rdp_2_0.png"></a>
<% else if rs("link")= "http" then %><a href="http://<%=rs("ip1")%>.<%=rs("ip2")%>.<%=rs("ip3")%>.<%=rs("ip4")%>"><img border="0" src="icon-ie.jpg"></a></td>
<% else if rs("link")= "remote" then %><a href="remote/<%=rs("ip1")%>.<%=rs("ip2")%>.<%=rs("ip3")%>.<%=rs("ip4")%>.rdp"><img border="0" src="wn_rdp_2_0.png">
<% else %>
<% end if%>
<td width="241" height="18" style="border-bottom: 1px solid #F3F3F3"><font face="Verdana" size="1"><%=rs("dns")%></font></td>
<td width="241" height="18" style="border-bottom: 1px solid #F3F3F3"><font face="Verdana" size="1"> <%=rs("macadresse")%></font></td>
<td width="188" height="18" style="border-bottom: 1px solid #F3F3F3"><font face="Verdana" size="1"><%=rs("beskrivelse")%></font></td>
<td width="46" height="18" style="border-bottom: 1px solid #F3F3F3" align="center"><a href="ret.asp?mode=ret&id=<%=rs("id")%>"><font face="Verdana" size="1">v</font></a></td>
<td width="46" height="18" style="border-bottom: 1px solid #F3F3F3" align="center"><a href="" onClick="sletip()"><font face="Verdana" size="1">x</font></a></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
og jeg får følgende fejl:
Microsoft VBScript compilation error '800a040e'
'loop' without 'do'
/gruppe.asp, line 95
Loop
^
hvis jeg fjerner else if så virker løkken..! hvad kunne en alternativ løsning værer? er lidt blank for ider
