Hur tar jag bort QueryStringen? Jag vill endast ha en sida men 16 st nyheter som listas.. Hmm undrar om ni förstår vad jag menar =)
<% Session.LCID = 1053 %>
<link rel="stylesheet" href="stil.css" type="text/css">
<%
NyhetPerSida = 16
URL = "arkiv_nyheter_las.asp"
db = Server.MapPath("../databaser/nyhet.mdb")
%>
<table cellpadding="1" cellspacing="0" width="100%" 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..</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%>
<tr>
<td>[<%=FormatDateTime(RecSet("datum"),2)%>] <a href="<%=URL%>?ID=<%=RecSet("ID")%>"onMouseOver=" window.status='<%=RecSet("rubrik")%>'; return true"onMouseOut="window.status=' '; return true"><%If Len(RecSet("rubrik")) > 22 Then%><%=Left(RecSet("rubrik"),22)%>...<%Else%><%=RecSet("rubrik")%><%End If%></a></td>
</tr>
<%x=x+1
RecSet.MoveNext
Loop
RecSet.Close
End If
End If
If Request.QueryString("ID") <> "" Then
Set RS=Conn.Execute("Select * From news Where id=" & Request.QueryString("ID"))%>
<tr>
<td><font color="#396C8D"><font face="Verdana"><b><%=RS("rubrik")%></b> - <%=FormatDateTime(RS("datum"),2)%></td>
</tr>
<tr>
<td colspan="2"><font face="Verdana"><%=Replace(RS("nyhet"),vbCrLf, "<br>")%></td>
</tr>
<%End If%>
</table>
<% Session.LCID = 1053 %>
<link rel="stylesheet" href="stil.css" type="text/css">
<%
strSQL = "SELECT TOP 16 * FROM news ORDER BY datum DESC"
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../databas/nyhet.mdb")
Set objRS = objCon.Execute(strSQL)
If NOT objRS.EOF Then
Do Until objRS.EOF
%>
<tr>
<td><font color="#396C8D"><font face="Verdana"><b><%=RS("rubrik")%></b> - <%=FormatDateTime(RS("datum"),2)%></td>
</tr>
<tr>
<td colspan="2"><font face="Verdana"><%=Replace(RS("nyhet"),vbCrLf, "<br>")%></td>
</tr>
<%
objRS.MoveNext
Loop
End If
Set objRS = Nothing
objCon.Close
Set objCon = Nothing
%>
<% Session.LCID = 1053 %>
<link rel="stylesheet" href="stil.css" type="text/css">
<%
strSQL = "SELECT TOP 16 * FROM news ORDER BY datum DESC"
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../databas/nyhet.mdb")
Set objRS = objCon.Execute(strSQL)
If NOT objRS.EOF Then
Do Until objRS.EOF
%>
<tr>
<td><font color="#396C8D"><font face="Verdana"><b><%=objRS("rubrik")%></b> - <%=FormatDateTime(objRS("datum"),2)%></td>
</tr>
<tr>
<td colspan="2"><font face="Verdana"><%=Replace(objRS("nyhet"),vbCrLf, "<br>")%></td>
</tr>
<%
objRS.MoveNext
Loop
End If
Set objRS = Nothing
objCon.Close
Set objCon = Nothing
%>
<% Session.LCID = 1053 %>
<link rel="stylesheet" href="stil.css" type="text/css">
<%
strSQL = "SELECT TOP 16 * FROM news ORDER BY datum DESC"
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../databas/nyhet.mdb")
Set objRS = objCon.Execute(strSQL)
If NOT objRS.EOF Then
Do Until objRS.EOF
%>
<tr>
<td><font color="#396C8D"><font face="Verdana"><b><%=[b]objRS[/b]("rubrik")%></b> - <%=FormatDateTime([b]objRS[/b]("datum"),2)%></td>
</tr>
<tr>
<td colspan="2"><font face="Verdana"><%=Replace([b]objRS[/b]("nyhet"),vbCrLf, "<br>")%></td>
</tr>
<%
objRS.MoveNext
Loop
End If
Set objRS = Nothing
objCon.Close
Set objCon = Nothing
%>
