her er hele siden. gider du rette den????
<!-- #INCLUDE FILE=\"hed.asp\" -->
<!-- #INCLUDE FILE=\"linkit.asp\" -->
<%
bDontCount = False
sPageTitle = \"Counselor.dk - Svar om narko, heroin, hash, ecstasy, coke, misbrug og en vej ud\"
bAdminOnly = False
lSubjectID = 0
sTitleBar = \" :: hjem\"
%>
<!-- #INCLUDE FILE=\"top.asp\" -->
<%
If messageID<>\"\" Then
Set rsMessage = Conn.Execute (\"SELECT * FROM \" & username & \" WHERE MessageID=\'\" & messageID & \"\';\")
if rsMessage(\"Posted\") < fdays then
Session(\"arkiv\")=\"yes\"
else
Session(\"arkiv\")=\"\"
End if
CommentsM = rsMessage(\"comments\")
nameM = rsMessage(\"Name\")
SubjectM = rsMessage(\"Subject\")
commentsR=REPLACE(\">\" & CommentsM ,vbCrlf, vbCrlf & \">\")
commentsS= addLinks(CommentsM, \"_blank\")
commentsE= REPLACE(CommentsS ,vbCrlf,\"<br>\")
commentsR= nameM &\" skrev:\" & vbCrlf & commentsR
If rsMessage(\"Posted\") = rsMessage(\"Replied\") then
messagetime = rsMessage(\"Posted\")
End If
If (rsMessage(\"Replied\") > rsMessage(\"Posted\") And rsMessage(\"Replied\") > rsMessage(\"Followed\")) then
messagetime=rsMessage(\"Replied\")
End If
If rsMessage(\"Followed\") >rsMessage(\"Replied\") then
messagetime = rsMessage(\"Followed\")
End If
NString = Split(MessageTime, \"-\", -1, 1)
\'NString(0) Dag
\'NString(1) Måned
\'NString(2) År
\'NString(3) Timer
\'NString(4) Minutter
\'NString(5) Sekunder
TidM = NString(2) & \"-\" & NString(1) & \"-\" & NString(0) & \" \" & NString(3) &\":\" & NString(4) & \":\" & NString(5)
Set rs3 = Conn.Execute (\"SELECT COUNT(*) AS Antalindl FROM \" & username & \" WHERE Posted = \'\"& rsMessage(\"Posted\") & \"\' AND Trash=0\")
%>
<table summary=\"message\" cellpadding=\"6\" cellspacing=\"1\" border=\"1\" width=\"95%\" align=\"center\">
<tr>
<td bgcolor=\"#efefef\">
<p class=\"overskrift\">Postet af <% = nameM & \" \" & TidM %>. Emne: <%= SubjectM %> (<% =rs3(\"Antalindl\")-1 %> svar i tråden)<% if Session(\"arkiv\")=\"yes\" then%> <font color=\'red\'><b>Arkiveret</b></font> <% End if %></p>
</td>
</tr>
<tr>
<td><p>
<br>
<% =commentsE %></p>
<hr width=\"100%\" noshade size=\"1\">
<table summary=\"menu\" width=\"100%\" align=\"center\" cellpadding=\"3\" cellspacing=\"3\">
<tr>
<td align=\"left\">
<%
if post=\"fut\" then
session(\"fut\")=\"\"
End if
if mode=\"fut\" then
if session(\"fut\")=\"open\" then \' er den åben
treadopcl=\"Vis tråd\" \'skriv \"Vis tråd\"
session(\"fut\")=\"\" \' Luk den
elseif session(\"fut\")=\"\" then \' Er den lukket
treadopcl=\"Skjul tråd\" \'skriv \"Skjul tråd\"
session(\"fut\")=\"open\" \' åbn den
End if
elseif session(\"fut\")=\"\" then
treadopcl=\"Vis tråd\"
elseif session(\"fut\")=\"open\" then
treadopcl=\"Skjul tråd\"
End if
%>
<% if Session(\"arkiv\")<>\"yes\" then %><a href=\"message.asp?username=<%=username%>&messageID=<% =messageID %>&post=fut\">[ Besvar ]</a>
<% if subscribe=\"\" then %><a href=\"message.asp?username=<% =username %>&messageID=<% = messageID %>&subscribe=fut\">[ Abbonnér ]</a>
<% End if
End if %>
<a href=\"message.asp?username=<%=username%>&messageID=<% =messageID %>&mode=fut\">[ <% =treadopcl %> ]</a>
</td>
<td align=\"right\">
<a href=\"changeview.asp?username=<%=username%>&view=top\">[ Oversigt ]</a>
<a href=\"changeview.asp?username=<%=username%>&view=tread\">[ Vis tråde ]</a>
<a href=\"changeview.asp?username=<%=username%>&view=newest\">[ Vis nyeste ]</a>
<a href=\"changeview.asp?username=<%=username%>&view=arkiv\">[ Arkiv ]</a>
</td>
</tr>
</table>
<hr width=\"100%\" noshade size=\"1\">
<div align=\"right\">
<% =rsUsers(\"Forumname\")%>
</div>
<br>
</td>
</tr>
</table>
<p>
<%
If session(\"fut\")=\"open\" then
Set rsClients = Conn.Execute(\"SELECT * FROM \" & username & \" WHERE Posted = \'\" & rsMessage(\"Posted\") & \"\' and Trash=0 ORDER BY Posted DESC, Replied, Followed ASC;\")
indents=1
Do While Not rsClients.EOF
If rsClients(\"Posted\") = rsClients(\"Replied\") then
Response.write \"  <img src=\"\"style/bull.gif\"\" alt=\"\"*\"\">\"
snow = rsClients(\"Posted\")
End If
If (rsClients(\"Replied\") > rsClients(\"Posted\") And rsClients(\"Replied\") > rsClients(\"Followed\")) then
Response.Write\" \"
snow = rsClients(\"Replied\")
End If
If rsClients(\"Followed\") > rsClients(\"Replied\") then
Response.Write \" \"
snow2 = rsClients(\"Followed\")
For n = 0 to indents
Response.Write \" \"
next
indents =indents + 1
if indents = 4 then
indents= 0
End if
End If
MString = Split(snow, \"-\", -1, 1)
\'String(0) Dag
\'String(1) Måned
\'String(2) År
\'String(3) Timer
\'String(4) Minutter
\'String(5) Sekunder
snow2 = MString(2) & \"-\" & MString(1) & \"-\" & MString(0) & \" \" & MString(3) &\":\" & MString(4) & \":\" & MString(5)
If rsClients(\"messageID\")= MessageID then
Response.write \"<a href=\'message.asp?username=\" & username & \"&messageID=\" & rsClients(\"messageID\") & \"\'><img src=\'style/view.gif\' border=\'0\' alt=\'Dette indlæg vises\'>\" & rsClients(\"Subject\") & \"</a>\"
else
Response.write \"<a href=\'message.asp?username=\" & username & \"&messageID=\" & rsClients(\"messageID\") & \"\'>\" & rsClients(\"Subject\") & \"</a>\"
End if
Response.write \" - \" & rsClients(\"Name\") & \" \"
Response.Write \"den \" & snow2
if rsClients(\"Posted\") = rsClients(\"Replied\") then
Response.Write\" (\" & rs3(\"Antalindl\")-1 & \" svar)\"
End if
If DateDiff(\"d\", snow2, DATE) < 6 then
Response.write \"<font color = \'red\'><i> - NY!!</i></font>\"
End If
Response.write\"<br>\"
rsClients.MoveNext
Loop
rsClients.close
Set rsClients = Nothing
%>
</p><br>
<%
End if
If Session(\"arkiv\")<>\"yes\" then
if post=\"fut\" OR subscribe=\"fut\" then
If rsMessage(\"Posted\") = rsMessage(\"Replied\") then
subtype=\"Replied\"
else
subtype=\"Followed\"
End if
%>
<% if subscribe<>\"fut\" then %>
<form method=\"POST\" name=\"forum\" action=\"process.asp\">
<% else %>
<form method=\"POST\" name=\"forum\" action=\"subscribe.asp\">
<% end if %>
<input type=\"hidden\" name=\"subtype\" value=\"<% =subtype %>\">
<input type=\"hidden\" name=\"username\" value=\"<% =username %>\">
<input type=\"hidden\" name=\"Posted\" value=\"<% =rsMessage(\"Posted\") %>\">
<input type=\"hidden\" name=\"Replied\" value=\"<% =rsMessage(\"Replied\") %>\">
<input type=\"hidden\" name=\"Newest\" value=\"<% = strNewest %>\">
<input type=\"hidden\" name=\"Firstmessage\" value=\"<% = strFirstmessage %>\">
<input type=\"hidden\" name=\"Count\" value=\"<% = strCount %>\">
<input type=\"hidden\" name=\"Topcount\" value=\"<% = strTopcount %>\">
<% if subscribe=\"fut\" then %>
<table summary=\"subscribe\" width=\"95%\" align=\"center\">
<tr>
<td align=\"center\">
Brugernavn: <input type=\"text\" class=\"text\" name=\"name\" value=\"<%=strName%>\" size=\"21\"></td>
<td align=\"center\">
Email: <input type=\"text\" class=\"text\" name=\"emailad\" size=\"21\" value=\"<%=strEmailad%>\"></td>
</td>
</tr>
<tr><td colspan=\"2\">
<input TYPE=\"radio\" NAME=\"Treadmail\" Value=\"yes\" onClick=\"this.form.Frameld.checked=false;java script:document.form.submit()\"
checked>Subscribe <input TYPE=\"radio\" NAME=\"Frameld\" value=\"yes\" onClick=\"this.form.Treadmail.checked=false;java script:document.form.submit()\">Unsubscribe
</td>
</tr>
<% else
If Instr(1, rsMessage(\"Subject\"), \"Re:\")=0 then
Mstring = \"Re: \" & rsMessage(\"subject\")
else
Mstring = rsMessage(\"subject\")
End if
%>
<table border=\"0\" width=\"95%\" summary=\"post\" cellpadding=\"1\" cellspacing=\"3\" align=\"center\">
<tr>
<td width=\"100%\" nowrap colspan=\"2\">Post indlæg:
<br><br></td>
</tr>
<tr>
<td width=\"100%\" colspan=\"2\">Tekst:</td></tr>
<tr><td align=\"center\" width=\"100%\" colspan=\"2\">
<textarea rows=\"10\" class=\"text\" name=\"commentsP\" cols=\"68\"><% =commentsR %></textarea>
</td>
</tr>
<tr>
<td width=\"100%\" colspan=\"2\">
<table border=\"0\" width=\"100%\" summary=\"post\" cellpadding=\"1\" cellspacing=\"3\" align=\"center\">
<tr>
<td width=\"33.3%\" height=\"23\" >Brugernavn:</td>
<td width=\"33.3%\" height=\"23\" nowrap >E-mail:</td>
<td width=\"33.3%\" height=\"23\">Emne:</td>
<tr>
<td width=\"33.3%\" height=\"23\">
<input type=\"text\" class=\"text\" name=\"name\" value=\"<%=strName%>\" size=\"21\"></td>
<td width=\"33.3%\" height=\"23\">
<input type=\"text\" class=\"text\" name=\"emailad\" size=\"21\" value=\"<%=strEmailad%>\"></td>
<td width=\"33.3%\" height=\"23\">
<input type=\"text\" class=\"text\" name=\"subject\" value=\"<% =Mstring %>\" onFocus=\"this.form.subject.select()\" size=\"21\"></td>
</tr>
</table>
</td>
</tr>
<td colspan=\"2\"><input TYPE=\"checkbox\" <% =ChTreadmail %> NAME=\"Treadmail\" VALUE=\"yes\">
<i>Ja tak, send en e-mail ved svar</i></td>
<tr>
<td>
<input type=\"checkbox\" checked name=\"action\" value=\"save\">
<i>Gem navn og e-mail på computeren.</i>
</td><td align=\"right\"> <hr noshade size=\"1\" width=\"100%\">
</td>
<tr>
<td>
</td><td align=\"right\">
<a href=\"java script:document.forum.reset()\">[ Reset ]</a>
<a href=\"java script:document.forum.submit()\">[ Post ]</a>
</td>
</tr>
<%End if%>
<tr>
<td colspan=\"2\">
<hr width=\"100%\" noshade size=\"1\">
<div align=\"right\">
<% =rsUsers(\"Forumname\")%>
</div>
</td>
</tr>
</table>
</form>
<%
End if
End if
End if
rsUsers.close
Set rsUsers = Nothing
Conn.close
Set Conn = Nothing
%>
Jeg ved godt den er lidt stor :-)
