<%@ Language=VBScript %> <% session.lcid = 1053 %> <% '******************************************************************* ' RPG i Katrineholm ' ' ASP script for the main page.. ' ' 2006-05-15, David Svensson, davidsvensson@gmail.com ' Created '******************************************************************* '*** Constants and Variable Declarations *************************** Set conAdo = Server.CreateObject("ADODB.Connection") conStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/rpg/db/RPG.mdb") conAdo.open conStr '******************************************************************* '*** Fråga för att ta fram nyheterna ******************************* strSQL = "SELECT * FROM nyheter WHERE giltig >= #" & Left(now(), 10) & "# ORDER BY datum desc" 'Response.Write strSQL Set rsNyheter = Server.CreateObject("ADODB.Recordset") rsNyheter.Open strSQL, conAdo, 0, , &H0001 If Not rsNyheter.EOF Then aNyheter = rsNyheter.GetRows End If rsNyheter.Close Set rsNyheter = Nothing '******************************************************************* '*** Städa ********************************************************* conAdo.Close Set conAdo = Nothing '******************************************************************* %> R P G - K a t r i n e h o l m
Så här har vi det i Katrineholms RPG

RPG, Riksförbundet PensionärsGemenskap,
med lokalavdelning i Katrineholm, är en pensionärsförening,
som är öppen för alla, men som har en kristen grundton.

Verksamheten består av
offentlig sammankomst en gång per månad.
Kända eller lokala föredragshållare medverkar då
och dessutom finns ett sång- musikinslag vid varje tillfälle.

Samlingen avslutas med kaffedrickning och en kort andakt.
Besökande betalar 40 kr. för hela sammankomsten.
Vill man sen bli medlem är medlemsavgiften 240 kr per år.

Övrig verksamhet som RPG bedriver är studiecirkel om ett landskap.
Denna avslutas med en resa till landskapet med sakkunnig
guidning och trivsam gemenskap under några dagar.

Även om pensionärer numera är pigga så finns det
många som uppskattar dagsresor och halvdagsresor.
Sådana har vi ett par gånger om året.

Förutom i de olika kyrkornas programblad och i predikoturerna
annonserar vi under Föreningsnytt i Katrineholmskuriren
om våra sammankomster.

Program för hela terminen finns tillgängliga i kyrkorna.

Alla är välkomna!

Styrelsen representerar de olika kyrkorna i Katrineholm
och sammankomsterna är i de olika
kyrkorna och församlingshemmen.















N y h e t e r
<% If IsArray(aNyheter) Then For iLoop = 0 To UBound(aNyheter, 2) Response.Write( "" ) Response.Write( "" ) Response.Write( "" ) Response.Write( "" ) Response.Write( "" ) Response.Write( "" ) Response.Write( "" ) Response.Write( "" ) Response.Write( "" ) Response.Write( "" ) Next End If %>
" ) Response.Write( "  " & aNyheter(1, iLoop) & "
" ) Response.Write( "" & aNyheter(2, iLoop) & "  
" ) Response.Write( "" & aNyheter(3, iLoop) & "
" ) Response.Write( "
 " ) Response.Write( "