% 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") %>
Today is |
In addition to our
We take a professional pride with every enquiry that we handle. Meet
the Key Team Members who will provide you with
a personal service and ensure meticulous attention to detail.
|