---
title: "Nu behöver jag hjälp.. =)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/72792-nu-behöver-jag-hjälp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "tank82"
published: "2003-04-01T15:08:43.000Z"
updated: "2003-04-01T16:28:50.000Z"
replies: 7
views: 291
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/72792-nu-behöver-jag-hjälp"
---

# Nu behöver jag hjälp.. =)

## #1 — tank82, 2003-04-01T15:08Z

Hejsan jag behöver hjälp och det är fort.

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>
```

Permalänk: https://www.webforum.nu/p/72792

## #2 — Sebbe, 2003-04-01T15:21Z

```
<% 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
%>
```

Var det något sådant du menade kanske?

Permalänk: https://www.webforum.nu/p/998380

## #3 — tank82, 2003-04-01T15:36Z

Ja det kanske det är, fast det funka inte =)

Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'RS' 

nyheter.asp, line 12

Permalänk: https://www.webforum.nu/p/998396

## #4 — Sebbe, 2003-04-01T15:39Z

```
<% 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
%>
```

 :)

Permalänk: https://www.webforum.nu/p/998399

## #5 — voigtann1, 2003-04-01T15:40Z

```
<% 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
%>
```

Permalänk: https://www.webforum.nu/p/998400

## #6 — tank82, 2003-04-01T16:15Z

Tack tack tusen tack =)

Permalänk: https://www.webforum.nu/p/998429

## #7 — voigtann1, 2003-04-01T16:23Z

Förstod du vad felet var? och varför det blev så?

Permalänk: https://www.webforum.nu/p/998432

## #8 — Sebbe, 2003-04-01T16:28Z

> **tank82 skrev:**
>
> Tack tack tusen tack =)

Ingen orsak :) :D

Permalänk: https://www.webforum.nu/p/998436

---

Tråden på webben: https://www.webforum.nu/amne/asp/72792-nu-behöver-jag-hjälp