hvorfor tager den baggrunden for den div ovenover
hej jeg et link som udskriver en tekst men den tager baggrunden fra den div der står forside og skriver teksten i den.http://www.aeronet.dk/acw/
Jeg kan ikke se fejlen for teksten bliver ikke hentet frem i den div men i main_text div'en alligevel overfører den baggrundsbilledet fra menu_text div'en til teksten.
min kode er som flg. i det afsnit
<td><!--DENNE TD SKAL VÆRE TOM--></td>
<td rowspan="6" valign="top">
<div class="Menu_Text">
<%
sitename = LCase(Request.Servervariables("QUERY_STRING"))
If sitename = "" Then
Response.Write ("<br style=""font-size: 8px"" /><img name=""forside"" src=""images/forside.gif"" width=""122px"" height=""38px"" border=""0px"" id=""forside"" alt="" />")
ElseIf sitename = "page=profil" Then
Response.Write ("<br style=""font-size: 8px"" /><img name=""profil"" src=""images/profil.gif"" width=""122px"" height=""38px"" border=""0px"" id=""profil"" alt="" />")
End If
%>
</div><br />
<div class="Main_Text">
<%
If page = "" Then
writeEmptyPage()
ElseIf page = "Profil" Then
writeProfilPage()
ElseIf page = "Portfolio" Then
writePortfolioPage()
ElseIf page = "Priser" Then
writePriserPage()
ElseIf page = "Kontakt" Then
writeKontaktPage()
End If
%>
</div>
</td>
Koden der henter data:
<%
Sub writeEmptyPage()
Call OpenDB
Dim strText
strSQL = "SELECT [TEXT] FROM database ORDER BY [ID]"
Set objRS = objConn.Execute(strSQL)
If Not (objRS.BOF Or objRS.EOF) Then
Response.Write ("")
Do While Not objRS.EOF
strText = objRS("Text")
Response.Write strText
objRS.MoveNext
Loop
Response.Write ("")
else
Response.Write "Der findes ingen tekst til denne side."
End If
Call CloseDB
End Sub
%>
