Linieskift
<%Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
set rs = conn.execute ("select * from Forside")
do while not rs.eof
response.write "<font size=""-1"" face=""Century Gothic"" color=""#666699"">" & rs("Tekst") & "</font>"
rs.movenext
loop
Conn.Close
Set Conn = Nothing
%>
Det her virker men ligeså snart jeg sætter
Replace(rs("Tekst"), vbCrLf, "<br>")
ind så er der en HTTP 500 fejl...
Jeg er overbevist om at det er den berygtede fejl 40, så jeg skal lige være sikker på hvor jeg skal sætte replace ind? :o)
