kan ik finde Expected 'End' fejl

det er selvfølgelig ikke hele koden, sig vis i vil have den!!

Nogle gange ser jeg den fejl hvis man copy/paster noget kode fra en hjemmeside eksvis eksperten. Det er som om der kommer en ekstra karakter med til sidst i linjen og det hjælper at flytte kurseren hen efter den sidste ) og tykke på Delete ind til Set rs = .. kommer helt op lige før kurseren og så lave linje skiftet igen.

men den linje er vist længere en 53 karakte?

du viser starten af 3 if sætninger men ingen end if  slutninger

Nej, det hjælper ikke, jeg smider lige hele koden herop:

<!--#include file="brugercheck.asp"-->
<%
if request.querystring("action") = "laes" then
    strSQL = "SELECT * FROM besked where id = " & Request.Querystring("id")
    Set rs = Conn.Execute(strSQL)
    if session("aktivbruger") = rs("til") then
        response.write "<table border='0'>"
        response.write "<tr><td>"
    strSQL = "SELECT * FROM brugere where id = " & rs("fraid")
    Set rss = Conn.Execute(strSQL)
    if rss("imgtype") = "1" then
    response.write "<br><img src='images/profilimg/" & rss("privatimg") & "' width='105'>"
    elseif rss("billede") => "1" then
    response.write "<br><img src='images/profil/<%=rss("billede")%>.gif'>"
            else
    response.write "<b>Intet billed</b>"
            end if
        response.write "</td><td>"
        response.write "<h2>Læs besked</h2>"
        response.write "<table border='0' width='37%'>"
        response.write "  <tr>"
        response.write "    <td width='18%'></td>"
        response.write "    <td width='17%'>Fra:</td>"
        response.write "    <td width='84%'><a href='default.asp?side=brugerdata&vis=bruger&id=" & rs("fraid")& "'>" & rs("fra")& "</a></td>"
        response.write "  </tr>"
        response.write "  <tr>"
        response.write "    <td width='18%'></td>"
        response.write "    <td width='17%'>Dato:</td>"
        response.write "    <td width='84%'>" & rs("oprettet") & "</td>"
        response.write "  </tr>"
        response.write "  <tr>"
        response.write "    <td width='18%'></td>"
        response.write "    <td width='17%'>Emne:</td>"
        response.write "    <td width='84%'>" & rs("overskrift") & "</td>"
        response.write "  </tr>"
        response.write "</table>"
        %>
        <p>|<a href="default.asp?side=profil&vis=beskedcenter&action=svar&mode=svar&id=<%=request.querystring("id")%>">Besvar</a>| |<a href="default.asp?side=profil&vis=beskedcenter&action=svar&mode=vidersend&id=<%=request.querystring("id")%>">Vidersend</a>| |<a href="default.asp?side=profil&vis=beskedcenter&action=slet&id=<%=request.querystring("id")%><% response.write "&i9dq=" & session("aktivbruger") * 2 %>">Slet</a>|</p>
        <%
        response.write "<table border='0' width='58%'>"
        response.write "  <tr>"
        response.write "    <td width='100%'><B>Besked:</B></td>"
        response.write "  </tr>"
        response.write "  <tr>"
        response.write "    <td width='100%'><p class='debattekst'>" & MakeLinks("blank",replace(rs("besked"), vbCrLf, "<br>")) & "</p></td>"
        response.write "  </tr>"
        response.write "</table><br>"
        response.write "</td></tr></table>"
        response.write "<input type=button value='Tilbage' class='knap' onClick='java script: history.go(-1)'>"
        strLaes = rs("laest") + 1
        strSQL = "UPDATE besked SET laest= '" & strLaes & "' where id = " & rs("id")
        Conn.Execute(strSQL)
    else
        %>
        <h2>Hov den besked er vidst ikke til dig!</h2>
        <p>Du har tilegnet dig adgang til en besked som ikke tilhøre dig!<br>Vi har registreret din ip-adresse og brugernavn, og du vil høre fra vores administrator.</p>
        <%
        strSQL = "INSERT into historie (dato, admin, tekst, kode) values ('"
        strSQL = strSQL & now() & "','"
        strSQL = strSQL & "0" & "','"
        strSQL = strSQL & "HACK: " & session("brugernavn") & ", " & session("aktivbruger") & " - ip: " & Request.ServerVariables("REMOTE_ADDR") & ". Prøvede at læse besked id: " & request.querystring("id") & "','"
        strSQL = strSQL & "1" & "')"
        conn.execute("strSQL")
    end if   


