Är det inte samma som detta
http://cgi.webforum.nu/wf/Forum11/HTML/007226.html
Om du postar kod så är det bra om du bara tar med det som är relevant i sammanhanget.
------------------
essentitia preter non sans multiplicandum
Frågan#1
Hej, som jag har nu så är det rubriker i forumet och sen till vänster läser man texten.
Hur gör jag om jag vill ha en lång lista med alla inlägg?
Alltså det ska vara såhär (som en gästbok)
Användare: graf
Rubrik: ASP
Text: blablablabla
---------------------
Användare: didrik
Rubrik: HTML
Texy: blablabls
osv osv...
Var och vad ska jag klippa in?
Jag SKA inte behöva ändra nåt i databasen det vet jag!
Här är forum.asp filen det är där alla rubriktexter står, sen under det är det read.asp filen och där är inläggs texten, tacksam för hjälp!!
FORUM.ASP:
<!-- #include file="adovbs.inc" -->
<html>
<head>
<title>Forum</title>
<style>
<!--
a { text-decoration: none }
a:hover { color: #cococo; text-decoration: underline }
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="500" border="0" cellspacing="0" cellpadding="2" height="100%" align="center">
<tr>
<td valign="top">
<p align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#DCDCDC"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">[<A HRef="forum.asp">Uppdatera</A>] [<a href="nyinlagg.asp">Skriv inlägg</a>] [<A HREF="sok.asp" target="huvud">Sök</A>] </font></td>
</td>
</tr>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/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 ' <-- Här visar vi bara de 25 senaste trådarna
nytt = "yes"
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><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<a href="read.asp?ID=<%=RecSet("ID")%>" target="huvud">
<% IF nytt = "yes" THEN %>
<% END IF %><li>
<%=RecSet("RUBRIK")%></a> <%=RecSet("NAMN")%> [<%=RecSet("ANTALSVAR")%>]</font></td>
<td width="130"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
</font></td>
<td width="125"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
</tr>
<%
RecSet.MOVENEXT
LOOP
RecSet.CLOSE
Connect.CLOSE
Set RecSet = nothing
Set Connect = nothing
%>
</table>
<hr size="1" width="50%" align="left">
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font><br>
<b><font size="1" 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>
</body>
</html>
READ.ASP:
<!-- #include file="adovbs.inc" -->
<%
inlaggID = Request.QueryString("ID")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/forum.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From asp WHERE ID=" &inlaggID
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<%
Function Smiley(text)
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")
Response.Write text
End Function
%>
<html>
<head>
<title>Forum</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="200" border="0" cellspacing="0" cellpadding="2" height="100%" align="center">
<tr>
<td valign="top" class="right-line"> <br>
<table width="90%" border="0" cellpadding="1" align="center">
<tr>
<td bgcolor="#8CA7B5">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25">
<div align="center"><font color="#993300" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><%=server.HTMLEncode(RecSet("RUBRIK"))%></b></font></div>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#FFFFFF">
<td bgcolor="#FFFFFF" valign="top"> <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
<%=Smiley(RecSet("INLAGG"))%><br>
<br>
</font></td>
</tr>
<tr>
<td valign="top"><font color="#DCDCDC" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1">Skribent </font><font color="#993300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=server.HTMLEncode(RecSet("NAMN"))%></font><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">
den <font color="#993300"><%= NOW %></font>
| E-post :</font> <font size="1">
<%
IF RecSet("EPOST") = "" THEN
Response.Write "ingen epost"
ELSE
%>
<a href="mailto:<%=RecSet("EPOST")%>" class="vit"><%=server.HTMLEncode(RecSet("EPOST"))%></a>
<%
END IF
%> <br>
<SCRIPT language="JavaScript">
<!--
function opensmall()
{
open("" , "opensmall" , "toolbar=no,width=400,height=300");
}
//-->
</SCRIPT>
[<A HREF="javascript:opensmall()">Tipsa en vän</A>]
</font> </font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
IF RecSet("ANTALSVAR") <> 0 THEN
RecSet.CLOSE
Addera = "Select * From asp WHERE REF_ID=" &Request.QueryString("ID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<br>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font> <br>
<br>
<%DO UNTIL RecSet.EOF%>
<table width="90%" border="0" cellpadding="1" align="center">
<tr>
<td bgcolor="#8CA7B5">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20">
<div align="center"><b><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=server.HTMLEncode(RecSet("RUBRIK"))%></font></b></div>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#FFFFFF">
<td bgcolor="#FFFFFF" valign="top"> <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
<%=Smiley(RecSet("INLAGG"))%><br>
<br>
</font></td>
</tr>
<tr>
<td valign="top" bgcolor="#FFFFFF">
<hr width="100%" size="1">
<font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" color="#000000">Skribent </font><b><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=server.HTMLEncode(RecSet("NAMN"))%></font></b><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
den <i><%=RecSet("DATUM")%></i> | <b>E-post</b> :</font>
<font size="1" color="#000000">
<%
IF RecSet("EPOST") = "" THEN
Response.Write "ingen epost"
ELSE
%>
</font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="mailto:<%=RecSet("EPOST")%>" ><%=server.HTMLEncode(RecSet("EPOST"))%></a></font><font size="1" color="#000000">
<% END IF %>
</font></font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
RecSet.MOVENEXT
LOOP
END IF
RecSet.CLOSE
Connect.CLOSE
Set RecSet = nothing
Set Connect = nothing
%>
<div align="left"></div>
<form name="form1" method="post" action="adderaPost.asp?refID=<%=inlaggID%>">
<hr width="100%" size="1" align="left">
<div align="left"><b><font size="4" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" color="#FF0000">
</font><br>
<font size="1">Skriv ett svar</font></font></b><br>
<b><font size="4" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" color="#FF0000">
<%
IF Session("fel") <> "" THEN
Response.WRITE Session("fel")
Session("fel") = ""
END IF
%>
</font></font></b><br>
</div>
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="226"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="text" name="namn" size="30" maxlength="20" class="TABELLER" value="<%IF Request.Cokies("UserInfo")("NAMN") <> "" THEN Response.Write Request.Cokies("UserInfo")("NAMN")%>">
</font></td>
<td width="174"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Skribent</font></td>
</tr>
<tr>
<td width="226"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="text" name="epost" size="30" maxlength="50" class="TABELLER" value="<%IF Request.Cokies("UserInfo")("EPOST") <> "" THEN Response.Write Request.Cokies("UserInfo")("EPOST")%>">
</font></td>
<td width="174"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">E-post</font></td>
</tr>
<tr>
<td width="226"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="rubrik" size="30" maxlength="50" class="TABELLER">
</font></td>
<td width="174"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">Rubrik</font></td>
</tr>
<tr>
<td colspan="2"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
Text<br><textarea name="inlagg" cols="40" rows="10" class="TABELLER"></textarea>
</font></td>
</tr>
<tr>
<td width="226"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="submit" name="Submit" value="Spara kommentar" alt="Posta svaret" border = "0">
</font></td>
<td width="174"> </td>
</tr>
</table>
</form>
<div align="left">
<p> </p>
<p><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
</font></p>
</div>
</td>
</tr>
</table>
</body>
</html>