<%
'##############ÄNDRA DETTA#############################
NyhetPerSida = 5                                   ' Antal nyhetsrubriker per sida
URL                 = "index2.asp"                    ' Sidan du inkluderar news2.asp i
db = Server.MapPath("db/news.mdb")   ' Databasens sökväg
Width              = "535"                              ' Bredd på bilden
'#####################################################'

Public Function FixSQL(ByVal sString) ' As String
    If Len("" & sString) = 0 Then Exit Function
    sString = Replace(sString, "'","''")
    sString = Replace(sString, "\","\\")
    FixSQL = sString
End Function
%>

<table cellpadding="1" cellspacing="0" border="0">

<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db

If Request.QueryString("ID") = "" Then

Set RecSet = Server.CreateObject("ADODB.Recordset")
Sidan = Request.QueryString("sida")
If Sidan = "" then
     sida = 1
Else
     sida = Sidan
End If

With RecSet
    .CursorLocation = 3
    .CacheSize = NyhetPerSida
End With

SQL = "SELECT * FROM news Order By id desc"
RecSet.Open SQL, Conn

If RecSet.EOF Then%>
     <tr>
        <td>Inga nyheter inlagda!</td>
     </tr>
<%Else

With RecSet
  .MoveFirst
  .PageSize = NyhetPerSida
  .AbsolutePage = sida
End With

Sidor =  RecSet.PageCount
x = 0
Do While Not RecSet.EOF And x < RecSet.PageSize

If x = 0 Then %>
<tr><td colspan="2">

            <tr><td><% if len(recset("bild")) > 0 then %><img src="<%=RecSet("bild")%>" border="1" width="400" height="175"><% end if %></td>

      	<td valign="top">
        	<font size="2px" color="#9C0000"><b><%=RecSet("rubrik")%></b>
            </font>

            <br><br>
			<%If Len(RecSet("nyhet")) > 150 Then%><%=Left(RecSet("nyhet"),250)%>...<%Else%><%=RecSet("nyhet")%><%End If%>
            <br><br>

		    &nbsp;<img src="../gfx/menu_dot.gif" width="8" height="7" border="0"><a href="index_2.asp?ID=<%=RecSet("ID")%>">
            <b>Läs hela nyheten</b></a> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<i><font color="#373737"><%=FormatDateTime(RecSet("datum"),2)%></font></i>
            <br>
            <hr style="border:dashed #A2A2A2; border-width:1px 0 0; height:0;">

</td></tr>
<% else %>
 <tr><td><% if len(recset("bild")) > 0 then %><img src="<%=RecSet("bild")%>" border="1" width="100" height="75"><% end if %></td>
	    <td align="left" valign="top" colspan="2">
     	<font face="verdana" size="3px" color="#9C0000"><b><%=RecSet("rubrik")%></b>
        |</font> <i><font color="#373737"><%=FormatDateTime(RecSet("datum"),2)%></font></i>
        <br><br>
		<%If Len(RecSet("nyhet")) > 150 Then%><%=Left(RecSet("nyhet"),250)%>...<%Else%><%=RecSet("nyhet")%><%End If%>
        <br><br>

     	&nbsp;<img src="../gfx/menu_dot.gif" width="8" height="7" border="0"><a href="index_2.asp?ID=<%=RecSet("ID")%>">
        <b>Läs hela nyheten</b></a></div>
		<hr style="border:dashed #A2A2A2; border-width:1px 0 0; height:0;">
		</td>


	</tr>
<%
End If
x=x+1
RecSet.MoveNext
Loop
RecSet.Close
If Sidor > 1 Then%>
  <tr>
     <td valign="top" colspan="2">
       <%For Sid = 1 To Sidor
               If (Int(Sid)) = (Int(sida)) Then%><b><%=Sid%></b><%Else%> <a href="index_2.asp?sida=<%=Sid%>"><%=Sid%></a> <%End If
         Next%>
    </td>
  </tr>
<%End If
  End If
End If

If Request.QueryString("ID") <> "" Then
	If Request.QueryString("action") = "" Then
		intNewsID = Request.QueryString("ID")
		If Isnumeric(intNewsID) Then
			'Old
		Set RS=Conn.Execute("Select * From news Where id=" & intNewsID)%>
 			<tr>
			<td>

				  <font face="verdana" size="4px"><b><%=RS("rubrik")%></b></font>

		  		<hr width="525" style="border:dashed #A2A2A2; border-width:1px 0 0; height:0;">
			   	<%If RS("bild") <> "" Then%>
    	       		<img src="<%=RS("bild")%>" border="1">
       			<%End If%>

				<br><br>
                </td></tr>

			<tr>
		        <td>
                	<b><%=RS("rubrik")%></b> | <%=FormatDateTime(RS("datum"),2)%><br><br>
                </td>
            </td>
          </tr>
	 	<tr>
        	<td><%=Replace(RS("nyhet"),vbCrLf,"<br>")%><br><br><br><br><b>Skriven av:</b> <%=RS("namn")%>
            </td>
     	</tr>
        </table>

		<br><br>
        <hr style="border:dashed #A2A2A2; border-width:1px 0 0; height:0;" width="530"><b>Kommentarer</b><br /><br />
		<%SQL = "SELECT namn,kommentar,datum FROM tbl_kom Where newsID=" & intNewsID

			Set RS2 = Conn.Execute(SQL)
			If RS2.EOF Then%>
				Inga kommentarer
                <hr style="border:dashed #A2A2A2; border-width:1px 0 0; height:0;" width="530"><br>
			<%Else
				Do Until RS2.EOF %>
					<b>Postat av:</b>
					<%=Server.HtmlEncode(RS2(0))%> -
					<%=FormatDateTime(RS2("datum"),2)%>
                    (<%=FormatDateTime(RS2("datum"),4)%>)<br /><br />
					<%=Replace(Server.HtmlEncode(RS2(1)),vbCrLf, "<br>")%>
                    <hr style="border:dashed #A2A2A2; border-width:1px 0 0; height:0;" width="530"><br>

					<%RS2.MoveNext
				Loop
			End If
			RS2.close:Set RS2=Nothing%>

			<b>Kommentera nyheten</b><br />
			<form method="post" action="news2.asp?ID=<%=intNewsID%>&action=save" name="form">
			<input type="hidden" name="newsID"  value="<%=intNewsID%>">
			<table width="545" cellpadding="3" cellspacing="0" border="0">
			  <tr>
			    <td><b><font size="2px">Namn:</font></b><br /><input type="text" name="namn" size="50"></td>
			  </tr>
			  <tr>
			    <td><b><font size="2px">Kommentar:</font></b><br /><textarea name="kommentar" rows="5" cols="50"></textarea></td>
			  </tr>
			  <tr>
			    <td><input type="Submit" name="andra" value="Spara"></td>
			  </tr>
			</form>
			</table>
			<br />
			<a href="javascript:history.back()"><b>&#171; Tillbaka</b>
		<%Else%>
			Nyheten finns inte eller så är inte ID en siffra!
			<br />
			<a href="javascript:history.back()"><b><< Tillbaka</b>
		<%End If
		Conn.Close:Set conn=nothing

	ElseIf Request.QueryString("action") = "save" Then
		  Namn      = FixSQL(Request.Form("namn"))
		  Kommentar = FixSQL(Request.Form("kommentar"))
		  newsID    = FixSQL(Request.Form("newsID"))
		  Ip   	    = FixSQL(Request.Servervariables("REMOTE_ADDR"))
		  Datum     = Now

		  Conn.Execute("Insert Into tbl_kom(namn, kommentar, datum, newsID, ip) Values('" & Namn & "','" & Kommentar & "','" & Datum & "'," & newsID & ",'" & IP & "')")
		  Conn.Close:Set conn=nothing
		  Response.Redirect "news2.asp?ID=" & newsID
	End If




End If%>
</table>