---

Jeg trækker noget tekst ud fra en MDB med følgende kode:

<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath ("nyheder.mdb")
Conn.Open DSN

strSQL = "Select * from nyheder Order By Dato Desc"
Set rs = Conn.Execute(strSQL)

Do
%>
<table border="0" width="310" class="small" align="center">
<%

Response.Write "<tr>"

Response.Write "<td width=""150""><b>"

Response.Write rs("forfatter") & "<br>"

   Response.Write "<br></td>"

Response.Write "<td width=""150"" align=""right"">"

Response.Write rs("dato") & "<br></b>"

   Response.Write "<br></td>"

   Response.Write "</tr><tr><td width=""400"" colspan""2"">"
   
Response.Write rs("nyhed") & "</td></tr><br>"

   Response.Write "<img src=""ruler.gif""><img
src=""ruler.gif""><img src=""ruler.gif""><br>"

rs.MoveNext

Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>

Hvordan gør jeg sådan at, hvis der i MDB'en i kolonnen ved navn
"nyhed", står "", at den så sætter noget grafik ind istedet??

Jeg har prøvet med Replace, men har ikke rigtig styr på hvor jeg
skal sætte den ind..!

Med venlig hilsen: Anders Warlo

--
Brug Validator service: http://www.html.dk/validator
- Tast din URL én gang, og validér dokumentet hos 12 validatorer
- Understøtter HTML, CSS og søgemaskineoptimering

---

> Hvordan gør jeg sådan at, hvis der i MDB'en i kolonnen ved navn
> "nyhed", står "", at den så sætter noget grafik ind istedet??
>
> Jeg har prøvet med Replace, men har ikke rigtig styr på hvor jeg
> skal sætte den ind..!

