<%Option Explicit%>
<% Response.ExpiresAbsolute = Now() - 1 %>
<%
Dim site,meta,strSQL,dbRS
strSQL = "SELECT * FROM meta WHERE ID = 1"
Set dbRS = Server.CreateObject("ADODB.Recordset")
With dbRS
.Open strSQL, C_dbConnect
End With
Sub WriteMessageone()
Dim msgdescription,msgkeywords,msgauthor,msgcopyright
msgdescription = "" & vbCrLf
msgkeywords = "" & vbCrLf
msgauthor = "" & vbCrLf
msgcopyright = "" & vbCrLf
With Response
.Write msgdescription + msgkeywords + msgauthor + msgcopyright
End With
End Sub
Dim msall,msdescription,mskeywords,msauthor,mscopyright,mstitle
msall = db2web(dbRS("title")) & vbCrLf & db2web(dbRS("description")) & vbCrLf & db2web(dbRS("keywords")) & vbCrLf & db2web(dbRS("author")) & vbCrLf & "© " & db2web(dbRS("copyright"))
%>
Bruidsboutique Monique (DutchFrame powered v2.5)
<%
Do Until dbRS.EOF
Response.Write ""
WriteMessageone()
dbRS.MoveNext
Loop
%><%
dbRS.Close
Set dbRS = Nothing
%>
<![CDATA[
<body><%=msall%></body>
]]>