<% dbpath = Server.MapPath("database/web_data.mdb") ConString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbpath & ";" & "JET OLEDB:Database Password=network" set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConString sql = "SELECT Headline from NEWS where PublishYN <> 0 and Category='Events' order by SortNo, RecordID desc" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 if rs.eof then showcombo = false strtitle1 = "Please insert the title and date of the event you
are registering for*" else showcombo = true strtitle1 = "Please choose the event you are registering for*" end if rs.close function event_name_combo() sql = "SELECT ShortHeadline from NEWS where PublishYN <> 0 and Category='Events' order by SortNo, RecordID desc" Set rs_new = Server.CreateObject("ADODB.Recordset") rs_new.Open sql, conn, 3, 3 response.write("") rs_new.close end function %> Events Registration

Event Registration

Please complete the form below and choose the event date you would like to attend:

(*) Required Field

First Name*

Last Name*

Job Title*

Company Name*

Address*

City

PostCode*

Telephone Number*

Email Address*

 

Please choose the event you are registering for:*

 

 


Terms and conditions

Online Privacy

Copyright 2007 Connectology