linjeskift med overLIB
Hey EIIS5.0/IE/overLib/Access/
i forbindelse med udfyldelsen af et textarea, skal der kunne laves linjeskift, der efterfølgende vises ligeså.
Dette er normalt ikke et problem, men jeg indsætter rs("indhold fra textarea"), med de tilhørende linjeskift, i overLIB, hvilket medfører at overLIB ikke virker.
hvis jeg poster et textarea til db'en uden linjeskift, virker overLIB fint og resultatet vises.
De koder jeg bruger til at skabe et linjeskift er dem jeg tidligere har brugt med succes.
fra formen postes textarea og modtages:
planen = Replace((Request.Form("PlanX")), vbCrlf,"<br>")
planen gemmes fint i db'en med de tilhørende linjeskift. DOG er der i den givne celle i db'en, ikke skrevet <br>, men linjeskift er tilstede som angivet. Måske er dette min fejl? og hvordan får jeg så skrevet <br> i db'en hvor der skal være et linjeskift?
fra db'en hentes den givne celle:
indhold = rsPlan("html")
indhold = Replace(indhold, "<br>",vbCrlf)
men dette når slet ikke at blive vist da overLIB allerede fejler og slet ikke viser overLIB koden.
overLIB koden der inkluderer den givne celler:
bla bla
if (DDSD > -1) and (SDDD >= DDSD) then
Set rsPlan = Conn.Execute("SELECT * FROM plan WHERE opg_id='" & server.HTMLEncode(id) & "' AND dag_nr='" & server.HTMLEncode(DDSD) & "'")
if not rsPlan.EOF then
indhold = rsPlan("html")
indhold = Replace(indhold, "<br>",vbCrlf)
designClick = designClick & "<tr><td colspan=2><textarea name=PlanX rows=20 cols=40>" & indhold & "</textarea></td></tr>"
designClick = designClick & "<tr><td><input type=submit value=Opdater style=width:70px;></td>"
designClick = designClick & "<td align=right><a href=wms.asp?mode=sletplan&id=" & id & "&hvilken=" & DDSD & ">Slet dagsplanen!</a></td></tr>"
hexRGB = hexRGB & "onClick=""return overlib('"&designClick&"', CAPTION, '" & overskrift & "', CAPCOLOR, '#"& hex1 & hex2 & hex3 &"', BGCOLOR, '"&farve&"', FGCOLOR, '#FFFFFF', WIDTH, 355, OFFSETX, -7, OFFSETY, +3, STICKY, CLOSECLICK, CLOSECOLOR, '#"& hex1 & hex2 & hex3 &"')"" "
hexRGB = hexRGB & "onMouseOver=""return overlib('"&indhold&"', CAPTION, '" & overskrift & "', CAPCOLOR, '#"& hex1 & hex2 & hex3 &"', BGCOLOR, '"&farve&"', FGCOLOR, '#FFFFFF', WIDTH, 355, OFFSETX, -7, OFFSETY, +3, STICKY, CLOSECLICK, CLOSECOLOR, '#"& hex1 & hex2 & hex3 &"')"" "
else
indhold = "Laboremus pro patria"
designClick = designClick & "<tr><td colspan=2><textarea name=PlanX rows=20 cols=50></textarea></td></tr>"
designClick = designClick & "<tr><td><input type=submit value=Opdater style=width:70px;></td></tr>"
hexRGB = hexRGB & "onClick=""return overlib('"&designClick&"', CAPTION, '" & overskrift & "', CAPCOLOR, '#"& hex1 & hex2 & hex3 &"', BGCOLOR, '"&farve&"', FGCOLOR, '#FFFFFF', WIDTH, 355, OFFSETX, -7, OFFSETY, +3, STICKY, CLOSECLICK, CLOSECOLOR, '#"& hex1 & hex2 & hex3 &"')"" "
hexRGB = hexRGB & "onMouseOver=""return overlib('"&indhold&"', CAPTION, '" & overskrift & "', CAPCOLOR, '#"& hex1 & hex2 & hex3 &"', BGCOLOR, '"&farve&"', FGCOLOR, '#FFFFFF', WIDTH, 170, OFFSETX, -7, OFFSETY, +3, STICKY, CLOSECLICK, CLOSECOLOR, '#"& hex1 & hex2 & hex3 &"')"" "
end if
else
end if
bla bla
nogen bud på hvordan jeg får lavet linjeskift til fx et textarea i overLIB?
