Oprettet tir. d. 27. marts 2001 kl. 11:33:30

50 point uddelt | 20 kommentarer

integra2ren (19.667 point. Point ude: 125)

Anden tekstfarve når jeg selv skriver i mit forum

Er det muligt at skifte skriftfarven i mit forum når det er mig selv der har skrevet indlægget??

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 27. marts 2001 kl. 11:36:31| #1

Afvist svar

smajli (18.001 point)

<%
if rs(\"Bruger_Navn\") = \"Administrator\" then
response.write(\"\")
end if
%>

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 27. marts 2001 kl. 11:36:32| #2

integra2ren (19.667 point)

I kan se forummet på http://www.integra2ren.dk/ (...)

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 27. marts 2001 kl. 11:36:55| #3

Afvist svar

keysersoze (310.141 point)
www.soze.dk

ja - bare lav en if sætning, hvor du skrevet noget i retning af:

---------------------

ejer = rs(\"ejer\")

if ejer = integra2ren then
fontcolor = ffffff
end if

-----------------

syntaksen er måske ikke helt rigtig, men lidt af idéen er i det...

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 27. marts 2001 kl. 11:45:12| #4

integra2ren (19.667 point)

Hvordan sætter jeg det ind i følgende side som er den der viser indholdet af tråden:


<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

strSQL = \"SELECT * FROM Forums WHERE (ID = \" & Request(\"ForumId\") & \")\"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
intForumID = rs(\"ID\")
strForum = rs(\"Forum\")
strDescription = rs(\"Description\")
End If

strSQL = \"SELECT *, Format$([date],\'dd/mm/yyyy\') AS FormDate, Format$([date],\'hh:mm\') AS FormTime FROM Entries WHERE (ID = \" & Request(\"Id\") & \") AND (OrgThread = True)\"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
intMessageID = rs(\"ID\")
strSubject = Server.HTMLEncode(rs(\"Subject\"))
strName = Server.HTMLEncode(rs(\"Name\"))
strEmail = Server.HTMLEncode(rs(\"Email\"))
dtmFormDate = rs(\"FormDate\")
dtmFormTime = rs(\"FormTime\")
strComment = Replace(Server.HTMLEncode(rs(\"Comment\")),vbCrLf,\" \")
End If

strSQL = \"SELECT *, Format$([date],\'dd/mm/yyyy\') AS FormDate, Format$([date],\'hh:mm\') AS FormTime FROM Entries WHERE (ReplyId = \" & Request(\"Id\") & \") AND (OrgThread = False) ORDER BY ID DESC\"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then

Do While Not rs.EOF
imgSrc = \"images/folder_1.gif\"
if Len(Request(\"Showsub\")) > 0 And Clng(Request.QueryString(\"Showsub\")) = Clng(rs(\"ID\")) then
imgSrc = \"images/folder_2.gif\"
end if
strSvar = strSvar & \"<a href=\"\"viewmsg.asp?Id=\" & intMessageID & \"&ForumID=\" & intForumID & \"&Showsub=\" & rs(\"ID\") & \"\"\" ><img src=\" & imgSrc & \" border=0> (\" & Server.HTMLEncode(rs(\"Name\")) & \", \" & rs(\"FormDate\") & \" \" & rs(\"FormTime\") & \")</a> \"
If Len(Request(\"Showsub\")) > 0 And Clng(Request.QueryString(\"Showsub\")) = Clng(rs(\"ID\")) Then
strSvar = strSvar & \" \" & Replace(Server.HTMLEncode(rs(\"Comment\")),vbCrLf,\" \") & \" \"
End If
rs.MoveNext
Loop

End If
rs.Close
myConn.Close
Set myConn = Nothing
%>
<html>

<head>
<title>ASPForum [ Læs besked ]</title>
<LINK REL=STYLESHEET HREF=\"style.css\" TYPE\"text/css\">
</head>

<body bgcolor=\"#6C7E91\" text=\"#003366\" link=\"#993333\" vlink=\"#993333\" alink=\"#993333\"
topmargin=\"2\" leftmargin=\"5\" marginwidth=\"5\" marginheight=\"2\">
<table border=\"0\" width=\"400\" cellspacing=\"0\" cellpadding=\"0\" height=\"176\">
<tr>

<td colspan=\"3\" align=\"center\"><a href=\"default.asp\">Forum</a>: 
<a href=\"forumthreads.asp?ForumId=<%=intForumID%>\"><%=strForum%></a> - <%=strSubject%>
</td>
</tr>
<tr>
<td valign=\"top\" colspan=\"2\">
<div align=\"center\"> </div>
<hr noshade size=\"1\" color=\"#000000\">
</td>
</tr>
<tr>
<td valign=\"top\" width=\"281\">Indlæg:</td>
<td valign=\"top\" width=\"119\">Dato:</td>
</tr>
<tr>
<td width=\"400\" colspan=\"2\" align=\"right\" valign=\"top\">

</td>
</tr>
<tr>
<td width=\"400\" colspan=\"2\">
<div align=\"right\"><a href=\"forumpost.asp?ForumId=<%=intForumID%>&MessageId=<%=intMessageID%>\">[Tilføj
indlæg]</a>
</div>
</td>
</tr>
<tr>
<td width=\"400\" colspan=\"2\" height=\"15\">
<div align=\"right\"><a href=\"forumpost.asp?ForumId=<%=intForumID%>&MessageId=<%=intMessageID%>\">
</a></div>
</td>
</tr>
<tr>
<td colspan=\"3\" height=\"113\">
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"250\" align=\"left\"><%=strSubject%></td>
<td width=\"150\" rowspan=\"2\" valign=\"top\" align=\"right\" >
<table width=\"120\" border=\"0\">
<tr>
<td><%=dtmFormDate%>-<%=dtmFormTime%></td>
</tr>
<tr>
<td><%=strName%></td>
</tr>
<tr>
<td><a href=\"mailto:<%=strEmail%>\"><img src=\"images\\brev.gif\" width=\"18\" height=\"11\" border=\"0\"></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width=\"250\" valign=\"top\" > <%=strComment%>
</td>
</tr>
<tr>
<td align=\"left\" colspan=\"2\">  </td>
</tr>
<tr>

<td align=\"left\" colspan=\"2\">
 
<%=strSvar%>
</td>
</tr>
</table>
</td>
</tr>
</table>
 
</body>
</html>

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 27. marts 2001 kl. 13:18:38| #5

keysersoze (310.141 point)
www.soze.dk

gider ikke kigge så meget kode igennem;

hvor (og hvordan) udskriver du selve beskeden (eller hvad det nu end er der skal have en anden farve)?

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 27. marts 2001 kl. 13:24:52| #6

integra2ren (19.667 point)

strSvar = strSvar & \"<a href=\"\"viewmsg.asp?Id=\" & intMessageID & \"&ForumID=\" & intForumID & \"&Showsub=\" & rs(\"ID\") & \"\"\" ><img src=\" & imgSrc & \" border=0> (\" & Server.HTMLEncode(rs(\"Name\")) & \", \" & rs(\"FormDate\") & \" \" & rs(\"FormTime\") & \")</a> \"
If Len(Request(\"Showsub\")) > 0 And Clng(Request.QueryString(\"Showsub\")) = Clng(rs(\"ID\")) Then
strSvar = strSvar & \" \" & Replace(Server.HTMLEncode(rs(\"Comment\")),vbCrLf,\" \") & \" \"
End If
rs.MoveNext
Loop

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 27. marts 2001 kl. 13:29:08| #7

integra2ren (19.667 point)

og længere nede kaldes \"comment\":

<tr>
<td width=\"250\" valign=\"top\" > <%=strComment%>
</td>
</tr>

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 27. marts 2001 kl. 14:00:46| #8

Afvist svar

keysersoze (310.141 point)
www.soze.dk

noget i denne retning;

------------------------

<tr>
<%
if rs(\"ejer\") = \"dig\" then
response.write \"<td width=\'250\' valign=\'top\'>\" & strComment & \"</td>
else
response.write \"<td width=\'250\' valign=\'top\'>\" & strComment & \"</td>
end if
</tr>
%>

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 27. marts 2001 kl. 14:24:01| #9

Accepteret svar!50 point tildelt

integra2ren (19.667 point)

Virker ikke som om der er nogen der vil hjælpe med at sætte koden ind i en sammenhæng.

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 27. marts 2001 kl. 14:30:42| #10

keysersoze (310.141 point)
www.soze.dk

jeg har da lige sat det ind i en sammenhæng! hvad er der galt med det???

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet ons. d. 28. marts 2001 kl. 08:49:20| #11

integra2ren (19.667 point)

Problemet er at få det til at virke i koden oven over

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet ons. d. 28. marts 2001 kl. 11:51:55| #12

smajli (18.001 point)

Er det ikke lidt smagløst at afvise alle svar? Der er givet svar, der viser pincippet i dit spørgsmål. Det er jo meningen man får hjælp til at komme videre.. ikke at man skal have lavet sine ting... man skal jo osse selv \"svede\" lidt.

Er jeg helt galt på den eller?

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet ons. d. 28. marts 2001 kl. 11:52:48| #13

smajli (18.001 point)

\"princippet\" skal der stå :o)

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet ons. d. 28. marts 2001 kl. 11:56:52| #14

keysersoze (310.141 point)
www.soze.dk

tyder heller ike på at du vil modtage hjælp!!!

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet ons. d. 28. marts 2001 kl. 12:00:16| #15

keysersoze (310.141 point)
www.soze.dk

der hvor du udskriver kommentarene, skal du indsætte det jeg foreslog med if....

tr>
<%
if rs(\"ejer\") = \"dig\" then
response.write \"<td width=\'250\' valign=\'top\'>\" & strComment & \"</td>
else
response.write \"<td width=\'250\' valign=\'top\'>\" & strComment & \"</td>
end if
</tr>
%>

dette er så vidt jeg lige kan se det rigtige svar - det er lidt svært at teste, men har du gjort et forsøg da???

hvis ikke det virker så spørg videre - kom med eventuelle fejlmeddelser...

du kommer da ikke videre med bare at lukke!

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet ons. d. 28. marts 2001 kl. 12:02:53| #16

integra2ren (19.667 point)

Jeg vil hellere end gerne modtage hjælp og problemet er måske at jeg har svedt over dette lidt for længe derfor lukkede jeg spørgsmålet uden at være kommet videre.
Derfor er der ikke point til ethvert halvt svar der viser hvordan det i princippet kunne gøres.

Som jeg ser det er eksperten et sted hvor man får hjælp til at få sine ideer ud i verden og ikke et sted man får at vide at det nok godt kan lade sig gøre i princippet.

Er JEG helt gal på den???

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet ons. d. 28. marts 2001 kl. 12:10:35| #17

keysersoze (310.141 point)
www.soze.dk

men i stedet for at opgive skulle du så måske sige hvad mere du mangelede... så havde vi da en chance for at hjælpe dig HELT!

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet ons. d. 28. marts 2001 kl. 12:13:28| #18

keysersoze (310.141 point)
www.soze.dk

sådan som jeg har skrevet, skal du have et felt i din database hvor kommentarerne står... forklaringer er så som følger:

feltet hedder \"ejer\" og er værdien (indholdet) af denne = \"dig\" så skriver den kommentaren med farven \"FF0000\" - hvis feltet har en anden værdi udskriver den også kommentaren, nu bare med farven \"000000\"

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet ons. d. 28. marts 2001 kl. 23:02:00| #19

integra2ren (19.667 point)

Jeg tester det senere og vender tilbage med resultatet og evt point!

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet man. d. 16. april 2001 kl. 19:14:57| #20

keysersoze (310.141 point)
www.soze.dk

hmmmmmmmmmmmmm...

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Log ind

Opret bruger | Glemt adgangskode

Seneste spørgsmål

ASP: formular udtræk med mulighed for at rette

Oprettet den 21. maj 2012 kl. 15.09

quarkb giver 200 point for svar | Giv et svar »

Sorter biblioteker efter dato i ASP

Oprettet den 17. maj 2012 kl. 16.52

4ks giver 60 point for svar | Giv et svar »

Simpel login-funktion (web) - behov for flere logins/brugere

Oprettet den 15. maj 2012 kl. 09.54

madx giver 75 point for svar | Giv et svar »

Seneste guides

Hjælp til opsætning af IP-cam samt alm. netværks...

22. maj 2012 kl. 00.07 | Læs »

See Kessler vs. Green fight in your living room on pc

19. maj 2012 kl. 21.11 | Læs »

Ny god bærbar til tunge programmer

17. maj 2012 kl. 17.23 | Læs »

PSA-diagnosticering og -fejlkoder (Pre-Boot System...

9. maj 2012 kl. 11.12 | Læs »

Dell pc-diagnosticering - Problemer med din Dell...

7. maj 2012 kl. 14.38 | Læs »

Se alle guides »

Seneste nyheder

Galleri: De fedeste håndholdte gennem 40 år

25. maj 2012 kl. 16.04 | Læs »

Min Mac er under angreb - Apple skal tage det alvorligt

25. maj 2012 kl. 14.30 | Læs »

Landmænd låst fast til konkursramt bredbånds-firma

25. maj 2012 kl. 14.04 | Læs »

Her er din næste digitale gadget: En "Phablet"

25. maj 2012 kl. 13.40 | Læs »

Læserne: Her er vores værste it-indkøb

25. maj 2012 kl. 13.31 | Læs »

Se alle nyheder »

Tips & Tricks fra PC World

Læserne: Her er vores værste it-indkøb

Det er ikke al it-udstyr, som er det rene guld. Her er nogle af læsernes skrækhistorier.

Læs mere »

Anmeldelser fra PC World

Test: Mobil med Ferrari-design - og en Trabant-motor

Motorola har begået endnu en smartphone med lækkert design og potentiale til at være blandt de bedste. Men den når ikke i mål. Se her hvorfor.

Læs mere »

Seneste blogindlæg

Tvangslukke spørgsmål: Hvad er den bedste løsning?

Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...

Læs mere »