<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Udrykninger - RingstedBrand.dk</title>
<base target="_self">
<link rel="stylesheet" type="text/css" href="cssdesign/design02.css">
<meta name="Microsoft Border" content="none">
</head>
<body bgcolor="#FFFFFF" background="images/baggrund01.gif" topmargin="2" leftmargin="2">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="740" id="AutoNumber1">
<tr>
<td width="160" align="center">
<h2 align="left"> </h2>
</td>
<td width="565">
<h1>UdrykningsRapporter</h1>
<h2>På denne side kan De holde Dem ajourført med Ringsted Brandvæsens
udrykninger. Under hver udrykning vil der være en kort beskrivelse af
indsatsen, og ved at klikke på det lille billede til venstre, kan De få
flere billeder at se fra indsatsen.</h2>
<h2><u>De seneste udrykninger:</u></h2>
</td>
<td width="15"> </td>
</tr>
</table>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database/udrykninger.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
SQLstmt = "SELECT * FROM udrykninger ORDER BY Dato desc;"
rs.Open SQLstmt, conn, 1
%>
<%
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 5
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Do While Not rs.EOF And intRecCount > 0
ID = rs("ID")
Dato = rs("dato")
Sted = rs("sted")
Melding = rs("melding")
Tekst = rs("tekst")
Fra = rs("fra")
PicID = rs("picid")
%>
<%
If PicID = 0 Then
strBillede = "<img border='0' src='isl/nopicture.jpg' width='135' height='101'>"
strLink = strBillede
else
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("isl/" & rs("picid") & "/thumbnails/")
For Each File In Folder.Files
strBillede = "<img src='" & File.Name & "'>"
Exit For
Next
strLink = "<a href='isl/" & rs("picid") & "/index.html'>" & strBillede & "</a>"
End If
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="740" id="AutoNumber4">
<tr>
<td width="160"><h2><center><%
Response.Write strLink
%></center></h2></td>
<td width="565">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="535" id="AutoNumber5">
<tr>
<td width="171">
<h2><u><%=dato%></u><br>
</h2>
</td>
<td width="364">
<h2><%=fra%> - <%=melding%><br>
<%=sted%></h2>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="535" id="AutoNumber6">
<tr>
<td>
<h2><%=tekst%></h2>
</td>
</tr>
</table>
</td>
<td width="15"> </td>
</tr>
<tr>
<td width="160"> </td>
<td width="565"><img border="0" src="images/streg.jpg" width="535" height="3"></td>
<td width="15"> </td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="740" id="AutoNumber7">
<tr>
<td width="739">
<h2 align="center">
<font face="Verdana" style="font-size: 9pt"><b>
<%
intRecCount = intRecCount - 1
rs.MoveNext
LOOP
End if
RS.Close
'Her udskrives << 1 2 3 4 >> altså link til siderne man kan gå til.
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=?page=" & intPage - 1 & "><< Forrige</a> "
Else
Response.Write "<< "
End If
'Response.Write " "
Response.Write " | "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=?page=" & intPage + 1 & ">Næste >></a> "
Else
Response.Write ">> "
End If
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%></a></h2>
</td>
</tr>
</table>
</body>
</html>
