<% option explicit %>
<%
Dim Connect, selfpublish, Query, customer
' This is the page that goes in the customers webpage
' Can be called anything just needs the following bit filled in the whatever is in the database
customer = ""
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "NT3915-selfpublish"
Set selfpublish = Server.CreateObject("ADODB.RecordSet")
Query = "Select * from self WHERE username='" & customer & "'"
selfpublish.Open Query,Connect
Dim pagecontentval
pagecontentval = selfpublish("pagecontent")
Dim Lastupdated
Lastupdated = selfpublish("Lastupdated")
Dim updatedby
updatedby = selfpublish("updatedby")
%>
Bon Accord Venues - Hotel Booking Agents & Conference Organisers
