webForumDet fria alternativet
Logga in / Bli medlem

varför blir det så då??

ASP

8 svar · 261 visningar · startad av FIgg3

FIgg3Medlem sedan sep. 2001354 inlägg
Frågan#1

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

------------------
Har ingen just nu, har du någon idee???

LarsGMedlem sedan dec. 200012 464 inlägg
#2

Jag tycker att det saknas lite kod

howmanyrecs = howmanyrecs + 1

borde finnas med.

Har du postat hela koden?

------------------
essentitia preter non sans multiplicandum

FIgg3Medlem sedan sep. 2001354 inlägg
#3

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

------------------
Har ingen just nu, har du någon idee???

FIgg3Medlem sedan sep. 2001354 inlägg
#4

howmanyrecs = howmanyrecs + 1

Var ska jag ha in den koden????

// FIgg3

------------------
Har ingen just nu, har du någon idee???

LarsGMedlem sedan dec. 200012 464 inlägg
#5

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.

------------------
essentitia preter non sans multiplicandum

LarsGMedlem sedan dec. 200012 464 inlägg
#6

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

------------------
essentitia preter non sans multiplicandum

FIgg3Medlem sedan sep. 2001354 inlägg
#7

Det enda som jag tycker ser skumt ut är detta
Kod:

--------------------------------------------------------------------------------

End If%> | <%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%> |
<%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...

------------------
Har ingen just nu, har du någon idee???

LarsGMedlem sedan dec. 200012 464 inlägg
#8

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>

------------------
essentitia preter non sans multiplicandum

FIgg3Medlem sedan sep. 2001354 inlägg
#9

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

------------------
Har ingen just nu, har du någon idee???

264 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
123 ms — deklarationer (db)
0 ms — hämta statistik (cache)
135 ms — hämta tråd, inlägg och bilagor (db)
126 ms — ändringar (db)