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