---
title: "varför blir det så då??"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11983-varför-blir-det-så-då"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "FIgg3"
published: "2001-10-07T12:17:00.000Z"
updated: "2001-10-07T14:20:00.000Z"
replies: 8
views: 288
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/11983-varför-blir-det-så-då"
---

# varför blir det så då??

## #1 — FIgg3, 2001-10-07T12:17Z

När jag kör med denna koden så fungerar det som ett forum och svarna vissas ej på denna sida

```
<%

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("forum.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From forum ORDER BY Datum DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
	
Do Until RecSet.EOF

If RecSet("reid") = 0 Then
id = RecSet("id")
%>
```

Men ska jag lägga till det i pagin systemet som jag laddat ner från webforum så 
fungerar det ej uttan bara skriver ut det som vanligt fattaar ni???

```
 <%
mypage = Request("whichpage")
If mypage = "" then
   mypage = 1
End If
mypagesize = 4

SQL = "Select * From forum Order by datum Desc"

Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
MdbFilePath = Server.MapPath("forum.mdb")
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
If rstemp.EOF then
   Response.write "Där fanns det ju inget... " & sok
Else
   rstemp.movefirst
   rstemp.pagesize = mypagesize
   maxcount = Cint(rstemp.pagecount)
   rstemp.absolutepage = mypage
   howmanyrecs = 0
   howmanyfields = rstemp.fields.count -1
   Do While Not RStemp.EOF AND howmanyrecs < rstemp.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = ""
   Else
      color = ""
   End If

If RStemp("reid") = 0 Then
id = RStemp("id")
End If
%>
```

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

## #2 — LarsG, 2001-10-07T12:23Z

Jag tycker att det saknas lite kod

```
howmanyrecs = howmanyrecs + 1
```

borde finnas med.

Har du postat hela koden?

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

## #3 — FIgg3, 2001-10-07T12:27Z

Så här ser nya koden ut
lite rörig men hoppas att du ser

```
<table width="100%" cellpadding="0" cellspacing="0">
    <%
mypage = Request("whichpage")
If mypage = "" then
   mypage = 1
End If
mypagesize = 4

SQL = "Select * From forum Order by datum Desc"

Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
MdbFilePath = Server.MapPath("forum.mdb")
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
If rstemp.EOF then
   Response.write "Där fanns det ju inget... " & sok
Else
   rstemp.movefirst
   rstemp.pagesize = mypagesize
   maxcount = Cint(rstemp.pagecount)
   rstemp.absolutepage = mypage
   howmanyrecs = 0
   howmanyfields = rstemp.fields.count -1
   Do While Not RStemp.EOF AND howmanyrecs < rstemp.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = ""
   Else
      color = ""
   End If

If RStemp("reid") = 0 Then
id = RStemp("id")
End If
%> 
    <tr bgcolor="<%=color%>"> 
      <td width="35%"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><b><a href="post.asp?id=<%=id%>"><%=RStemp("rubrik")%></a></b> 
        </font></td>
      <td width="57%"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=RStemp("namn")%></font></td>
      <td width="8%"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=RStemp("svar")%></font></td>
    </tr>
    <%  rstemp.movenext
   howmanyrecs = howmanyrecs + 1
   Loop
   rstemp.close
   Set rstemp = nothing
   %> 
    <tr> 
      <td height="21" colspan="3"> <font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%
   If maxcount <> 0 then
response.write "<br>"
   response.write "Sida " & mypage & " av " & maxcount & "" & sidor:
   pad = "0"
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter >= 10 then
      pad = ""
   End If%> &#0124; <%ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
   response.write ref & " "
   if counter mod 10 = 0 then
   End If
   Next
   End If
   End If
%> <br>
        <a href="../write.asp">Skriv in dig i FIgg3boken</a></font></td>
    </tr>
  </table>
```

Gammla

