---
title: "gästboksforum"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12702-gästboksforum"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "graf"
published: "2001-11-18T15:00:00.000Z"
updated: "2001-11-18T17:17:00.000Z"
replies: 2
views: 134
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/12702-gästboksforum"
---

# gästboksforum

## #1 — graf, 2001-11-18T15:00Z

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\> 
&#0124; 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\> &#0124; \<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\>

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

## #2 — LarsG, 2001-11-18T15:45Z

Ä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.

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

## #3 — graf, 2001-11-18T17:17Z

Jo, men jag vill alltså inte ändra nåt i databasen.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12702-gästboksforum
