%
Response.ContentType = "text/html"
Response.AddHeader "Content-Type", "text/html;charset=UTF-8"
Response.CodePage = 65001
Response.CharSet = "UTF-8"
dim intDocumentID
dim strTitle
dim strTekst
dim adoCn
dim strSQL
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database\Z_database.mdb")
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open strConn
dim adoRs
set adoRs = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From tekst where id=1"
set adoRs = adoCn.Execute(strSQL)
If not adoRs.EOF then
sTitel = adoRs("Titel")
sTekst = adoRs("Tekst")
sTekst=replace(STekst,chr(13),"
")
sTekst=replace(sTekst,chr(10),"")
End If
adoRs.Close
set adoRs = nothing
adoCn.Close
set adoCn = nothing
%>
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
|||||
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
|||||
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
|||||
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
