If page = "viewmsg" then // Kan slet ikke udskrive noget

Hej ekperter
Jeg har en side hvor alle mine scripts ligger i default.asp og bliver kørt med if page = "action" then osv osv osv osv.
Det virker fint nok med alle de andre script undtagen et jeg har som ser ud af følgende:

<!--#include file="functions.inc"-->
<%
Function LinkTekst(Tekst)
    LinkTekst = ""
    A_Start = 1

    if InStr(Tekst, "www") then
    do until A_Start >= len(Tekst)
    LinkChr = InStr(A_Start, Tekst, "www")
    NextSpace = InStr(LinkChr, Tekst, "" & "<br>")

    if NextSpace = 0 then NextSpace = Len(Tekst) + 1

    URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)

    LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
      LinkTekst = LinkTekst & "<A Href=http://" & URL & " style=text-decoration:none; target=_blank>" & URL & "</A>"

      if Int(LinkChr) = Int(InStrRev(Tekst, "www")) then
      LinkTekst = LinkTekst & Mid(Tekst, NextSpace, Len(Tekst) - A_Start)
    A_Start = Len(Tekst)
    else
    A_Start = NextSpace
    end if
    loop
    else
    LinkTekst = Tekst
    end if
    End Function



Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

strSQL = "SELECT * FROM Forums WHERE (ID = " & Request("ForumId") & ")"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    intForumID = rs("ID")
    strForum = rs("Forum")
    strDescription = rs("Description")
End If

strSQL = "SELECT *, Format$([date],'dd/mm/yyyy') AS FormDate, Format$([date],'hh:mm') AS FormTime FROM Entries WHERE (ID = " & Request("Id") & ") AND (OrgThread = True)"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    intMessageID = rs("ID")
    strSubject = Server.HTMLEncode(rs("Subject"))
    strName = Server.HTMLEncode(rs("Name"))
'    strEmail = Server.HTMLEncode(rs("Email"))
    dtmFormDate = rs("FormDate")
    dtmFormTime = rs("FormTime")
    strComment = Server.HTMLEncode(rs("Comment"))
    strComment = Replace(strComment,vbCrLf,"<br>")

End If

strSQL = "SELECT *, Format$([date],'dd/mm/yyyy') AS FormDate, Format$([date],'hh:mm') AS FormTime FROM Entries WHERE (ReplyId = " & Request("Id") & ") AND (OrgThread = False) ORDER BY ID DESC"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    Do While Not rs.EOF
    strComments = Server.HTMLEncode(rs("Comment"))
    strComments = Replace(strComments,vbCrLf,"<br>")
'Replace med Smiley
    strComments = Replace(strComments,":-)","<img src='../images/smil.gif' alt='Glad' width=12 height=12>")
    strComments = Replace(strComments,":-(","<img src='../images/sur.gif' border='0' alt='Sur' width=12 height=12>")
    strComments = Replace(strComments,"3-(","<img src='../images/devil.gif' border='0' alt='Devil' width=12 height=12>")
    strComments = Replace(strComments,":-z","<img src='../images/flov.gif' border='0' alt='Flov' width=12 height=12>")
    strComments = Replace(strComments,":-0","<img src='../images/ingenraab.gif' border='0' alt='Rååb' width=12 height=12>")
    strComments = Replace(strComments,":-|","<img src='../images/ligeglad.gif' border='0' alt='Ligeglad' width=12 height=12>")
    strComments = Replace(strComments,"[linux]","<img src='../images/linux.gif' border='0' alt='Linux' width=12 height=12>")
    strComments = Replace(strComments,"?:-|","<img src='../images/mistaenksom.gif' border='0' alt='Mistænksom' width=12 height=12>")
    strComments = Replace(strComments,":-P","<img src='../images/tunge.gif' border='0' alt='Rækker Tunge' width=12 height=12>")
    strComments = Replace(strComments,"*sf*","<img src='../images/self.gif' border='0' alt='Cool! (not)' width=12 height=12>")
    strComments = Replace(strComments,":´-(","<img src='../images/trist.gif' border='0' alt='Trist' width=12 height=12>")
    strComments = Replace(strComments,"*gf*","<img src='../images/self.gif' border='0' alt='Self' width=12 height=12>")
    strComments = Replace(strComments,":-o","<img src='../images/argh.gif' border='0' alt='ARGHH!!' width=12 height=12>")
    strComments = Replace(strComments,"8-)","<img src='../images/badass.gif' border='0' alt='BaD Ass!' width=12 height=12>")
    strComments = Replace(strComments,"[danger]","<img src='../images/danger.gif' border='0' alt='DangeR!!!' width=12 height=12>")
    'HTML
    strComments = replace(strComments, "Www", "www")
    strComments = replace(strComments, "wWw", "www")

    strComments = replace(strComments, "wwW", "www")
    strComments = replace(strComments, "WWW", "www")
    strComments = replace(strComments, "&lt;b&gt;", "<b>")
    strComments = replace(strComments, "&lt;/b&gt;", "</b>")
    strComments = replace(strComments, "&lt;i&gt;", "<i>")
    strComments = replace(strComments, "&lt;/i&gt;", "</i>")
    strComments = replace(strComments, "&lt;u&gt;", "<u>")
    strComments = replace(strComments, "&lt;/u&gt;", "</u>")
    strComments = replace(strComments, "&lt;p&gt;", "<p>")
    strComments = replace(strComments, "&lt;/p&gt;", "</p>")
    strComments = replace(strComments, "&lt;center&gt;", "<center>")
    strComments = replace(strComments, "&lt;/center&gt;", "</center>")
    strComments = replace(strComments, "&lt;br&gt;", "<br>")
    'HTML Slut
    'Smiley Slut
