Indsætte smileys når man skrive ;o)

Replace(Request.form(\"besked\"), \";o)\", \"<img src=\"smiley.gif>\")

noo

det tror jeg ik vil virke ??

hehe..hvis det bare have været i PHP ->
http://www.eksperten.dk/spm/74279

Replace(rs(\"besked\"), \":-)\", \"<img src=\"\"smiley.gif\"\">\")

hvor skal jeg indsætte det i min script ??

<%
If Trim(Request(\"navn\")) > \"\" Then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"database.mdb\")
Conn.Open DSN
if request(\"navn\") = \"\" OR request(\"tonenavn\") =\"\" OR request(\"tempo\") =\"\" OR request(\"rsiemens\")=\"\" OR request(\"rericsson\")=\"\" then
response.write(\"Du mangler at indtaste en oplysning\")
else
Conn.Execute \"INSERT INTO jwringetoner (navn,email,tonenavn,tempo,rnokia,rsiemens,rericsson,hits,godkendt,kl,dato,ip) VALUES (\'\" & Request(\"navn\") & \"\',\'\" & Request(\"email\") & \"\',\'\" & Request(\"tonenavn\") & \"\',\'\" & Request(\"tempo\") & \"\',\'\" & Request(\"rnokia\") & \"\',\'\" & Request(\"rsiemens\") & \"\',\'\" & Request(\"rericsson\") & \"\',\'0\',\'Nej\',\'\" & time() & \"\',\'\" & date() & \"\',\'\" & Request(\"REMOTE_ADDR\") & \"\')\"

Conn.Close: Set Conn = Nothing

Response.Write \"<h1>Tak for din ringetone - din ringetone er blevet sat til at blive accept hos webmasteren!</h1>\"
%>
<% End If %>
<% end if %>

Ehm, ringetoner, gæstebøger... ??!

Det script du viser, indsætter en række. Vis os det script der trækker data ud igen.

ja tak...

trækker det ud hvad mener du ?

nu forstår jeg 2 sek :o)

Her :o)

          <%


PageSize = 10

    Conn_String = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\")
If Request(\"PageTo\") <> \"\" Then
    strPageTo = Request(\"PageTo\")
    If strPageTo <> \"\" Then
        nPageTo = int(strPageTo)
        If nPageTo <  1 Then
            nPageTo = 1
        End If
    Else
        nPageTo = 1
    End If
    Set RS = Session(\"ListingRS\")
    RS.AbsolutePage = nPageTo

else
    Set Conn=Server.CreateObject(\"ADODB.Connection\")
    Conn.ConnectionTimeout=15
    Conn.CommandTimeout=30

    Conn.Open Conn_String
    Set Cmd=Server.CreateObject(\"ADODB.Command\")
    Set RS=Server.CreateObject(\"ADODB.Recordset\")
    Cmd.CommandType = 1
    Set Cmd.ActiveConnection = Conn
    Cmd.CommandText=\"SELECT * From jwgbog order by ID desc;\"
           
    RS.Open Cmd, , 1, 1
    RS.PageSize = PageSize
    Set Session(\"ListingRS\") = RS
    nPageTo = 1
    If not (RS.BOF and RS.EOF) Then
        Set RS = Session(\"ListingRS\")
        RS.AbsolutePage = nPageTo
    End If
   
end if
    If RS.EOF Then
    Response.Write(\" <br><br><font size=4 color=\'red\'<b>No Script were found <br></b></font><br>\")
Else

    nRowCount = RS.PageSize


    While not RS.EOF and nRowCount > 0
        Count = 0   
        for i = 1 to Count           
        next
        dagar=DateDiff(\"d\", Dato, RS(\"Dato\"))+2
if dagar >= 0 then
        %>
        <table border=\"0\" width=\"100\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"0\" align=\"center\">
          <tr>
            <td bgcolor=\"#FFFFFF\" valign=\"top\" class=\"menuoverskrift\" colspan=\"2\">
              <table width=\"100%\" border=\"0\" cellspacing=\"1\" cellpadding=\"1\">
                <tr>
                  <td width=\"34%\"> <img src=\"smileys/<% = rs(\"pic\") %>.gif\" width=\"15\" height=\"15\"></td>
                  <td width=\"66%\">
                    <div align=\"right\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
                      <%
If rs(\"icq\") = \"ingen\" then %>
                      <b>Ingen ICQ</b>
                      <% Else %>
                      <b>ICQ Status</b> <img src=\"http://wwp.icq.com/scripts/online.dll?icq=<%=RS(\"icq\")%>&img=9\" alt=\"<%=RS(\"IP\")%>\">
                      <% end if %>
                      </font> </div>
                  </td>
                </tr>
              </table>
            </td>
          </tr>
          <tr>
            <td bgcolor=\"#FFFFFF\" valign=\"top\" class=\"menuoverskrift\" colspan=\"2\">
              <table width=\"400\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"#e5e5e5\" height=\"17\">
                <tr>
                  <td bgcolor=\"#f7f7f7\">
                    <table width=\"400\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\" class=\"1px_ganz\" height=\"69\">
                      <tr>
                        <td colspan=\"2\"> <font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><b>Tilf&oslash;jet
                          Kl.
                          <% = rs(\"kl\") %>
                          </b></font><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><b>D.
                          <% = rs(\"dato\") %>
                          </b></font></td>
                      </tr>
                      <tr> </tr>
                      <tr> </tr>
                      <tr>
                        <td width=\"193\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><b>Dit
                          navn</b><br>
                          </font><font face=\"tahoma\" size=\"2\">
                          <% = rs(\"navn\") %>
                          </font></td>
                        <td width=\"195\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><b>Alder</b><br>
                          </font><font face=\"tahoma\" size=\"2\">
                          <% = rs(\"alder\") %>
                          </font></td>
                      </tr>
                      <tr>
                        <td colspan=\"2\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Kommetare</font><br>
                          </b><font face=\"tahoma\" size=\"2\">
                          <% = rs(\"kommetare\") %>
                          </font></td>
                      </tr>
                      <tr>
                        <td width=\"193\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><b>Email</b><br>
                          </font><font face=\"tahoma\" size=\"2\">
                          <% = rs(\"email\") %>
                          </font></td>
                        <td width=\"195\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><b>Hjemmeside</b></font><br>
                          <font face=\"tahoma\" size=\"2\"> <a href=\"<% = rs(\"url\") %>\" target=\"_blank\">
                          <font size=\"1\">Tryk her for se min hjemmeside </font></a>
                          </font></td>
                      </tr>
                    </table>
                  </td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
        <hr width=\"400\" noshade size=\"1\" align=\"center\">
        <%
    end if
        nRowCount = nRowCount - 1
        RS.MoveNext
    Wend
   
    \'Display Paging Buttons
                Response.Write(\"<center><table border=0 cellpadding=4 cellspacing=4><tr>\")
                    \' Display <<
                        Response.Write(vbcr & \"<form action=\" & Request.ServerVariables(\"SCRIPT_NAME\") & \" method=post id=form1>\")
                        Response.Write(vbcr & \"<td align=center><font face=arial size=3><b>\")
                        If int(nPageTo) = 1 Then
                            Response.Write(vbcr & \"<input type=submit value=\' << Første  \' style=\'{font-weight:bold}\' DISABLED id=submit2 name=submit2><input type=hidden name=PageTo value=1>\")
                        Else
                            Response.Write(vbcr & \"<input type=submit value=\' << Første  \' style=\'{font-weight:bold}\' id=submit1 name=submit1><input type=hidden name=PageTo value=1>\")
                        End IF
                        Response.Write(vbcr & \"</td>\")
                        Response.Write(vbcr & \"</form>\")
                    \' Display <
                        Response.Write(vbcr & \"<form action=\" & Request.ServerVariables(\"SCRIPT_NAME\") & \" method=post id=form2>\")
                        Response.Write(vbcr & \"<td align=center><font face=arial size=3><b>\")
                        If int(nPageTo) = 1 Then
                            Response.Write(vbcr & \"<input type=submit value=\' < Tilbage  \' id=submit1 name=submit1 style=\'{font-weight:bold}\' DISABLED><input type=hidden name=PageTo value=1>\")
                        Else
                            Response.Write(vbcr & \"<input type=submit value=\' < Tilbage  \' id=submit1 name=submit1 style=\'{font-weight:bold}\'>\")
                            Response.Write(vbcr & \"<input type=hidden name=PageTo value=\" & nPageTo-1 & \">\")
                        End If
                       
                        Response.Write(vbcr & \"</td>\")
                        Response.Write(vbcr & \"</form>\")
                    \' Display >
                        Response.Write(vbcr & \"<form action=\" & Request.ServerVariables(\"SCRIPT_NAME\") & \" method=post id=form3>\")
                        Response.Write(vbcr & \"<td align=center><font face=arial size=3><b>\")
                        If int(nPageTo) = int(RS.PageCount) Then
                            Response.Write(vbcr & \"<input type=submit value=\'  Næste >  \' id=submit1 name=submit1 style=\'{font-weight:bold}\' DISABLED><input type=hidden name=PageTo value=\" & nPageTo & \">\")
                        Else
                            Response.Write(vbcr & \"<input type=submit value=\'  Næste >\' id=submit1 name=submit1 style=\'{font-weight:bold}\'>\")
                            Response.Write(vbcr & \"<input type=hidden name=PageTo value=\" & nPageTo+1 & \">\")
                        End IF
                        Response.Write(vbcr & \"</td>\")
                        Response.Write(vbcr & \"</form>\")
                    \' Display >>
                        Response.Write(vbcr & \"<form action=\" & Request.ServerVariables(\"SCRIPT_NAME\") & \" method=post id=form4>\")
                        Response.Write(vbcr & \"<td align=center><font face=arial size=3><b>\")
                        If int(nPageTo) = int(RS.PageCount) Then
                            Response.Write(vbcr & \"<input type=submit value=\' Sidste >> \' id=submit1 name=submit1 style=\'{font-weight:bold}\' DISABLED><input type=hidden name=PageTo value=\" & nPageTo & \">\")
                        Else
                            Response.Write(vbcr & \"<input type=submit value=\' Sidste >> \' id=submit1 name=submit1 style=\'{font-weight:bold}\'><input type=hidden name=PageTo value=\" & RS.PageCount & \">\")
                        End IF
                        Response.Write(vbcr & \"</td>\")
                        Response.Write(vbcr & \"</form>\")
                    Response.Write(\"</tr>\")
                    Response.Write(\"<tr>\")
                        Response.Write(\"<td colspan=4 align=center><font face=\'Verdana\' size=2 ><b>Side </font><font face=\'Verdana\' size=2 color=\'red\'><b>\" &  nPageTo & \"</font><font face=\'Verdana\' size=2><b>/</font><font face=\'Verdana\' size=2 color=\'red\'><b>\" & RS.PageCount & \"</font></b>\")
                        Response.Write(\"</td>\")
                    Response.Write(\"</tr>\")
                    Response.Write(\"</table>\")
end if
%>

Neeeeeeeeejjjjjjjjjjjjj Netsrac fik pointene...det var ik med vilje jeg trykke på ACCEPT !!! :(

Under alle omstændigheder, du skal ændre linjen:

<% = rs(\"kommetare\") %>

til:

<% = Replace(rs(\"kommetare\"), \":-)\", \"<img src=\"\"/sti/til/smiley.gif\"\">\") %>

og hvis der er flere end :-) er det så sådan her ??

<% = Replace(rs(\"kommetare\"), \":-)\", \";)\", \"<img src=\"\"/sti/til/smiley.gif\"\">\",\"<img src=\"\"/sti/til/smiley1.gif\"\">\") %>

Du kan gøre det lidt nemt for dig selv sådan her:

strKommentar = rs(\"kommetare\")

arrSmiley = Array(\":-)\", \";-)\", \":-(\")
arrImages = Array(\"<img src=\"\"/sti/til/smiley1.gif\"\">\", \"<img src=\"\"/sti/til/smiley2.gif\"\">\", \"<img src=\"\"/sti/til/smiley3.gif\"\">\")

For i = 0 To UBound(arrSmiley)
  Replace(strKommentar, arrSmiley(i), arrImages(i))
Next

Hver ny smiley skal du så bare føje til arrayet arrSmiley, og det tilsvarende <IMG> tag til arrImages (de skal selvfølgelig være i samme rækkefølge).

ok tak for hjælpen :o)

Selv tak. Tak for de 0 point ;)

mwittrock... ;o) jeg kom til at give netsrac pointene :(...

smid det her op i toppen af din asp fil:
<%
function smileys(smil)
smil = Replace(smil, \":)\", \"<img width=15 height=15 border=0 src=\"\"smileys/smiley-happy.gif\"\">\")
smil = Replace(smil, \";)\", \"<img width=15 height=15 border=0 src=\"\"smileys/wink.gif\"\">\")
smil = Replace(smil, \":(\", \"<img width=15 height=15 border=0 src=\"\"smileys/angry.gif\"\">\")
smil = Replace(smil, \":D\", \"<img width=15 height=15 border=0 src=\"\"smileys/biggrin.gif\"\">\")
smil = Replace(smil, \":P\", \"<img width=15 height=15 border=0 src=\"\"smileys/biggrin2.gif\"\">\")
smil = Replace(smil, \":}\", \"<img width=15 height=15 border=0 src=\"\"smileys/tongue.gif\"\">\")
smil = Replace(smil, \";o\", \"<img width=15 height=15 border=0 src=\"\"smileys/redface.gif\"\">\")
smil = Replace(smil, \";}\", \"<img width=15 height=15 border=0 src=\"\"smileys/smiley8.gif\"\">\")
smileys = smil
end function
%>
og i steden foat skrive:
<% = rs(\"kommetare\") %>
skal du skrive:
<% = (smileys(rs(\"kommetare\"))) %>
det er en lidt smartere måde...

du skal selfølgelig ændre stien til billederne og hovederne...

de virker begge to :o) takker..

mit er mest logisk ;)

men nu har jeg også læret at bruge to metoder :o)