Smillies og handlinger...

:) :D :P <- Standar smiliesne .. håber du kan bruge dem .. osgå er der til url vidst nok [url]www.Fossen.dk[/url] .. Svar nok ? :)

Svar?!

jeg vil have såån at man skrive noget i tekstfeltet og så kommer der en smillie eller en handling...
Hvad asp kode skal der til for at skrive d?
Help me ;)

<%

strChatTekst
strChatTekst=Request.Form("Tekst")

strChatTekst = Replace(strChatTekst,":)","<img src=smilie.gif>"
strChatTekst = Replace(strChatTekst,":D","<img src=smilie1.gif>"
strChatTekst = Replace(strChatTekst,":P","<img src=smilie2.gif>"

Response.Write strChatTekst
%>

/Steen

ups...

<%

Dim strChatTekst
strChatTekst=Request.Form("Tekst")

strChatTekst = Replace(strChatTekst,":)","<img src=smilie.gif>")
strChatTekst = Replace(strChatTekst,":D","<img src=smilie1.gif>")
strChatTekst = Replace(strChatTekst,":P","<img src=smilie2.gif>")

Response.Write strChatTekst
%>

hmmm d virker ikke.. for  d er ikke en form der skal vise selve teksten... Her er koden der skal vise teksten.:

if request("event")="show" then
Response.Write  "<meta http-equiv='refresh' content='" & request.Cookies("emchatrefresh") &"'>"
Response.Write  "<body bgcolor='#ECE4B0'>"
Response.Write  "<font face='arial,verdana' size='2'>"
for f=1 to 20
Response.Write  Application(f) & "<br>"
next

userarray=split(application("emchatusers"),",")
userscount=int(((UBound(userarray)+1))-0.5)


for f = 0 to  userscount-1 step 2
if abs(minute(now)-int(userarray(f+1))) > 2 then
application("emchatusers")=replace(application("emchatusers"),userarray(f) & "," & userarray(f+1) & ",","")
end if
if userarray(f)=request("userrefresh") then
reptmp=userarray(f) & "," & userarray(f+1) &","
application("emchatusers") = replace(application("emchatusers"),reptmp,userarray(f) & "," & minute(now) &",")
end if
next
end if

...... Hvad skal der så stå i smillie koden og hvor skal d stå????
Steen... Du får pointene hvis du hjælper og d virker

Sådan...

Function IndputSmilies(strContent)
    Dim strChatText
    strChatText = Replace(strContent,":)","<img src=smilie.gif>"
    strChatText = Replace(strChatText,":D","<img src=smilie1.gif>"
    strChatText = Replace(strChatText,":P","<img src=smilie2.gif>"
    IndputSmilies = strChatText
End Function

if request("event")="show" then
    Response.Write  "<meta http-equiv='refresh' content='" & request.Cookies("emchatrefresh") &"'>"
    Response.Write  "<body bgcolor='#ECE4B0'>"
    Response.Write  "<font face='arial,verdana' size='2'>"
   
    for f=1 to 20
        Response.Write  IndputSmilies(Application(f)) & "<br>"
    next

    userarray=split(application("emchatusers"),",")
    userscount=int(((UBound(userarray)+1))-0.5)

    for f = 0 to  userscount-1 step 2
        if abs(minute(now)-int(userarray(f+1))) > 2 then
            application("emchatusers")=replace(application("emchatusers"),userarray(f) & "," & userarray(f+1) & ",","")
        end if
        if userarray(f)=request("userrefresh") then
            reptmp=userarray(f) & "," & userarray(f+1) &","
            application("emchatusers") = replace(application("emchatusers"),reptmp,userarray(f) & "," & minute(now) &",")
        end if
    next
end if