'Link Replace - Start
   
   
'Link Replace - Slut

   
        strSvar = strSvar & "<table border=0 width=601 cellspacing=1 cellpadding=0 bgcolor=#E8E8E8><tr><td valign=top width=599 height=14 bgcolor=#FFFFFF><li><font face=Verdana size=1>" & Server.HTMLEncode(rs("Name")) & ", " & rs("FormDate") & " " & rs("FormTime") & "</font></li>"
'        If Len(Request("Showsub")) > 0 And Clng(Request.QueryString("Showsub")) = Clng(rs("ID")) Then
            strSvar = strSvar & "<br><font face=Verdana size=1>" & LinkTekst(strComments) & "</font><br>&nbsp;</td></tr></table><br>"    '    End If
'        End If
        rs.MoveNext
    Loop
End If
rs.Close
myConn.Close
Set myConn = Nothing

%>

<tr>
  <td width="598" height="59" colspan="2">
    <table border="0" width="600" cellspacing="1" cellpadding="0" bgcolor="#E8E8E8">
      <tr>
        <td valign="top" width="455" height="4" bgcolor="#FFFFFF">
          <table width="100%" border="0" height="8">
            <tr>
              <td width="70%" bgcolor="#FFFFFF" height="5"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><strong><%=strSubject%></strong>
                - <%=strName%></font></td>
              <td width="30%" bgcolor="#FFFFFF" height="5"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><%=dtmFormDate%>
                - <%=dtmFormTime%></font></td>
            </tr>
          </table>
        </td>
      </tr>
      <tr>
        <td valign="top" width="455" height="18" bgcolor="#FFFFFF"><small><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=strComment%><font color="#C0C0C0"><br>
          </font><font color="#E8E8E8"></font></font></small></td>
      </tr>
    </table>
    <hr noshade size="1" color="#000000" width="600" align="left">
    <div align="center"><b><font face="tahoma" size="1" color="#FFFFFF"> </font></b>
    </div>
    <%=strSvar%>
    <div align="center"><br>
    </div>
    <p>
         
      <% 'If Not (rs.BOF Or rs.EOF) Then
'    Do While Not rs.EOF

'response.write  "          <table border=0 width=59% cellspacing=1 cellpadding=0 bordercolor=#000000 bgcolor=#E8E8E8 align=left>            <tr bgcolor=#9FC0F7>  <td align=left colspan=2 bgcolor=#FFFFFF height=8><font face=Verdana color=#000000><font face=Verdana size=1><em>" &  Server.HTMLEncode(rs("Name")) & ", " & rs("FormDate") & " " & rs("FormTime")  &"</em></font></font></td>  </tr>  <tr bgcolor=#9FC0F7>    <td align=left colspan=2 bgcolor=#FFFFFF><small><font face=Verdana> <font face=Verdana, Arial, Helvetica, sans-serif size=1>"& Replace(Server.HTMLEncode(rs("Comment")),vbCrLf,"<br>") &" </font><br></font></small></td></tr></table><p>&nbsp;</p></center></div><br>  </td></tr></table>"
'    rs.MoveNext
    'Loop
    'end if
   
%>
    </p>
    <p>&nbsp;
    <p>&nbsp;
    <p>&nbsp; <br>
      <br>
    <p>&nbsp;
    <div align=center>
      <center>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p>&nbsp;</p>
      </center>
    </div>





<%
end if
%>

Håber i kan hjælpe mig!
Vil blive rigtig taknemmelig hvis du har svaret ;)

/Mjall0w-^