Notifikationer

Markér alle som læst Log ud

integra2ren Nybegynder

27. marts 2001 - 11:33 Der er 19 kommentarer og
1 løsning

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??

Synes godt om

Slettet bruger

27. marts 2001 - 11:36 #1

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

Synes godt om

integra2ren Nybegynder

27. marts 2001 - 11:36 #2

I kan se forummet på http://www.integra2ren.dk/asp/opslagstavle/default.asp

Synes godt om

keysersoze Ekspert

27. marts 2001 - 11:36 #3

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

Synes godt om

integra2ren Nybegynder

27. marts 2001 - 11:45 #4

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>

Synes godt om

keysersoze Ekspert

27. marts 2001 - 13:18 #5

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)?

Synes godt om

integra2ren Nybegynder

27. marts 2001 - 13:24 #6

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

Synes godt om

integra2ren Nybegynder

27. marts 2001 - 13:29 #7

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

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

Synes godt om

keysersoze Ekspert

27. marts 2001 - 14:00 #8

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>
%>

Synes godt om

integra2ren Nybegynder

27. marts 2001 - 14:24 #9

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

Synes godt om

keysersoze Ekspert

27. marts 2001 - 14:30 #10

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

Synes godt om

integra2ren Nybegynder

28. marts 2001 - 08:49 #11

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

Synes godt om

Slettet bruger

28. marts 2001 - 11:51 #12

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?

Synes godt om

Slettet bruger

28. marts 2001 - 11:52 #13

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

Synes godt om

keysersoze Ekspert

28. marts 2001 - 11:56 #14

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

Synes godt om

keysersoze Ekspert

28. marts 2001 - 12:00 #15

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!

Synes godt om

integra2ren Nybegynder

28. marts 2001 - 12:02 #16

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???

Synes godt om

keysersoze Ekspert

28. marts 2001 - 12:10 #17

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!

Synes godt om

keysersoze Ekspert

28. marts 2001 - 12:13 #18

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\"

Synes godt om

integra2ren Nybegynder

28. marts 2001 - 23:02 #19

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

Synes godt om

keysersoze Ekspert

16. april 2001 - 19:14 #20

hmmmmmmmmmmmmm...

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS