Jag har gjort ett forum enligt en "mall" som jag hittade på nätet.
Jag skulle nu behöva någon som kan asp som vill kolla varför forumet inte delar upp trådarna på flera sidor.

Det ska bli 25 trådar på varje sida men det delar inte upp över huvud taget.

Någon som skulle kunna tänka sej att kolla det åt mej?

Detta är ganska akut då jag behöver forumet snarast.

Hej.

Är det paging du använder??

Posta din kod på sidan som du skall visa posterna på...

//fredda

detta felmeddelandet får jag när jag försöker lägga in koden :-(

Sidan har ett permanent fel


Felet som uppstår är Var vänlig att informera administratorn detta fel.


Felmeddelande från föregående sida: Microsoft OLE DB Provider for ODBC Drivers

Sidan du försökte komma åt var: /development/forum/test2.asp
Felet uppstod på rad: 175
Du kom ifrån sida: x


Microsoft OLE DB Provider for ODBC Drivers
/development/forum/test2.asp
[Microsoft][ODBC SQL Server Driver][SQL Server]Error converting data type text to ntext..
No code available
175

<tr>
<td valign="top" align="center" width="100%" height="613">
<p align="center">
<font face="Verdana, Arial, Helvetica, sans-serif" size="4" color="#000000">

<b>GÄSTDEBATÖRER</b></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><br>

<br>

</font>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<img src="bilder/avgransare.gif"></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><br>
<br>
För att allt ska gå rätt till så ber jag dig att läsa&nbsp;
»» reglerna ««&nbsp;&nbsp;
för detta forumet. <br>

Inlägg markerade med <img border="0" src="bilder/pil1.gif"> innehåller svar som är högst en dag
gamla.
<br>
Gör inlägg&nbsp;
»» klicka här ««


&nbsp;eller gå längst ner sidan! <br>
<br>
&nbsp;</font></p>
<div align="left" style="width: 550; height: 133">

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" bordercolor="#000000" class="overskrift" style="background-color: #66FF99">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
RUBRIK
</font>
</td>


<td width="130" align="left" bordercolor="#000000" class="overskrift" style="background-color: #66FF99">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
SKRIVET AV
</font>
</td>


<td width="125" bgcolor="#66FFFF" align="left" bordercolor="#000000" class="overskrift" style="background-color: #66FF99">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
DATUM
</font>
</td>


<td width="40" bgcolor="#66FFFF" align="left" bordercolor="#000000" class="overskrift" style="background-color: #66FF99">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
SVAR
</font>
</td>
</tr>





<%
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 asp WHERE REF_ID = 0 ORDER BY DATUM DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
X=0
DO UNTIL X=25 OR RecSet.EOF ' <-- 25 senaste trådarna

nytt = "no"

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

Addera2 = "Select DATUM From asp WHERE REF_ID = " &RecSet("ID")
RecSet2.Open Addera2, Connect, adOpenStatic, adLockOptimistic

DO UNTIL RecSet2.EOF OR nytt = "yes"
IF RecSet2("DATUM") > NOW - 1 THEN
nytt = "yes"
END IF

RecSet2.MOVENEXT
LOOP

RecSet2.CLOSE
%>







<tr>
<td style="border-top-style: solid; border-top-width: 1">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
">
<% IF nytt = "yes" THEN %>

<p align="left">
<img border="0" src="bilder/pil1.gif">
">
<% END IF %>
<%=RecSet("RUBRIK")%>

</font>
</td>


<td width="130" style="border-top-style: solid; border-top-width: 1">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<%=RecSet("NAMN")%>
</font>
</td>


<td width="125" style="border-top-style: solid; border-top-width: 1">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<%=RecSet("DATUM")%>
</font>
</td>


<td width="40" style="border-top-style: solid; border-top-width: 1">
<div align="center">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<%=RecSet("ANTALSVAR")%>
</font>
</div>
</td>
</tr>



<%
RecSet.MOVENEXT
LOOP
RecSet.CLOSE
Connect.CLOSE
Set RecSet = nothing
Set Connect = nothing
%>


</table>



<p align="center">
<img src="bilder/avgransare.gif"><br><br>
<p align="center">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<b>

Skriv ett inl&auml;gg <br>

</b>
</font>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
«« Tillbaka

</font>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<b>

|Smilys-koder|
Forumreglerna</b></font><br>
<b>
<font size="3" face="Verdana, Arial, Helvetica, sans-serif" color="#FF0000">






<%
IF Session("fel") <> "" THEN
Response.WRITE Session("fel")
Session("fel") = ""
END IF
%>






</font>
</b>
<br>
</p>
</div>
<form name="SKRIV" method="post" action="adderaPost.asp">
<div align="center">

<table width="1%" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td width="433%" align="center">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
Namn</font></td>


</tr>


<tr>
<td width="433%" align="center">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
&nbsp;<input type="text" name="namn" size="30" maxlength="20" value="<%IF Request.Cookies("UserInfo")("NAMN") <> "" THEN Response.Write Request.Cookies("UserInfo")("NAMN")%>">
</font>
</td>


</tr>


<tr>
<td width="433%" align="center">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
Epost</font></td>
</tr>


<tr>
<td width="433%" align="center">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
&nbsp;<input type="text" name="epost" size="30" maxlength="50" value="<%IF Request.Cookies("UserInfo")("EPOST") <> "" THEN Response.Write Request.Cookies("UserInfo")("EPOST")%>">
</font>
</td>
</tr>
<tr>
<td width="433%" align="center">
<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
Rubrik
</font>
</td>


</tr>


<tr>
<td width="433%" align="center">
<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">

<input type="text" name="rubrik" size="30" maxlength="40" >
</font>
</td>


</tr>


<tr>
<td align="center" width="433%">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
Inl&auml;gg
</font>
<br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<textarea name="inlagg" cols="57" rows="8">
</textarea>
</td>
</tr>


<tr>
<td width="433%" align="center">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">

<input type="submit" name="Submit" value="Posta inlägg" alt="Posta inl&auml;gget!">
</font>
<p>&nbsp;
</td>


</tr>
</table>


</div>
</form>
</td>
</tr>
</table>
<p align="center">Du är besökare nr <%
on error resume next
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("besokare.txt"))
counter = clng(act.readline)
counter = counter + 1
act.close

