---

Faktisk er det et spg. til Erik, men mon ikke i andre kan
hjælpe.?

Jeg vil gerne ha at mine gæster kan indsætte smileys i
gæstebogen. Jeg har ikke forstand på ASP og har kigget lidt på
dette:

Message = rs("message")
Message = Server.HTMLEncode(Message)
Message = Trim(Replace(Message, vbNewLine, "<br>"))
Message = Trim(Replace(Message, ":)", "<img
src=""smiley/38.gif"">"))
Message = Trim(Replace(Message, "", "<img
src=""smiley/38.gif"">"))
Message = Trim(Replace(Message, ";)", "<img
src=""smiley/wink.gif"">"))
Message = Trim(Replace(Message, "", "<img
src=""smiley/wink.gif"">"))
Message = Trim(Replace(Message, ":(", "<img
src=""smiley/12.gif"">"))
Message = Trim(Replace(Message, "", "<img
src=""smiley/12.gif"">"))
Message = Trim(Replace(Message, ":|", "<img
src=""smiley/frown.gif"">"))
Message = Trim(Replace(Message, ":o|", "<img
src=""smiley/frown.gif"">"))
Message = Trim(Replace(Message, ":/", "<img
src=""smiley/17.gif"">"))
Message = Trim(Replace(Message, ":o/", "<img
src=""smiley/17.gif"">"))
Message = Trim(Replace(Message, ":think:", "<img
src=""smiley/9.gif"">"))
Message = Trim(Replace(Message, ":THINK:", "<img
src=""smiley/9.gif"">"))
Message = Trim(Replace(Message, ":idea:", "<img
src=""smiley/31.gif"">"))
Message = Trim(Replace(Message, ":IDEA:", "<img
src=""smiley/31.gif"">"))
Message = Trim(Replace(Message, ":peace:", "<img
src=""smiley/peace.gif"">"))
Message = Trim(Replace(Message, ":PEACE:", "<img
src=""smiley/peace.gif"">"))
Message = Trim(Replace(Message, ":bounce:", "<img
src=""smiley/bounce.gif"">"))
Message = Trim(Replace(Message, ":BOUNCE:", "<img
src=""smiley/bounce.gif"">"))
Message = Trim(Replace(Message, ":huh?:", "<img
src=""smiley/24.gif"">"))
Message = Trim(Replace(Message, ":HUH?:", "<img
src=""smiley/24.gif"">"))
Message = Trim(Replace(Message, ":crazy?:", "<img
src=""smiley/crazy.gif"">"))
Message = Trim(Replace(Message, ":CRAZY?:", "<img
src=""smiley/crazy.gif"">"))


Kan men med lethed tilpasse gæstebogen så man kan bruge det,
eller er der en som kan hjælpe mig med at skrive koden så jeg kan
få det til at virke.

Mvh
Jan

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

> Jeg vil gerne ha at mine gæster kan indsætte smileys i
> gæstebogen. Jeg har ikke forstand på ASP og har kigget lidt på
> dette:
[SNIP code]
>
> Kan men med lethed tilpasse gæstebogen så man kan bruge det,
> eller er der en som kan hjælpe mig med at skrive koden så jeg kan
> få det til at virke.

Nu kender jeg ikke den gæstebog - men jo, det vil være nemt at implementere.
Gør det eventuelt allerede når meddelelsen gemmes i databasen (når brugeren
klikker "send"), så serveren ikke skal tilføje smilies hver gang siden
vises.

Hvis du vil, så post den side hvor indlæggende gemmes i databasen her, og
jeg kan vise hvor det skal smides ind.

---

Casper Bang wrote in dk.edb.internet.webdesign.serverside.asp:
>
> Hvis du vil, så post den side hvor indlæggende gemmes i databasen her, og
> jeg kan vise hvor det skal smides ind.
>

Her er koden, jeg har selv forsøgt mig lidt- men jeg kan ikke helt finde ud af
at indsætte Response.Write smiley



<div id="indhold">

<h1 style="margin-bottom:0px"><%Response.Write strTitle%></h1>

<%

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If


function smiley(felt)
'opsætning
felt=Replace(felt,vbNewLine, "<br>")
felt=Replace(felt," ","&nbsp; ")
'Smileys
felt=Replace(felt,":)","<img src=""img/smiley/smileys141[1].bmp""
align=""middle"" alt="""">")
felt=Replace(felt,";S","<img src=""img/smiley/smileys147[1].bmp""
align=""middle"" alt="""">")
felt=Replace(felt,":P","<img src=""img/smiley/smileys121[1].bmp""
align=""middle"" alt="""">")
felt=Replace(felt,":|","<img src=""img/smiley/smileys113[1].bmp""
align=""middle"" alt="""">")
felt=Replace(felt,":D","<img src=""img/smiley/smileys118[1].bmp""
align=""middle"" alt="""">")
felt=Replace(felt,":'(","<img src=""img/smiley/smileys126[1].bmp""
align=""middle"" alt="""">")
felt=Replace(felt,":(","<img src=""img/smiley/smileys125[1].bmp""
align=""middle"" alt="""">")
'Bandeord
felt=Replace(LCase(felt),"fuck","f*ck")
felt=Replace(LCase(felt),"idiot","idi*t")
felt=Replace(LCase(felt),"luder","l*der")
felt=Replace(LCase(felt),"pik","p*k")
felt=Replace(LCase(felt),"fisse","f*sse")
felt=Replace(LCase(felt),"spasser","sp*sser")
smiley=felt
end function

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * from Guestbook order by dato" ' sortering efter dato
strDSN = "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ="&Server.MapPath("/jaja.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 5
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0



dtmDato = rs("Dato")
dtmDato = FormatDateTime(dtmDato,vbLongDate) & " kl. " &
FormatDateTime(dtmDato,vbLongTime)
Response.Write "<div style='border: solid 1px #fff;padding: 8px;
background-color: #333333'>Den " & dtmDato & " skrev "
If Len(rs("Email")) > 0 Then
Response.Write "<a class='tlink' href='mailto:" & rs("Email") & "'>" &
rs("Navn") & "</a><br />"
End If
Response.Write "<span class='overskrift5'>" & rs("Overskrift") &
"</span><br />"
strContent= replace(rs("Kommentar") & "" ,VbCrLf,"<br />")
Response.Write strContent & "</div><br />"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a class='link2' href=/gb.asp?page=" & intNum & ">" & intNum &
"</a> "
Next
%>

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

> strContent= replace(rs("Kommentar") & "" ,VbCrLf,"<br />")

Hvis du erstatter ovenstående linie med:
strContent= smiley(rs("Kommentar"))
skulle du gerne få det ønskede resultat :)

Skriv om det virker.

---

Casper Bang wrote in dk.edb.internet.webdesign.serverside.asp:
> > strContent= replace(rs("Kommentar") & "" ,VbCrLf,"<br />")
>
> Skriv om det virker.
>


Nej hvor træls- det virker sq.! Nu har jeg siddet og rodet med det i
laaaang tid.!! Men kan du fortælle mig hvad dette gør: &
"",VbCrLf,"<br />") siden at det kan undværes.?


--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

> Nej hvor træls- det virker sq.! Nu har jeg siddet og rodet med det i
> laaaang tid.!! Men kan du fortælle mig hvad dette gør: &
> "",VbCrLf,"<br />") siden at det kan undværes.?

:)
Normalt kan det ikke undværes. Det får linieskift til at blive vist korrekt
på siden; erstatter linieskift med HTML-koden for linieskift.
Grunden til at du kan undvære det, er at der i starten af din metode smilie
er:
felt=Replace(felt,vbNewLine, "<br>")
Dette gør præcist det samme; VbCrLf og vbNewLine betyder det samme - du
replacer linieskiftene med <br>

Håber det hjalp på forståelsen :)