Kan ikke finde fejlen i denne kode noget med "end"
Hejjeg har denne kode og jeg kan overhovedet ikke lige overskue hvad fejlen er...håber i kna hjælpe:-)
----Kode----
<%
if session("brugerOk") <> "ja" then
response.redirect "default.asp?side=login&action=do_login"
end if
if request.querystring("vis") = "bruger" then
strSQL = "SELECT * FROM brugere where id = " & request.querystring("id")
set rs = conn.execute(strSQL) %>
<h1>Profil for <%=rs("brugernavn")%></h1><hr color="#336699">
<table width="500"><tr><td valign="top" width="38">
<% if rs("imgtype") = "1" then
response.write "<br><img src='images/profilimg/" & rs("privatimg") & "' width='105'>"
elseif rs("billede") => "1" then %>
<br><img src="images/profil/<%=rs("billede")%>.gif">
<% else %>
<b>Intet billed</b>
<% end if %>
</td><td width="834" valign="top">
<table valign="top" bgcolor="#336699" style="border-collapse: collapse" bordercolor="#111111" cellspacing="1" width="100%"><% if rs("vsperson") = 1 then %>
<tr>
<td width="143"><font color="#FFFFFF">Fulde navn:</font></td>
<td width="226"><font color="#FFFFFF"><%=rs("fornavn") & " "%> <%=rs("efternavn")%></td>
</tr>
<% if rs("efterskole") = session("efterskole") then %>
<tr>
<td valign="top" width="143"><font color="#FFFFFF">Adresse:</font></td>
<td width="226"><font color="#FFFFFF"><%=rs("adresse1")%><br><%=rs("postnummer") & " "%><%=rs("bynavn")%><br><%=rs("land")%></td>
</tr>
<tr>
<td valign="top" width="143"><font color="#FFFFFF">Mobil nummer:</font></td>
<td width="226"><font color="#FFFFFF"><%=rs("mobil")%></td>
</tr>
<% end if %>
<% if rs("vsperson") = 2 then %>
<tr>
<td width="143"><font color="#FFFFFF">Adresse:</font></td>
<td width="226"><font color="#FFFFFF"><%=rs("adresse1")%>
<br><%=rs("postnummer") & " "%> <%=rs("bynavn")%><br><%=rs("land")%></td>
</tr>
<tr>
<td width="143"><font color="#FFFFFF">Mobil nummer:</font></td>
<% response.write "<td width='226'><font color='#FFFFFF'>" & rs("mobil") & "</td>" %>
</tr>
<% end if
strSQL = "SELECT * FROM efterskoler where id = " & rs("efterskole")
set rss = conn.execute(strSQL)%>
<tr>
<td valign="top" width="143"><font color="#FFFFFF">Efterskole:</font></td>
<% if rs("efterskole") = "-1" then %>
<td width="226"><font color="#FFFFFF">Ingen</font></TD>
<% else %>
<td width="21"><font color="#FFFFFF"><%=rss("navn")%></td>
<% end if %>
</tr>
<% if rs("vsefterskole") = 1 then
if rs("efterskole") = session("efterskole") and rs("aargang") = session("aargang") then %>
<tr>
<td width="143"><font color="#FFFFFF">Årgang</font></td>
<td width="226"><font color="#FFFFFF"><%=rs("aargang")%></td>
</tr>
<tr>
<td valign="top" width="143"><font color="#FFFFFF">klasse:</font></td>
<td width="226"><font color="#FFFFFF"><%=rs("klasse")%></td>
</tr>
<% end if %>
<% end if %>
<% if rs("vsefterskole") = 2 then
strSQL = "SELECT * FROM efterskoler where id = " & rs("efterskole")
set rss = conn.execute(strSQL)%>
<tr>
<td valign="top" width="143"><font color="#FFFFFF">Årgang</font></td>
<td width="226"><font color="#FFFFFF"><%=rs("aargang")%></td>
</tr>
<tr>
<td width="143"><font color="#FFFFFF">klasse:</font></td>
<td width="226"><font color="#FFFFFF"><%=rs("klasse")%></td>
</tr>
<% end if %>
<% if rs("vskontakt") = 1 then
if rs("efterskole") = session("efterskole") then %>
<tr>
<td width="143"><font color="#FFFFFF">E-mail</font></td>
<td width="226"><font color="#FFFFFF"><%=rs("email")%></td>
</tr>
<% if not rs("icq") = "" then %>
<tr>
<td width="143"><font color="#FFFFFF">ICQ</font></td>
<td width="226"><font color="#FFFFFF"><%=rs("icq")%>
<img src="http://web.icq.com/whitepages/online?icq=<%=rs("icq")%>&img=21"></td>
</tr>
<% end if %>
<tr>
<td width="143"><font color="#FFFFFF">Messenger</font></td>
<td width="226"><font color="#FFFFFF"><%=rs("messenger")%></td>
</tr>
<tr>
<td width="143"><font color="#FFFFFF">Køn</font></td>
<td width="226"><%if rs("koen") = 0 then response.write "<font color='#FFFFFF'>Dreng" else response.write "<font color='#FFFFFF'>Pige"%></td>
</tr>
<tr>
<td width="143"><font color="#FFFFFF">Fødselsdato:</font></td>
<td valign="top" width="226"><font color="#FFFFFF"><%=rs("dag")%>/<%=rs("maaned")%>/<%=rs("aar")%></td>
</tr>
<tr>
<td width="143"><font color="#FFFFFF">Profil/beskrivelse:</font></td>
<td valign="top" width="226"><font color="#FFFFFF"><%=rs("beskrivelse")%></td>
</tr>
<% end if %>
<% end if %>
<% If rs("vskontakt") = 2 then %>
<tr>
<td width="143"><font color="#FFFFFF">E-mail</font></td>
<td width="226"><font color="#FFFFFF"><%=rs("email")%></td>
</tr>
<% if not rs("icq") = "" then %>
<tr>
<td width="143"><font color="#FFFFFF">ICQ</font></td>
<td width="226"><font color="#FFFFFF"><%=rs("icq")%>
<% response.write "<img src='http://web.icq.com/whitepages/online?icq=" & response.write rs("icq")& "&img=21'></td>"
</tr>
<% end if %>
<tr>
<td width="143"><font color="#FFFFFF">Messenger</font></td>
<td width="226"><font color="#FFFFFF"><%=rs("messenger")%></td>
</tr>
<tr>
<td valign="top" width="143"><font color="#FFFFFF">Køn</font></td>
<td width="226"><%if rs("koen") = 0 then response.write "<font color='#FFFFFF'>Dreng" else response.write "<font color='#FFFFFF'>Pige"%></td>
</tr>
<tr>
<td width="143"><font color="#FFFFFF">Fødselsdato:</font></td>
<td width="226"><font color="#FFFFFF"><%=rs("dag")%>/<%=rs("maaned")%>/<%=rs("aar")%></td>
</tr>
<tr>
<td width="143"><font color="#FFFFFF">Profil/beskrivelse:</font></td>
<td width="226"><font color="#FFFFFF"><%=rs("beskrivelse")%></font></td>
</tr><br>
<% end if %>
</table></table><br>
<form action="default.asp?side=profil&vis=beskedcenter&action=ny&modtager=<%=rs("brugernavn")%>" method="post">
<input type="submit" value="Send besked til <%=rs("brugernavn")%>" name="besked" class="knap">
</form>
<input type=button value='Tilbage' class='knap' onClick='java script: history.go(-1)'>
<% else
response.write "<h1>Brugere på efterskole-elev.dk</h1>"
SQL = "select * from efterskoler order by navn ASC"
set rss = conn.execute(SQL) %>
<form action="default.asp?side=brugerdata" name="efterskole" method="post">
Vælg efterskole:
<select onchange="document.efterskole.submit();" name="ef">
<option value="0">Vis alle</option>
<% do %>
<option value="<%=rss("id")%>"><%=rss("navn")%></option>
<% rss.movenext
loop while not rss.eof %>
<option value="0">Vis alle</option>
</select></form>
<%
sql = "select * from brugere where efterskole = " & request("ef")
set ef = conn.execute(sql)
if not (ef.bof or ef.eof) then
if request("soter") = "navn" then
if request("ef") = session("efterskole") then
response.write "<a href='default.asp?side=brugerdata&ef=" & session("efterskole") & "&soter=brugernavn'>Soter efter brugernavn</a>"
else
response.write "<a href='default.asp?side=brugerdata&soter=brugernavn'>Soter efter brugernavn</a>"
end if
else
if request("ef") = session("efterskole") then
response.write "<a href='default.asp?side=brugerdata&ef=" & session("efterskole") & "&soter=fornavn'>Soter efter fornavn</a>"
else
response.write "<a href='default.asp?side=brugerdata&soter=fornavn'>Soter efter fornavn</a>"
end if
end if
response.write "<br>"
dim soter
if request("soter") = "fornavn" then
soter = "fornavn"
else
soter = "brugernavn"
end if
end if
if request("ef") = "0" then
Set rs = Conn.Execute("Select * From brugere Order By " & soter & "")
else
Set rs = Conn.Execute("Select * From brugere where efterskole = " & request("ef") & " order by " & soter & "")
end if
if request("ef") = "0" then
response.write "<h2>Brugere fra alle efterskoler</h2><br>"
else
SQL = "select * from efterskoler where id = " & request("ef")
set rsss = conn.execute(SQL)
response.write "<br><h2>Brugere fra " & rsss("navn") & "</h2><br>"
end if
if (rs.eof or rs.bof) then
efterskole = "0"
response.write "Der er inge brugere at vise for denne efterskole"
else
Response.Write "<table cellspacing='1'>"
do
If UCase(Left(rs("Brugernavn"), 1)) <> ForrigeBogstav Then
Response.Write "<tr><td colspan='2'><h3>" & UCase(Left(rs("Brugernavn"), 1)) & "</h3></td></tr>"
End If
Response.Write "<tr><td bgcolor='#336699'><a href='default.asp?side=brugerdata&vis=bruger&id=" & rs("id") & "'><font color='#ffffff'>" & rs("Brugernavn") & "</a></td><td bgcolor='#336699'><font color='#ffffff'>" & rs("fornavn") & " " & rs("efternavn") & "</font></td></tr>"
ForrigeBogstav = UCase(Left(rs("Brugernavn"), 1))
rs.MoveNext
loop while not rs.eof
Response.Write "</table>"
end if
end if
%>
----kode----
Fejl:
Error Type:
Sun ONE ASP VBScript compilation (0x800A03F6)
Expected 'End'
beskyttede/bruger_liste.asp, line 54, column 87
MVH
Andreas
