Trådstart#1
Hur gör jag så att jag kan få bara visar 20 inlägg per sida i mitt forum koden ser ut så här vilka ändringar behövs göras?
Jag menar så att det också kommer länkar där nere ungefär som här på Webforum??
Tacksam för svar!
Flera sidor
5 svar · 210 visningar · startad av johang
Skulle någon kunna vara snäll och fixa till den här koden så att det funkar??
<!--#include file="adovbs.inc"-->
<html>
<head>
<meta http-equiv="Content-Language" content="sv">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>GamersVision Forum</title>
</head>
<!--Copyright 2001 Johan Gustafsson-->
<!--Skriptet är fritt att använda om dessa rader finns kvar.-->
<%
If Session("Username")="" THEN
%>
<%
'***** Skapar Connection-objektet *****'
Set Databas = Server.CreateObject("ADODB.Connection")
'***** Specifierar sökvägen *****'
MdbFilePath = Server.MapPath("forum.mdb")
'***** öppnar databasen *****'
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
%>
<% Set rs=Databas.Execute("Select * From Meddelanden Order by Datum DESC")
%>
<body text="#FFFFFF" bgcolor="#1056BE" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<!--webbot bot="Include" U-Include="../meny.asp" TAG="BODY" startspan -->
<p align="center"><font color="#000000">[<a href="../default.asp">INDEX</a>] [<a href="../artiklar.asp">ARTIKLAR</a>]
[<a href="forum.asp">FORUM]</a> [<a href="http://redaktionen.asp">REDAKTIONEN</a>]</font></p>
<!--webbot bot="Include" endspan i-checksum="47740" -->
<div align="center">
<center>
<table border="1" width="761" height="139" bordercolor="#000000" cellspacing="0" cellpadding="0">
<tr>
<td width="901" height="55" colspan="5" bgcolor="#FFFFFF"><font color="#000000"><img border="0" src="../images/gv_logo_def.jpg" align="left"></font>
<form method="POST" action="login.asp">
<p><input type="text" name="Username" size="13" value="ANVÄNDARNAMN"><font color="#000000"><input type="password" name="Password" size="13" value="LÖSENORD"></font><br>
<input type="submit" value="Logga in" name="Login"></p>
</form>
</td>
</tr>
<tr>
<td width="901" height="19" colspan="5" bgcolor="#1056BE"><font size="2"> <a href="create.asp">BLI
MEDLEM</a></font></td>
</tr>
<tr>
<td width="20" height="18" bgcolor="#003366"> </td>
<td width="172" height="18" bgcolor="#003366"><font color="#FFFFFF">Rubrik:</font></td>
<td width="271" height="18" bgcolor="#003366"><font color="#FFFFFF">Postat av:</font></td>
<td width="114" height="18" bgcolor="#003366"><font color="#FFFFFF">Antal svar:</font></td>
<td width="258" height="18" bgcolor="#003366"><font color="#FFFFFF">Senaste
svar:</font></td>
</tr>
<% Do Until rs.eof %>
<tr>
<td width="20" height="12" bgcolor="#006699"><img border="0" src="<%=rs("Ikon")%>.gif"></td>
<td width="172" height="12" bgcolor="#006699"><a href="vforum.asp?id=<%=rs("ID")%>"><%=rs("Rubrik")%></td>
<td width="271" height="12" bgcolor="#006699"><%=rs("Namn")%></td>
<td width="114" height="12" bgcolor="#006699"><%=rs("Antalsvar")%></td>
<td width="258" height="12" bgcolor="#006699"><%=rs("Datum")%></td>
</tr>
<% rs.movenext
Loop
RS.Close
%>
<tr>
<td width="865" height="26" colspan="5" bgcolor="#336699"><font color="#000000">Copyright
© 2001-2002 GamersVision</font></td>
</tr>
</table>
</center>
</div>
<% Elseif Session("Username")>"" THEN %>
<%
'***** Skapar Connection-objektet *****'
Set Databas = Server.CreateObject("ADODB.Connection")
'***** Specifierar sökvägen *****'
MdbFilePath = Server.MapPath("forum.mdb")
'***** öppnar databasen *****'
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
%>
<% Set rs=Databas.Execute("Select * From Meddelanden Order by Datum DESC")
%>
<!--webbot bot="Include" U-Include="../meny.asp" TAG="BODY" startspan -->
<p align="center"><font color="#000000">[<a href="../default.asp">INDEX</a>] [<a href="../artiklar.asp">ARTIKLAR</a>]
[<a href="forum.asp">FORUM]</a> [<a href="http://redaktionen.asp">REDAKTIONEN</a>]</font></p>
<!--webbot bot="Include" endspan i-checksum="47740" -->
<div align="center">
<center>
<table border="1" width="761" height="139" bordercolor="#000000" cellspacing="0" cellpadding="0">
<tr>
<td width="901" height="55" colspan="5" bgcolor="#FFFFFF"><font color="#000000"><img border="0" src="../images/gv_logo_def.jpg" align="left"></font>
</td>
</tr>
<tr>
<td width="901" height="19" colspan="5" bgcolor="#1056BE"><img border="0" src="post.gif"><font size="2"><a href="post.asp">POSTA
INLÄGG</a> <a href="loggout.asp">LOGGA
UT</a></font></td>
</tr>
<tr>
<td width="20" height="18" bgcolor="#003366"> </td>
<td width="172" height="18" bgcolor="#003366"><font color="#FFFFFF">Rubrik:</font></td>
<td width="271" height="18" bgcolor="#003366"><font color="#FFFFFF">Postat av:</font></td>
<td width="114" height="18" bgcolor="#003366"><font color="#FFFFFF">Antal svar:</font></td>
<td width="258" height="18" bgcolor="#003366"><font color="#FFFFFF">Senaste
svar:</font></td>
</tr>
<% Do Until rs.eof %>
<tr>
<td width="20" height="12" bgcolor="#006699"><img border="0" src="<%=rs("Ikon")%>.gif"></td>
<td width="172" height="12" bgcolor="#006699"><a href="vforum.asp?id=<%=rs("ID")%>"><%=rs("Rubrik")%></td>
<td width="271" height="12" bgcolor="#006699"><%=rs("Namn")%></td>
<td width="114" height="12" bgcolor="#006699"><%=rs("Antalsvar")%></td>
<td width="258" height="12" bgcolor="#006699"><%=rs("Datum")%></td>
</tr>
<% rs.movenext
Loop
RS.Close
%>
<tr>
<td width="865" height="26" colspan="5" bgcolor="#336699"><font color="#000000">Copyright
© 2001-2002 GamersVision</font></td>
</tr>
</table>
</center>
</div>
<% End If %>
</body>
</html>
<% Databas.close%>
om du läser ovan länkar klarar du av det själv.
Om man inte gör det själv så lär man sig ju inte.