Kan ikke udskrive felt fra Db, ASP

Hejsa Eks.

I følgende kode kan jeg udskrive rsBioRead("Emne") der hvor <------ er, men ellers kan jeg ikke udskrive rsBioRead("emne") andre steder. Nogen der kan fortælle mig hvorfor?


<!--#Include file="topone.asp" -->
<%
Function fncTextChangeAnmeldRead(strTextAnmeldRead)
strTekstAnmeldRead = Trim(strTextAnmeldRead)
fncTextChangeAnmeldRead = Replace(strTekstAnmeldRead,"""","""")
fncTextChangeAnmeldRead = Replace(fncTextChangeAnmeldRead,"  "," &nbsp;")
fncTextChangeAnmeldRead = Replace(fncTextChangeAnmeldRead,vbCrLf,"<br>")
fncTextChangeAnmeldRead = Replace(fncTextChangeAnmeldRead,"[img]","<center><img src=""/pics/")
fncTextChangeAnmeldRead = Replace(fncTextChangeAnmeldRead,"[/img]",""" alt=""Pic""></center>")
fncTextChangeAnmeldRead = Replace(fncTextChangeAnmeldRead,"","<i>")
fncTextChangeAnmeldRead = Replace(fncTextChangeAnmeldRead,"","</i>")
fncTextChangeAnmeldRead = Replace(fncTextChangeAnmeldRead,"","<b>")
fncTextChangeAnmeldRead = Replace(fncTextChangeAnmeldRead,"","</b>")
fncTextChangeAnmeldRead = Replace(fncTextChangeAnmeldRead,"’","&#39;")
fncTextChangeAnmeldRead = Replace(fncTextChangeAnmeldRead,"–","-")
fncTextChangeAnmeldRead = Replace(fncTextChangeAnmeldRead,"•","&#42;")
fncTextChangeAnmeldRead = Replace(fncTextChangeAnmeldRead,"”","""")
End Function
Function fncTextChangeAnmeldNavi(strTextAnmeldNavi)
strTekstAnmeldNavi = Trim(strTextAnmeldNavi)
fncTextChangeAnmeldNavi = Replace(strTekstAnmeldNavi,"bio","biograf")
fncTextChangeAnmeldNavi = Replace(fncTextChangeAnmeldNavi,"dvd","DVD")
End Function
SQL = "SELECT * FROM forumindlaeg WHERE id LIKE '" & Request.QueryString("id") & "'"
Set rsBioRead = Conn.Execute(SQL)
Response.Write(""&rsBioRead("emne")&"")%>  <-------------------
<title>Anmeldelser: <%=rsBioRead("emne")%></title>
<!--#Include file="toptwo.asp" -->anmeldelser<img src="grafik/naviarrow.gif" alt=""><%=rsBioRead("anmeldtype")%><img src="grafik/naviarrow.gif" alt=""><%=rsBioRead("emne")%>
<!--#Include file="topthree.asp" -->
<a name="GotoTop"></a>
<table cellpadding="0" cellspacing="0" width="698">
<tr>
<td align="left" height="25" valign="top"><form method="POST" action="search.asp?mode=anmeld_search"><input name="anmeld_search" type="text" class="FormSearch" value="Søg efter anmeldelse..." onClick="this.value='';"> <input name="Action" type="image" src="grafik/soegknap.gif" align="absbottom"></form><br><a class="Guide" href="java script:history.go(-1)"><img src="grafik/goback.gif" border="0" alt="Tilbage"> Gå tilbage</a></td>
<td align="left" height="25" valign="top">
<%sql7 = "SELECT * FROM Trailer WHERE titel = '"&rsBioRead("emne")&"'"
Set Rs7 = Conn.Execute(Sql7)
If rs7.EOF OR rs7.BOF THEN
Response.Write("")
else
Response.Write("<a class='Guide' href='redirect.asp?mode=movie&amp;Id=" & rs7("id") & "'><img src='grafik/filmen.gif' border='0' alt='Se filmdetaljer'> Se filmdetaljer</a>" & vbcrlf )
End If

rs7.Close
set rs7 = nothing
Response.Write("<br>")
sql3 = "SELECT * FROM poster WHERE titel = '"&rsBioRead("emne")&"'"
Set Rs3 = Conn.Execute(Sql3)
If rs3.EOF OR rs3.BOF THEN
Response.Write("")
else
Response.Write("<a class='Guide' href='poster.asp?mode=view&amp;id=" & rs3("id") & "'><img src='grafik/seplakat.gif' border='0' alt='Se plakat'> Se plakat</a>" & vbcrlf )
End If
rs3.Close
set rs3 = nothing
%></td>
<td align="left" height="25" valign="top">
<%Response.Write("<br>")
If Session("login") = True AND Session("Tekst") = "Allowed" Then
Response.Write("<a class='Guide' href='admin.asp?mode=StepOne&id=" & rsBioRead("Id") & "'><img src='grafik/correct.gif' border='0' alt='Ret film'> Ret anmeldelse</a>")
Else
Response.Write("")
end if%>
</td>
</tr>
</table>