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 show_ads_travel" 'response.write sql set Rs_Ads=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_Ads_numRows = Rs_EAds_numRows + Repeat1__numRows Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 Rs_Ads_numRows2 = Rs_Ads_numRows2 + Repeat2__numRows %> The Raymarine Lively Lady Project Fundraising Site

Home

Donations

Events

Shopping

Our Shop

Links

Supporters

Contacts

Jump to:

<% While ((Repeat2__numRows <> 0) AND (NOT Rs_Ads.EOF)) %>

"><%=(Rs_Ads.Fields.Item("Program_name").Value)%>
...................................................... <% Repeat2__index=Repeat1__index+1 Repeat2__numRows=Repeat2__numRows-1 Rs_Ads.MoveNext() Wend Rs_Ads.MoveFirst() %>

Travel & Holiday bookings

Sites for booking flights, hotels, airport parking, ferries, travel insurance and more.

<% While ((Repeat1__numRows <> 0) AND (NOT Rs_Ads.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Rs_Ads.MoveNext() Wend %>

<% Dim jump jump="" jump=(Rs_Ads.Fields.Item("Program_name").Value) jump_to = "'" & jump & "'" %> > <%=(Rs_Ads.Fields.Item("Program_name").Value)%>

<%=(Rs_Ads.Fields.Item("Pic_Links").Value)%>

<% Rs_Ads.Close() %>