elseif request.querystring("action") = "ny" then
%>
    <h1>Send besked</h1>
    <form method='POST' action='default.asp?side=profil&vis=beskedcenter&action=send'>
    <table border="0" width="40%" height="45"> 
        <tr>   
            <td width="8%" height="19">&nbsp;</td>   
            <td width="23%" height="19">Til:</td>
            <td width="69%" height="19"><input type="text" name="til" size="23" class="textbox" value="<%=request.querystring("modtager")%>"></td> 
        </tr> 
        <tr>    <td width="8%" height="1">&nbsp;</td>   
            <td width="23%" height="1">Emne:</td>   
            <td width="69%" height="1"><p><input type="text" name="overskrift" size="23" class="textbox">&nbsp;</p></td> 
        </tr>
    </table>
    <p><b>Besked:<br></b>
    <textarea rows="7" name="besked" class="textbox" cols="41"></textarea></p>
    <p><input type="submit" value="Send" name="B1" class="knap">  <input type="reset" value="Nulstil" name="B2" class="knap"></p>
    <p>&nbsp;</p>
    </form>
    <input type=button value="Tilbage" class="knap" onClick="java script: history.go(-1)"><br><br>'


<%
elseif request.querystring("action") = "svar" then
    strSQL = "SELECT * from besked where id = " & request.querystring("id")
    set rs = conn.execute(strSQL)
    modesende = request.querystring("mode")'

    if modesend = "svar" then
        response.write "<h1>Send besked</h1>"
    else
        response.write "<h1>Vidersend besked</h1>"
    end if %>

    <form method="POST" action="default.asp?side=profil&vis=beskedcenter&action=send">
    <table border="0" width="40%" height="45"> 
        <tr>   
            <td width="8%" height="19">&nbsp;</td>   
            <td width="23%" height="19">Til:</td>
            <td width="69%" height="19"><input type="text" name="til" size="23" class="textbox" value="<%=rs("fra")%>"></td> 
        </tr> 
        <tr>    <td width="8%" height="1">&nbsp;</td>   
            <td width="23%" height="1">Emne:</td>   
            <td width="69%" height="1"><p><input type="text" name="overskrift" size="23" class="textbox" value="
    <%
    if modesend = "svar" then
        response.write "Svar: " & rs("Overskrift")
    else
        response.write "VS: " & rs("Overskrift")
    end if
    %>">&nbsp;</p></td> 
        </tr>
    </table>
    <p><b>Besked:<br></b>
    <textarea rows="7" name="besked" class="textbox" cols="41"><% response.write " " & vbCrLf & "---=-=-=:)=-=-=---" & vbCrLf & rs("besked") %></textarea></p>
    <p><input type="submit" value="Send" name="B1" class="knap">  <input type="reset" value="Nulstil" name="B2" class="knap"></p>
    <p>&nbsp;</p>
    </form>
    <input type=button value="Tilbage" class="knap" onClick="java script: history.go(-1)"><br><br>



<%
elseif request.querystring("action") = "slet" then
    If Request.Querystring("ok") = "ja" then
        if request.querystring("i9dq") / 2 = session("aktivbruger") then
            strSQL = "DELETE * from besked where id = " & Request.Querystring("id")
            conn.execute(strSQL)
            response.redirect "default.asp?side=profil&vis=beskedcenter&action=besked&besked=slet"
        else
            %>
            <h2>Hov den besked er vidst ikke til dig!</h2>
            <p>Du har tilegnet dig adgang til en besked som ikke tilhøre dig!<br>Vi har registreret din ip-adresse og brugernavn, og du vil høre fra vores administrator.</p>
            <%
            strSQL = "INSERT into historie (dato, admin, tekst, kode) values ('"
            strSQL = strSQL & now() & "','"
            strSQL = strSQL & "0" & "','"
            strSQL = strSQL & "HACK: " & session("brugernavn") & ", " & session("aktivbruger") & " - ip: " & Request.ServerVariables("REMOTE_ADDR") & ". Prøvede at slette besked id: " & request.querystring("id") & "','"
            strSQL = strSQL & "1" & "')"
            conn.execute("strSQL")
        end if
    else
        response.write "<h2>Slet besked</h2>"
        response.write "<p>Er du sikker på du vil slette denne meddelse?</p>"
        %>
        <p><b> |<a href="default.asp?side=profil&vis=beskedcenter&action=slet&id=<%=request.querystring("id")%>&ok=ja&i9dq=<%=request.querystring("i9dq")%>">JA</a>| <a href="default.asp?side=profil&vis=beskedcenter&action=laes&id=<%=Request.Querystring("id")%>">NEJ</a>|</p>
        <%
    end if



elseif request.querystring("action") = "besked" then
    if request.querystring("besked") = "slet" then
%>
        <h2>Slet besked</h2>
        <p>Beskeden er blevet slettet <br>
        <a href="default.asp?side=profil&vis=beskedcenter">Tilbage</a></p>
    <%
    elseif request.querystring("besked") = "sendt" then
    %>
        <h2>Send besked</h2>
        <p>Beskeden er blevet sendt til <%=request.querystring("modtager")%> <br>
        <a href="default.asp?side=profil&vis=beskedcenter">Tilbage</a></p>
    <%
    end if



