The Raymarine Lively Lady Project Fundraising Site

<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' HTTP="false" ' Catalog="" ' Schema="" 'fundraising_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};" 'MM_fundraising_STRING = fundraising_STRING & " DBQ= ../db/fundraising.mdb" set Guest_Conn= Server.CreateObject("ADODB.Connection") DSNLessConn="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNLessConn=DSNLessConn & "DBQ=" & server.mappath("/Db/fundraising.mdb") Guest_Conn.Open DSNLessConn %> <% 'set Rs_Event = Server.CreateObject("ADODB.Recordset") 'Rs_Event.ActiveConnection = MM_fundraising_STRING SQL = "SELECT * FROM current_events" 'response.write sql set Rs_Event=Guest_Conn.execute(sql) %> <% set fso = createobject("scripting.filesystemobject") set act = fso.opentextfile(server.mappath("counter.txt")) counter = clng(act.readline) counter = counter + 1 act.close Set act = fso.CreateTextFile(server.mappath("counter.txt"), true) act.writeline(counter) act.close counter_length = len(counter) %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Rs_Event_numRows = Rs_Event_numRows + Repeat1__numRows %> The Raymarine Lively Lady Project Fundraising Site

The Raymarine Lively Lady Project

Home

Donations

Events

Shopping

Our Shop

Links

Supporters

Contacts

Below are details of all forthcoming fundraising events.

<% While ((Repeat1__numRows <> 0) AND (NOT Rs_Event.EOF)) %> <%useremail= (Rs_event.Fields.Item("event_contact_email").Value) email_link="href=Mailto:" + "" & useremail & "" 'response.write email_link%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Rs_Event.MoveNext() Wend %>

<%=(Rs_event.Fields.Item("event_name").Value)%>
Date:	<%=FormatDateTime((Rs_event.Fields.Item("event_date").Value),1)%>	Time:	<%=(Rs_event.Fields.Item("event_time").Value)%>
		Venue:	<%=(Rs_event.Fields.Item("event_location").Value)%>
<%=(Rs_event.Fields.Item("event_descr").Value)%>
For more detail, contact		><%=(Rs_event.Fields.Item("event_contact_name").Value)%>

If you would like to see what happened at some of our previous fundraising events, then please take a look here.

<% Rs_Event.Close() %>