Smiley Replace fra database

Mente noget lign dette !!!

Function SmileyDB(mintekst)
Do if not RS.Eof or RS.bof then
Replace(Mintekst,RS_smliey("tegn"),RS_smiley("billede")
next
End if
SmileyDB = mintekst
End function

tekst = Replace(tekst, ":)", "<img src=""smiley1.gif"">")

kig evt her
http://www.eksperten.dk/spm/396184

hmm..ja ok...tænkte bare på man kunne styre tegnene fra en database i stedet for?

Min tabel:

ID      TEGN      BILLEDE
1      :)        <img src"smily1.gif">

f.eks

og så ligge den ind i en asp kode ligsom den jeg har prøvet at lave?

tekst = Replace(tekst, ":)", "<img src="<% RS_smiley("billede") %>")

tekst = Replace(tekst, "<% RS_smliey("tegn") %>", "<img src="<% RS_smiley("billede") %>")

Function SmileyDB(Mindatabase, ID)
  set rs = conn.execute("SELECT * FROM smileytabel")
  Do while not RS.Eof
    Mindatabase = Replace(Mindatabase,RS("tegn"),RS("billede"))
  Loop
  rs.close
  SmileyDB = Mindatabase
End function

Hvor conn er et åbent connectionobjekt

Man skal naturilgvis huske at flytte fremad u recordsettet...

Function SmileyDB(Mindatabase, ID)
  set rs = conn.execute("SELECT * FROM smileytabel")
  Do while not RS.Eof
    Mindatabase = Replace(Mindatabase,RS("tegn"),RS("billede"))
    rs.movenext
  Loop
  rs.close
  SmileyDB = Mindatabase
End function

fremad u recordsettet = fremad i recordsettet

hmm...det vil sige man kan bruge:

Function MinTekst(ID)

set rs_konvetertegn = conn.execute("SELECT * FROM konveter_tegn")
set rs_side = conn.execute("SELECT * FROM minesider where ID=" & ID)
  Do while not rs_konvetertegn.Eof
    Temp_tekst = Replace(rs_side("MinHtmlkode"),rs_konvetertegn("tegn"),rs_konvetertegn("billede")))
    rs_konvetertegn.movenext
  Loop
  rs_konvetertegn.close
  MinTekst = Temp_tekst
End function

...også til at lave et form for cms system...hmm..takker for ideen..tænkte nemlig kun lige på smlilys ;)

hehe...smart

Njaaah, du skal nok gøre således i stedet:

Function MinTekst(ID)

  set rs_konvetertegn = conn.execute("SELECT * FROM konveter_tegn")
  set rs_side = conn.execute("SELECT * FROM minesider where ID=" & ID)
  Temp_tekst = rs_side("MinHtmlkode")
  Do while not rs_konvetertegn.Eof
    Temp_tekst = Replace(Temp_tekst,rs_konvetertegn("tegn"),rs_konvetertegn("billede")))
    rs_konvetertegn.movenext
  Loop
  rs_konvetertegn.close
  MinTekst = Temp_tekst
End function


Ellers overskriver du bare de replacements du har lavet i tidligere loops og du vil kun se den sidste replacement.

ok..tak...prøver det lige i aften

softspot `?  Svar ? > point :) ?

Ja, det kommer fluks... :)

Tak for point :)

så lidt...jeg takker for iderne :)