elseif request.querystring("action") = "send" then
    strSQL = "SELECT * FROM brugere"
    Set rs = Conn.Execute(strSQL)
    strOK = 0
    do
        strFraForm = Trim(Replace(Request.Form("til")," ' "," " ))
        strFraDb = Trim(Replace(rs("brugernavn")," ' "," " ))
        if lcase(strFraForm) = lcase(strFradb) then
            strOK = 1
            strID = rs("id")
            strNyeBeskeder = rs("Nyebeskeder")
            exit do
        else
            rs.movenext
        end if
    loop while not rs.EOF

    If strOK = 0 then
        response.write "Brugernavnet: " & strFraForm & " er ugyldigt."
    else
        Sql = "Insert into besked (til, fraid, fra, overskrift, besked, oprettet, laest) values('"
        Sql = Sql & strID & "','"
        Sql = Sql & session("aktivBruger") & "','"
        Sql = Sql & session("BrugerNavn") & "','"
        Sql = Sql & Request.form("overskrift") & "','"
        Sql = Sql & Request.form("besked") & "','"
        Sql = Sql & now() & "','"
        Sql = Sql & "0" & "')"
        conn.Execute(Sql)
        sql2 = "UPDATE brugere SET Nyebeskeder= '" & strNyeBeskeder + 1 & "' where id = " & strID
        conn.Execute(sql2)
        response.redirect "default.asp?side=profil&vis=beskedcenter&action=besked&besked=sendt&modtager=" & request.form("til")
    end if



elseif request.querystring("action") = "udbakke" then
    response.write "UDBAKKE"

else
    strBeskeder = 0

    strSQL = "SELECT * FROM besked order by oprettet DESC"
    Set rs = Conn.Execute(strSQL)

    response.write "<h2>INDBAKKE</h2>"
    response.write "<form method='POST' action='default.asp?side=profil&vis=beskedcenter&action=ny'><input type='submit' value='Ny besked' name='do' class='knap'></form>"
    response.write "<table border='0' width='80%'>"
    response.write "<tr>"
      response.write "<td width='20%' bgcolor='#006699'><b><font color='#FFFFFF'>Fra</font></b></td>"
      response.write "<td width='40%' bgcolor='#006699'><b><font color='#FFFFFF'>Besked</font></b></td>"
    response.write "<td width='29%' bgcolor='#006699'><b><font color='#FFFFFF'>Sendt</font></b></td>"
    response.write "</tr>"

    do
        if rs("til") = session("aktivBruger") then
            strBeskeder = strBeskeder + 1
            response.write "<tr>"
              if rs("laest") = 0 then
                response.write "<td width='20%'><IMG SRC='../images/nybesked.jpg' BORDER='0' ALT='Ny besked'> <a href='default.asp?side=brugerdata&vis=bruger&id=" & rs("fraid") & "'>" & rs("fra") & "</a></td>"
            else
                response.write "<td width='20%'><IMG SRC='../images/besked.gif' BORDER='0' ALT='Ny besked'> <a href='default.asp?side=brugerdata&vis=bruger&id=" & rs("fraid") & "'>" & rs("fra") & "</a></td>"
            end if
            if rs("overskrift") = "" then response.write "<td width='40%'><A HREF='default.asp?side=profil&vis=beskedcenter&action=laes&id=" & rs("id") & "'>Intet Emne</A></td>" else response.write "<td width='40%'><A HREF='default.asp?side=profil&vis=beskedcenter&action=laes&id=" & rs("id") & "'>" & rs("overskrift") & "</A></td>"
            response.write "<td width='29%'>" & rs("oprettet") & "</td>"
            response.write "</tr>"
            rs.movenext

        else
            rs.movenext
        end if
    loop while not rs.eof
    if strBeskeder = 0 then
        response.write "<tr>"
          response.write "<td width='20%'><b></font></b></td>"
        response.write "<td width='40%'><b>Din indbakke er tom.</b></td>"
        response.write "<td width='29%'><b></font></b></td>"
        response.write "</tr>"   
    end if
    response.write "</table>"

    if strBeskeder > 40 then
        response.write "<p><b>Du er tæt på at opfylde alle de frie pladser du har til rådighed til beskeder!<br> Hvis alle dine pladser bliver fyldt op, vil de ældste beskeder automatisk blive slettet når du for nye beskeder!</p>"
    end if
    Response.write "<p>Du har brugt <b>" & strBeskeder & "</b> af de <b>50</b> frie pladser du har til rådighed til beskeder.</p>"
end if
%>

ret linje 14 til:

response.write "<br><img src='images/profil/ "& rss("billede")& ".gif'>"

ja det har du da ret i, takker

jamen så får du et svar fra mig:>