Set act = fso.CreateTextFile(server.mappath("besokare.txt"), true)
act.WriteLine(counter)
act.Close
%>
<%
on error resume next
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("besokare.txt"))
counter = clng(act.readline)
counter = counter + 0
act.close
Set act = fso.CreateTextFile(server.mappath("besokare.txt"), true)
act.WriteLine(counter)
act.Close
Response.Write counter
%> här på forumet from 10/6 -02. <br>
Programmering och design av
<a title="Maila Mika" href="mailto:kontakt@mikasdesign.com">Marika Lantz</a>,
<a target="_blank" title="Gå till MikasDesign.com" href="http://www.mikasdesign.com">
www.MikasDesign.com</a></p>


</body>
</html>

Ingen som hittar nåt fel?

Hej

Jag skulle föreslå att du tittar på paging istället, det finns en kurs om det på Pellesoft, http://www.pellesoft.nu/login/articles/asp/asp_paging.asp

Det är nog ett enklare sätt än att köra med Do satser.

/Anna-Karin

Jag har kollat den sidan redan och jag fattar noll.
Forumet har jag gjort via en kurs någonstans och genom att jag gjort det genom en mall så rent ut sagt så vet jag inte vad jag har gjort. Det funkar något sådär i alla fall.

Jag ska kolla så återkommer jag, jag ska kolla de forum som jag har och hur de är upplagda, mailar eller lägger in en länk här sedan.

Jag ska ha något forum liggandes som har administration till, även några utan.

/Anna-Karin

Låter kanon.
Jag får nu hjälp av en kille att göra en adminsida till mitt forum. *ler*

Kram

Flyttar bara upp frågan. sorry för det.

Behöver fortfarande hjälp.

Raden där det står:
DO UNTIL X=25 OR RecSet.EOF
betyder att alla inlägg listas. Du får skriva om den raden!

Jo men hur ska jag skriva om raden????
Jag vet inte hur.

Ska titta på detta! Återkommer när jag har hittat nåt

Kanon!
Tack!

Behöver fortfarande hjölp tack!

Hej

Kolla på http://www.aspin.com/ där finns det forum, jag tror även att det finns forum på filarean att ladda hem och modifiera.
http://activedeveloper.dk/ har också en del att ladda hem, fast på danska då förståss.

Jag har inte haft tid att gå igenom mina forum, tyvärr.

/Anna-Karin

Är inte ute efter att ladda hem nytt forum. Jag ska använda mitt gamla och har redan forumen ute på nätet men det är just detta jag måste ändra.
Det MÅSTE finnas något sätt att få trådarna att listas 25 per sida. och att de resterande blir synliga.