```
<%

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../../dbase/db1.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From Tabell ORDER BY Datum DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
	
Do Until RecSet.EOF

If RecSet("reid") = 0 Then
id = RecSet("id")
%> 
  <tr> 
    <td width="32"><img src="<%=RecSet("Bild")%>"></td>
    <td width="198"><A HREF="post.asp?id=<%=id%>"><font SIZE="1" color="#FF0000"><% Response.write(Server.HTMLEncode(RecSet("Rubrik"))) %></font></a></td>
    <td width="119"><font face="Verdana" size="1"> <%IF (RecSet("Namn")) = "4545" THEN 
      Response.write "<b>Figge<b>" %> <%Else%> <% Response.write(Server.HTMLEncode(RecSet("Namn"))) %> 
      <%End IF%> </font> </td>
    <td width="151"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=RecSet("Datum")%></font></td>
    <td width="33"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=RecSet("Svar")%></font></td>
  </tr>
  <%End if
RecSet.MoveNext
Loop
%>
```

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

## #4 — FIgg3, 2001-10-07T12:34Z

> howmanyrecs = howmanyrecs + 1

Var ska jag ha in den koden????

// FIgg3

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

## #5 — LarsG, 2001-10-07T12:39Z

Nej det behöver du inte lägga till. Det finns ju redan med i din fullständiga kod.

Jag skall ta en titt på den.

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

## #6 — LarsG, 2001-10-07T13:05Z

Det enda som jag tycker ser skumt ut är detta 

```
End If%> &#0124; <%ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
response.write ref & " "
```

Om du lägger det på olika rader så kanske

```

End If%> &#0124; 
<%ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
response.write ref
```

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

## #7 — FIgg3, 2001-10-07T13:26Z

> Det enda som jag tycker ser skumt ut är detta 
> Kod:
>
>
> \--------------------------------------------------------------------------------
>
> End If%\> &#0124; \<%ref = "\<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'\>" & pad & counter & "\</a\> "
> response.write ref & " "
>
>
> \--------------------------------------------------------------------------------
>
>
> Om du lägger det på olika rader så kanske
>
> Kod:
>
>
> \--------------------------------------------------------------------------------
>
> End If%\> &#0124; 
> \<%ref = "\<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'\>" & pad & counter & "\</a\> "
> response.write ref

mm men det funkar bra inga felmedlande eller så uttan det är bara så att det ej funkar som ett forum så att svaren skrivs allså ut påä samma sida som rubrikerna som det ej ska göra det ä'r det jag violl ha hjälp med...

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

## #8 — LarsG, 2001-10-07T13:41Z

Jag förstår nu att jag inte förstod vad du menade. Jag har flyttat om lite i koden.

```
<table width="100%" cellpadding="0" cellspacing="0">
<%
mypage = Request("whichpage")
If mypage = "" then
mypage = 1
End If
mypagesize = 4
SQL = "Select * From forum Order by datum Desc"

Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
MdbFilePath = Server.MapPath("forum.mdb")
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
If rstemp.EOF then
Response.write "Där fanns det ju inget... " & sok
Else
rstemp.movefirst
rstemp.pagesize = mypagesize
maxcount = Cint(rstemp.pagecount)
rstemp.absolutepage = mypage
howmanyrecs = 0
howmanyfields = rstemp.fields.count -1
Do While Not RStemp.EOF AND howmanyrecs < rstemp.pagesize
counter = counter + 1
If counter mod 2 = 0 then
color = ""
Else
color = ""
End If

If RStemp("reid") = 0 Then
id = RStemp("id")
%> 
<tr bgcolor="<%=color%>"> 
<td width="35%"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><b><a href="post.asp?id=<%=id%>"><%=RStemp("rubrik")%></a></b> 
</font></td>
<td width="57%"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=RStemp("namn")%></font></td>
<td width="8%"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=RStemp("svar")%></font></td>
</tr>
<% howmanyrecs = howmanyrecs + 1
end if
rstemp.movenext

Loop
rstemp.close
Set rstemp = nothing
%> 
<tr> 
<td height="21" colspan="3"> <font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%
If maxcount <> 0 then
response.write "<br>"
response.write "Sida " & mypage & " av " & maxcount & "" & sidor:
pad = "0"
scriptname = request.Servervariables("script_name")
for counter = 1 to maxcount
If counter >= 10 then
pad = ""
End If%> &#0124; <%ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
response.write ref & " "
if counter mod 10 = 0 then
End If
Next
End If
End If
%> <br>
<a href="../write.asp">Skriv in dig i FIgg3boken</a></font></td>
</tr>
</table>
```

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

## #9 — FIgg3, 2001-10-07T14:20Z

Tack ska testa nu om det ej fungerar kommer jag till baka och stör igen ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11983-varför-blir-det-så-då