<%@ Language=VBScript %> <% session.lcid = 1053 %> <% '******************************************************************* ' Mariakyrkan i Katrineholm ' ' ASP script for the main page.. ' ' 2001-05-30, David Svensson, david.svensson@home.se ' Created '******************************************************************* '*** Constants and Variable Declarations *************************** Dim datum, tid, descr, titel, strAction '******************************************************************* ' *** Inloggad ?? ************************************************** If session("inloggad")="No" Then response.redirect "default.asp" End If ' *** Databaskoppling ********************************************** 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 texten ********************************************* strSQL = "SELECT * FROM texter WHERE strText = 'startsidan'" Set rsStartText = Server.CreateObject("ADODB.Recordset") rsStartText.Open strSQL, conAdo, 0, , &H0001 If Not rsStartText.EOF Then aStartText = rsStartText.GetRows End If rsStartText.Close Set rsStartText = Nothing '******************************************************************* %> R P G - K a t r i n e h o l m
<%=aStartText(2,0)%>
En del av Katrineholms RPG:are framför Boo slott under en dagsutflykt 2015