Nyhed = rs("Nyhed")
Nyhed = Replace(Nyhed,"","<img src='/images/smiley.gif' border=0
alt=''>",1,-1)
Response.Write(Nyhed)

/jesper/

---

On Tue, 26 Jun 2001 19:03:42 +0000 (UTC), Anders Warlo
<anders@warlo.dk> wrote:

>Jeg trækker noget tekst ud fra en MDB med følgende kode:
>
><%
>
>Set Conn = Server.CreateObject("ADODB.Connection")
>DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
>Server.MapPath ("nyheder.mdb")
>Conn.Open DSN
>
>strSQL = "Select * from nyheder Order By Dato Desc"
>Set rs = Conn.Execute(strSQL)
>
>Do
>%>
> <table border="0" width="310" class="small" align="center">
><%
>
> Response.Write "<tr>"
>
> Response.Write "<td width=""150""><b>"
>
> Response.Write rs("forfatter") & "<br>"
>
>    Response.Write "<br></td>"
>
> Response.Write "<td width=""150"" align=""right"">"
>
> Response.Write rs("dato") & "<br></b>"
>
>   Response.Write "<br></td>"
>
>   Response.Write "</tr><tr><td width=""400"" colspan""2"">"
>   

IF rs("nyhed") = "" THEN

   response.write("<img src=""smiley.gif"">")

ELSE

> Response.Write rs("nyhed") & "</td></tr><br>"

END IF

>
>   Response.Write "<img src=""ruler.gif""><img
>src=""ruler.gif""><img src=""ruler.gif""><br>"
>
> rs.MoveNext
>
>Loop While Not rs.EOF
>
>Conn.Close
>Set Conn = Nothing
>%>
>
>Hvordan gør jeg sådan at, hvis der i MDB'en i kolonnen ved navn
>"nyhed", står "", at den så sætter noget grafik ind istedet??
>
>Jeg har prøvet med Replace, men har ikke rigtig styr på hvor jeg
>skal sætte den ind..!

Ville forøvrig STERKT anbefale deg å redusere antallet response.write,
f ex ved å bruke en string variabel, f ex:

strTMP = strTMP & "<td width=""150"" align=""right"">"
strTMP = strTMP & rs("dato") & "<br></b>"
strTMP = strTMP & "<br></td>"
strTMP = strTMP & "</tr><tr><td width=""400"" colspan""2"">"

KLIPP

rs.movenext

Loop While Not Rs.EOF

response.write(strTMP)

conn.close
set conn = nothing
%>

</Frederik>

---

I brevet "3b3926ab.11256465@pubnews.netcom.net.uk" skrev Frederik
(google@fredsnet.co.uk) den 27/06/01 2:23:

> IF rs("nyhed") = "" THEN
>
> response.write("<img src=""smiley.gif"">")
>
> ELSE
>
>> Response.Write rs("nyhed") & "</td></tr><br>"
>
> END IF

Tekststregen er jo ikke lig "", smilyen er blot indeholdt i teksten,
derfor duer den løsning ikke. Der skal bruges replace, som en tidligere har
foreslået.


> Ville forøvrig STERKT anbefale deg å redusere antallet response.write,
> f ex ved å bruke en string variabel, f ex:
>
> strTMP = strTMP & "<td width=""150"" align=""right"">"
> strTMP = strTMP & rs("dato") & "<br></b>"
> strTMP = strTMP & "<br></td>"
> strTMP = strTMP & "</tr><tr><td width=""400"" colspan""2"">"

Nej, Microsoft anbefaler at man netop *ikke* gør sådan. Det er mere
resourcekrævende at tilføje til en streng end det er at benytte
Response.Write, FORUDSAT at Response.Buffer er True.

- Morten

---

Anders Warlo wrote in dk.edb.internet.webdesign.serverside.asp:

> Jeg har prøvet med Replace, men har ikke rigtig styr på hvor jeg
> skal sætte den ind..!

Jeg bruger selv foelgende funktion i et forum jeg har, det er nemt
nok at bruge, de tekster der kan indeholde smileys fyrer man bare
igennem funktionen. De smileys jeg har brugt kan findes paa:

http://help.microsoft.com/ES_ES/HelpWindow_msg.asp?Topic=InfoTech.as
p&INI=msgv36.ini&SearchTerm=nogol&S_Text=Sportal+Messenger&H_APP=Spo
rtal%20Messenger&BrandID=AB14104&Filter=messenger


her er funktionen:

function makesmileys(tekst)
      
'normal smiley
tekst= replace(tekst,"","<IMG SRC=""images/smileys/smile.gif"">")
tekst= replace(tekst,":)","<IMG SRC=""images/smileys/smile.gif"">")

'blinkende smiley
tekst= replace(tekst,"","<IMG SRC=""images/smileys/wink2.gif"">")
tekst= replace(tekst,";)","<IMG SRC=""images/smileys/wink2.gif"">")

'Stort smil
tekst= replace(tekst,"","<IMG
SRC=""images/smileys/smileD.gif"">")
tekst= replace(tekst,":D","<IMG SRC=""images/smileys/smileD.gif"">")
tekst= replace(tekst,"","<IMG
SRC=""images/smileys/smileD.gif"">")
tekst= replace(tekst,":d","<IMG SRC=""images/smileys/smileD.gif"">")

'raaber
tekst= replace(tekst,"","<IMG
SRC=""images/smileys/smileO.gif"">")
tekst= replace(tekst,":o","<IMG SRC=""images/smileys/smileO.gif"">")
tekst= replace(tekst,"","<IMG
SRC=""images/smileys/smileO.gif"">")
tekst= replace(tekst,":O","<IMG SRC=""images/smileys/smileO.gif"">")
tekst= replace(tekst,":-0","<IMG
SRC=""images/smileys/smileO.gif"">")
tekst= replace(tekst,":0","<IMG SRC=""images/smileys/smileO.gif"">")

'raekke tunge
tekst= replace(tekst,"","<IMG
SRC=""images/smileys/smileP.gif"">")
tekst= replace(tekst,":p","<IMG SRC=""images/smileys/smileP.gif"">")
tekst= replace(tekst,"","<IMG
SRC=""images/smileys/smileP.gif"">")
tekst= replace(tekst,":P","<IMG SRC=""images/smileys/smileP.gif"">")

'sur
tekst= replace(tekst,"","<IMG SRC=""images/smileys/sad.gif"">")
tekst= replace(tekst,":(","<IMG SRC=""images/smileys/sad.gif"">")
tekst= replace(tekst,"","<IMG SRC=""images/smileys/sad.gif"">")
tekst= replace(tekst,":[","<IMG SRC=""images/smileys/sad.gif"">")

'kroellemund
tekst= replace(tekst,"","<IMG
SRC=""images/smileys/crooked.gif"">")
tekst= replace(tekst,":s","<IMG
SRC=""images/smileys/crooked.gif"">")
tekst= replace(tekst,"","<IMG
SRC=""images/smileys/crooked.gif"">")
tekst= replace(tekst,":S","<IMG
SRC=""images/smileys/crooked.gif"">")

'lige mund
tekst= replace(tekst,":-|","<IMG
SRC=""images/smileys/disgust.gif"">")
tekst= replace(tekst,":|","<IMG
SRC=""images/smileys/disgust.gif"">")

makesmileys=tekst
end function

--
Brug Validator service: http://www.html.dk/validator
- Tast din URL én gang, og validér dokumentet hos 12 validatorer
- Understøtter HTML, CSS og søgemaskineoptimering

---

Lars Hoffmann wrote in dk.edb.internet.webdesign.serverside.asp:
> De smileys jeg har brugt kan findes paa:
>
> http://help.microsoft.com/ES_ES/HelpWindow_msg.asp?
> Topic=InfoTech.as ......

Damn hvor er frames dog irriterrende naar man vil linke til en side.
her er det rigtige link (I maa selv lige klippe og klistre det
sammen):

http://help.microsoft.com/ES_ES/data/messengerv36.its51/$content$/emot
icons.htm

Med venlig hilsen
Lars

--
Brug Validator service: http://www.html.dk/validator
- Tast din URL én gang, og validér dokumentet hos 12 validatorer
- Understøtter HTML, CSS og søgemaskineoptimering

---

On Wed, 27 Jun 2001 08:16:10 +0000 (UTC), Lars Hoffmann
<lars@hoffmann.ac> wrote:

>her er det rigtige link (I maa selv lige klippe og klistre det
>sammen):
>
>http://help.microsoft.com/ES_ES/data/messengerv36.its51/$content$/emot
>icons.htm

Nu skal jeg klistre for dig:
<URL:
http://help.microsoft.com/ES_ES/data/messengerv36.its51/$content$/emoticons.htm>

Mvh. Jørn


--
Jørn Andersen
Brønshøj

---

Super tak, skal i have for jeres svar, jeg har fået det til at virke nu...!!

tak for linket til smileys!!

MVH. Anders Warlo

"Jørn Andersen" <jorn.a@email.dk> wrote in message
news:ii7jjt8de7lm86ftukcf5adup1jo1lrrob@4ax.com...
> On Wed, 27 Jun 2001 08:16:10 +0000 (UTC), Lars Hoffmann
> <lars@hoffmann.ac> wrote:
>
> >her er det rigtige link (I maa selv lige klippe og klistre det
> >sammen):
> >
> >http://help.microsoft.com/ES_ES/data/messengerv36.its51/$content$/emot
> >icons.htm
>
> Nu skal jeg klistre for dig:
> <URL:
>
http://help.microsoft.com/ES_ES/data/messengerv36.its51/$content$/emoticons.
htm>
>
> Mvh. Jørn
>
>
> --
> Jørn Andersen
> Brønshøj