<% if Request.QueryString("ID") = 1 then Response.Write("Please Contact XXXXX ") Response.End() end if dim ObjRs, strSQL, Txt, cnt, Colour, CID, CVID CID = Request.QueryString(".CID") 'Create the Recordset object set ObjRs = server.CreateObject("ADODB.Recordset") 'Open the connection to the database 'Conn.Open strCon strSQL ="SELECT a.Title as Title,a.ConfDate as CDate,a.speaker,a.Attendies,a.DescText as ConferenceDesc,a.ExpireyDate,a.BookingForm," strSQL = strSQL & "b.CONFERENCETICKETID, b.Name as TicketName,b.Price as TicketPrice,b.Description as TicketDesc," strSQL = strSQL & "c.Name as VenueName,c.Address as VenueAddress, c.Directions as VenueDirections,c.Other as VenueOther,c.Map as Venuemap " strSQL = strSQL & "from ConferenceDetails a,Conferenceticket b,ConferenceVenue c where " strSQL = strSQL & " a.CONFERENCEDETAILSID = b.CONFERENCEDETAILID and a.CONFERENCEVENUID = c.CONFERENCEVENUEID and a.CONFERENCEDETAILSID = " & CID 'Response.Write(strSql) 'Response.End() ObjRs.open strSQL,conn,3,1 'Response.Write("Total Records : " & objRs.Recordcount) 'Response.End() %>

<% if objRs.Recordcount > 0 then %> <%else%> <%end if%> <%=objRs.Fields("Title")%>      Details Conference Date : <%=objRs.Fields("Cdate")%> Speaker : <%=objRs.Fields("Speaker")%> Max Attendies : <%=objRs.Fields("Attendies")%> Expirey Date : <%=objRs.Fields("ExpireyDate")%> Conference Description : <%=objRs.Fields("ConferenceDesc")%> Venue Details Name : <%=objRs.Fields("VenueName")%> Address : <%=objRs.Fields("VenueAddress")%> Directions : <%=objRs.Fields("VenueDirections")%> Others : <%=objRs.Fields("VenueOther")%> Ticket Details Ticket Name : <%=objRs.Fields("TicketName")%> Ticket Price : £  <%=objRs.Fields("TicketPrice")%> Description : <%=objRs.Fields("TicketDesc")%> "> Sorry for Inconvenience , Please mail to XXXXX about this Conference

<% objRs.Close %>