Inkludere htm side
Jeg er igang med at designe en side der bygger på tabeller. Jeg laver det sådan at en side bliver hentet ind i en celle. Scriptet jeg bruger til dette er det følgende:<%
If Request.QueryString = \"\" Then
\' Henter forside hvis der ikke er kalt en anden side!
strTextFile = \"start\"
Else
\' Hvis der er kalt en side så kommer den nu!
strTextFile = Request.QueryString
End If
\' Finder txt fil(er)
Set objFile = Server.CreateObject(\"Scripting.FileSystemObject\")
Set objStream = objFile.OpenTextFile(Server.MapPath(\"../bs2001/\") & \"\\\" & strTextFile & \".htm\", 1, True)
\' Læser txt fil
strFilterText = objStream.ReadAll
strFilterText = Replace(strFilterText,vbcrlf,\"<br>\")
\' Skriver tekst fra txt fil
Response.Write \"<font face=\'Verdana\' size=\'2\' color=\'#000000\'>\" & strFilterText & \"</font>\"
%>
Jeg har et problem på en af siderne med at den rykker teksten ned. Se et problemet på: www.kongsted.dk/bs2001 --> Det er sket
