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" '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

The Raymarine Lively Lady Project

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

Do you shop on-line?

If you do, please click the graphics below to jump to you favorite shops and services, make sure your PC accepts cookies and spend away. The Lively Lady will get some commission, it costs you nothing extra and you can feel great for supporting us. Everyone wins!

Jump straight to all travel related companies here

<% 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("New_cat").Value)%>

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

<% Rs_Ads.Close() %>