Eksekvering af kode fra tabel
Jeg har lidt problemer med at få eksekveret en kode der bliver hentet fra en database (access)Når jeg opretter en kode der senere skal eksekveres gemmer jeg den i databasen på følgende måde:
htmlnavn = replace(request.form("htmlnavn"), "'", "''")
htmlkode = replace(request.form("htmlkode"), "'", "''")
htmlkode = replace(htmlkode, "<", "<")
htmlkode = replace(htmlkode, ">", ">")
SQLstmt = "INSERT INTO TBL_html_kode (htmlnavn,htmlkode)"
SQLstmt = SQLstmt & " VALUES ('" &htmlnavn& "','" &htmlkode& "')"
Conn.Execute (SQLstmt)
htmlnavn vil altid være omkranset af $$$, altså eksempelvis:
$$$vis_billed$$$
Når jeg så henter data fra tabellen, skal jeg så have eksekveret den kode der står mellem $$$ og det gør jeg på følgende måde:
<%
content = rs("content")
SQLrep = "select * from TBL_html_kode order by id"
set rsrep = conn.execute(SQLrep)
do while not rsrep.eof
content = replace(content, "$$$"& rsrep("htmlnavn") &"$$$", ""& rsrep("htmlkode") &"")
content = replace(content, "<", "<")
content = replace(content, ">", ">")
rsrep.movenext
loop
rsrep.close
set rsrep = nothing
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
- og udskriver den med: <%=content%>
Det virker fint hvis der html kode jeg har i min TBL_html_kode tabel, men hvis det nu f.eks. er :
<%server.execute("/koder/vis_billed.asp")%> så sker der ingenting. Selve strengen står godt nok i vis kilde, men den bliver ikke eksekveret.
Jeg tror jeg efterhånden snart har prøvet alt og måske stirret mig blind på det, kan i se hvor fejlen ligger ?
/Goose