replace(dintekst,vbcrlf, \"<br>\")
Hej Eksperter..Kan i ikke hjælpe mig med at sætte funktionen replace ind i dette her script så det virker:
<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db/nyheder.mdb\")
If Request.QueryString(\"id\") <> \"\" Then
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM nyheder WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
rs.Open strSQL, myConn, 1, 3
If Not (rs.BOF Or objRs.EOF Or rs.EOF) Then
response.write \"<TABLE WIDTH=\"\"100%\"\" BORDER=\"\"1\"\" BGCOLOR=\"\"#FFFFFF\"\" BORDERCOLOR=\"\"#000000\"\"><TR VALIGN=\"\"top\"\"><TD><FONT><B>\" & rs(\"overskrift\") & \"</B></FONT><BR><FONT SIZE=\"\"2\"\"> Dato \" & rs(\"dato\") & \"</FONT><BR><FONT\" & rs(\"nyhed\")& \"</TD></TR></TABLE><BR>\"
rs.Update
rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing
End If
End If
%>
- På forhånd tak!
/labisama
