R P G - K a t r i n e h o l m

<%@ 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 reportage ORDER BY datum desc" 'Response.Write strSQL Set rsReportage = Server.CreateObject("ADODB.Recordset") rsReportage.Open strSQL, conAdo, 0, , &H0001 If Not rsReportage.EOF Then aReportage = rsReportage.GetRows End If rsReportage.Close Set rsReportage = Nothing '******************************************************************* '*** Städa ********************************************************* conAdo.Close Set conAdo = Nothing '******************************************************************* %> R P G - K a t r i n e h o l m

R e p o r t a g e

(Klicka för att läsa)

<% If IsArray(aReportage) Then For iLoop = 0 To UBound(aReportage, 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( " " & aReportage(2, iLoop) & "	" ) Response.Write( "" & aReportage(1, iLoop) & "
" ) Response.Write( "" & aReportage(3, iLoop) & "
" ) Response.Write( " " ) Response.Write( "