|
 |
|
|
|
|
<%
strDBPath = "../data/pagina.mdb"
Set conp = Server.CreateObject("ADODB.Connection")
conp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & _
server.mappath("" & strDBPath & "")
myid = "13"
mysql = "SELECT * FROM pagina WHERE id=" & myid
Set rst = conp.Execute(mysql)
if not rst.eof then
mytxt = rst.fields("tekst")
'zet kommas en dergelijke treug
mytxt = replace(mytxt,"§010§","'")
mytxt = replace(mytxt,"§020§","&")
mytxt = replace(mytxt,"§030§",",")
mytxt = replace(mytxt,"§040§",chr(34))
mytxt = replace(mytxt,chr(10),"")
mytxt = replace(mytxt,chr(13),"")
mytxt = replace(mytxt,chr(34),"'")
end if
conp.close
%>
<%= mytxt %>
|
|
|
|
|
|
|
