Bon Accord Venues - Hotel Booking Agents & Conference Organisers

<% 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