Replace: Erstatning med egne tags
Jeg er ved at lave et site hvor dem der skal rette indholdet ikke har kendskab til html. Så jeg har lavet en side hvor de indtaster indholdet, og tilføje nogle få "tags" bare så de kan indsætte lidt billeder, lave links, fed skrift...Men siden hvor jeg skulle lave erstatningerne volder mig problemer. At få erstattet alm. linieskift med <br> går let nok, men når jeg tager resten med, får jeg en http 500 fejl. Jeg har prøvet nogle forskellige ting og lavet om på rækkefølgen, men jeg fatter intet... :)
Koden ser således ud:
<%
pid=request.querystring("id")
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-store">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/intropages.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
Set rs.ActiveConnection = Conn
rs.Open("Select * From intro WHERE (id = " & pid & ") ")
c2=replace(rs("Indhold"),"<e-mail>","<a href=\"mailto:")
c3=replace(c2,"<mvis>","\">")
c4=replace(c3,"</e-mail>","</a>")
c5=replace(c4,"<link>","<a href=\"http://")
c6=replace(c5,"<nvis>","\">")
c7=replace(c6,"<vvis>","\" target=\"_blank\">")
c8=replace(c7,"</link>","</a>")
c9=replace(c8,"<billede>","<img src=\"")
c10=replace(c9,"<normal>","\">")
c11=replace(c10,"<hojre>","\" align=\"right\">")
c12=replace(c11,"<venstre>","\" align=\"left\">")
c13=replace(c12,"<fed>","<b>")
c14=replace(c13,"</fed>","</b>")
c15=replace(c14,"<kursiv>","<i>")
c16=replace(c15,"</kursiv>","</i>")
c17=replace(c16,"<overskrift>","<h1>")
c18=replace(c17,"</overskrift>","</h1>")
c1=Server.HTMLEncode(c18)
c0=replace(c1,vbCrLf,"<br>")
response.write c0
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
%>
</body>
</html>
Håber nogen kan hjælpe
bgo
