% 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 |
Free and impartial venue finding service ...
Whatever the event, our experienced co-ordinators have the expertise
to negotiate all your special requirements, saving you not only valuable
time, but also money on specially discounted rates.
|