Hvordan får jeg indsat et linjeskift i dataene et af mine notat-felter i min Accessdb, så dette linjeskift også eksisterer i forbindelse med udtræk af data vha. ASP?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
hvis du gør det gennem en form(asp), ligger den automatisk vbcrlf ind hver gang du trykker enter...det du gør med replacefunktionen er at konvertere vbcrlf ti <br> når du trækker det ud.
casm_ I dont have so much experience with ASP but lets say you have a field where you enter your text (memo) and you press ENTER. This sets a VBCRLF in. Why is it necessary to convert this VBCRLF to <br>? Will it not format the text if it contains VBCRLF?
fordi browseren ikke ser det med mindre du placer det i et <script language="vbscript"</script>, og det er jo ikke alle browsere der understytter vb, så i mange tilfælde vil dette slet ikke kunne lade sig gøre...så er det en lidt smartere løsning at bruge: Replace(rs("dit_udtræk"),vbcrlf,"<br>" & vbcrlf) når asp'en skal udskrive html til browseren...
OK, I can see why it sbest to convert VbCrLf to <br> when displayimng in the browser, but I would suggest that it is saved with VbCrLF so thatthe data can be displayed (and printed) in other formats than HTML
men tænker man superoptimized vil det mest rigtige være at ligge <br> ind ved oprettelse af posten, idet at udtrækket nok skal bruges en del mere end, selve indsætelse...
Når jeg indsætter, dit forslag, Replace(rs("dit_udtræk"),vbcrlf,"<br>" & vbcrlf) , får jeg flg. fejl:
Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0414'
Der kan ikke bruges parenteser ved kald af en Sub
/leksikonfuld.asp, linje 204
Replace(rs("indhold"), vbcrlf, "<br>" & vbcrlf)
Mine asp-linjer, ser således ud, hvis det kan hjælpe dig:
strID = Request("ID") Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM leksikon WHERE ID=" & strID & ";"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("leksikon.mdb") rs.Open strSQL, strDSN, 1 If Not (rs.BOF Or rs.EOF) Then
Response.Write "<font color=#000000 font face=Trebuchet MS size=3><b>" & rs("overskrift") & "</b></font><br>" Replace(rs("indhold"), vbcrlf, "<br>" & vbcrlf) Response.Write "<font color=#000000 font face=Trebuchet MS size=2>" & rs("indhold") & "</font><br>" Response.Write "<font color=#000000 font face=Trebuchet MS size=2>" & rs("dato") & "</font> " Response.Write "<font color=#000000 font face=Trebuchet MS size=2>" & rs("forfatter") & "</font><br>"
End If rs.Close Set rs = Nothing
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.