Lave :-) om til et billede i en tagwall

Replace(strTekst, ":-)", "<img src=""smiley.gif"">")

Fatter det ikke helt...........

str = "bla bla :-)"
replace(str,":-)","image/smiley.jpg")

Forklar det lige lidt bedere

fx str = request.form("tekstfelt")

hvis der i dit tekstfelt er en :-) så erstattes med <img src=""smiley.gif"">

Fatter det ikk

hvilken del fatter du ikke?

Denne linje laver smileys i strengen "strTekst" om til billeder (smiley.gif):

strTekst = Replace(strTekst, ":-)", "<img src=""smiley.gif"">")

strTekst indeholder nu en reference til et billede (<img> tag) i stedet for :-). Hvis du vil have lavet flere smileys lavet om til billeder, gentager du bare ovenstående sætning, og ændrer tegn og billedsti - f.eks:

strTekst = Replace(strTekst, ":-(", "<img src=""sur.gif"">")

Der laver :-( om til sur.gif.

Hmm

vis os noget kode

Okai

Skal linjene være i den, hvor man tilføje eller den hvor beskederne står ?

Forstår ikke helt dit spørgsmål. Du har sikkert en streng, eller et felt i en tabel i en database, der indeholder det du vil udskrive.

Ja

Men mit spørgsmål er, om den linje du kom med, skulle være et sted i den fi, hvor man tilføje en besked eller i den fil hvor man læser beskederne

Det kan du egentlig selv bestemme. Enten kan du vælge at lægge stierne til billederne i databasen, eller lave dem om, når du trækker dem ud. Ved at lave dem om, inden de lægges i databasen, skal de kun laves om én gang, men det fylder selvfølgelig en smule mere. Hvis du vælger at lave dine smileys om til billeder, når de skal vises, skal dette gøres hver eneste gang.

Hvis jeg nu kommer med mine koder, kan du så ikk lige vise mig det ?

Jo da :)

Okai.

Her er siden, hvor beskederne vises:
<%
If (Request("Mode")) = "Add" then
                Response.Redirect("add.asp")       
END IF
%>
<%
Response.Buffer = True

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("TagWall.mdb")
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM TagWall ORDER BY Date DESC"
    rs.Open strSQL, myConn, 1, 3
%>
<html>

<head>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<STYLE type="text/css">
a:hover
    {
    color: #99CC99;
    text-decoration: none;
    }
a
    {
    text-decoration: none;
    }
Table
    {
    font-family:Tahoma, verdana, Microsoft Sans Serif, Ms Sans Serif, arial;
    font-size:8pt;
    border: 0px;
    }
Body
    {
font-family:Tahoma, verdana, Microsoft Sans Serif, Ms Sans Serif, arial;
    background-color: 666666;
    }
</STYLE>
<!-- Minus AutoDato -->
<title>Tag Wall</title>
</head>

<body Link="#000000">
<p align="center"><CENTER><B><FONT SIZE="5">Tagwall</FONT></B></CENTER></p>
<div align="center"><center>

<table border="0" cellpadding="2" cellspacing="0">
  <tr>
    <td align="center"><a href="Default.asp?Mode=Add"><small><font face="Verdana">Tag</font></small></a></td>
  </tr>
</table>
</center></div><BR><% Do While Not rs.EOF %>
<div align="center"><center>

<table border="0" cellpadding="0" cellspacing="0" width="585">
  <tr>
    <td BGCOLOR="#689868" width="370">&nbsp;<img src="<% =RS("funimg")%>.gif" alt="Fun" border="0"> <small><font face="Verdana">#</font></small> <a href="http://<% =RS("url")%>" target="_blank"><img src="homepage2.gif" alt="Gå Til: <% =RS("url")%>" border="0" WIDTH="14" HEIGHT="14"></a> <a href="mailto:<%=RS("email")%>"><img src="mail.gif" border="0" alt="Send post til: <%=RS("name")%>" WIDTH="14" HEIGHT="11"></a><small><font face="Verdana"># <strong><a name="<% =RS("subject")%>"></a><% =RS("subject")%></strong></font></small></td>
    <td BGCOLOR="#689868" width="169"><p align="right"><small><font face="Verdana"><% =RS("Date")%>
    </font></small></td>
    <td BGCOLOR="#689868"><% nydato = dateadd("d", 1 , RS("date"))
If nydato > Date() Then%>
<p><img src="new.gif" ALT="<%=RS("Date")%>" WIDTH="34" HEIGHT="14"> <% End If %></td>
  </tr>
  <tr>
    <td colspan="3" width="585" height="50"><BR><p align="left"><img src="<% =RS("funimg")%>.gif" alt="Fun" border="0">&nbsp;&nbsp;&nbsp;&nbsp;<%=Replace(RS("Body"), vbCrLf, "<BR>")%> </td>
  </tr>
  <tr>
    <TD ALIGN="right"></TD>
    <td colspan="3" width="585" height="30"><p align="right"><small><font face="Verdana">Skrevet af: </font></small><%=RS("name")%></P>
<p align="right">ICQ: <a href="http://wwp.icq.com/scripts/contact.dll?msgto=<% =RS("icq")%>"><img src="http://wwp.icq.com/scripts/online.dll?icq=<% =RS("icq")%>&amp;img=2" width="68" height="21" alt="ICQ #<% =RS("icq")%>" border="0"></a></p>
    <p align="right"><font face="Verdana"><small>IP: <% =RS("IP")%></small></P></font><BR> </td>
  </tr>
</table>
</center></div><%rs.Movenext
    Loop   

myConn.Close
Set myConn = Nothing
%>

</body>
</html>

Og her er siden, hvor man tilføjer beskeder:
<%
Response.Buffer = True
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

  Response.Cookies("TagWall")("Name") = Request.Form("name")
  Response.Cookies("TagWall")("Email") = Request.Form("Email")
  Response.Cookies("TagWall")("Url") = Request.Form("Url") 
  Response.Cookies("TagWall").Expires = Date+365
  End If
Name = Request.Cookies("TagWall")("Name")
Email = Request.Cookies("TagWall")("Email")
Url = Request.Cookies("TagWall")("Url")
%>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3


tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("TagWall.mdb") & ";UID=admin;PWD=;"
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
    Name = Trim(Request.Form("Name"))
    Email = Trim(Request.Form("email"))
    subject = Trim(Request.Form("subject"))
    url = Trim(Request.Form("url"))
    Body = Trim(Request.Form("Body"))
    funimg = Trim(Request.Form("funimg"))
    icq = Trim(Request.Form("icq"))
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT  * FROM TagWall WHERE (ID = 0)"
    rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
    If (rs.BOF Or rs.EOF) Then
        rs.AddNew
        rs("Name") = Name
        rs("email") = email
        rs("subject") = subject
        rs("url") = url
        rs("Body") = Body
        rs("funimg") = funimg
        rs("icq") = icq
        rs("Ip") = Request.ServerVariables("REMOTE_ADDR")
        rs.Update
    End If
    rs.Close
    Set rs = Nothing
End If
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Response.Redirect("default.asp")
End If
%>
<html>

<head>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<STYLE TYPE="text/css">
a:hover
    {
    color: #99CC99;
    text-decoration: none;
    }
a
    {
    text-decoration: none;
    }
Table
    {
    font-family:Tahoma, verdana, Microsoft Sans Serif, Ms Sans Serif, arial;
    font-size:8pt;
    border: 0px;
    }
Body
    {
font-family:Tahoma, verdana, Microsoft Sans Serif, Ms Sans Serif, arial;
    background-color: 666666;
    }
TEXTAREA, INPUT
{
    border:none;
    color:#243742;
    background-color:#689868;
}

</STYLE>
<!-- Minus AutoDato -->
<title>Tilføj Besked</title>
</head>

<body Link="#000000">

<CENTER><B><FONT SIZE="5">Tilføj en beksked</FONT></B></CENTER>

<SCRIPT LANGUAGE="JavaScript">
function Check_Form(theForm) {
    err = '';
if (theForm.name.value == '') {
            theForm.name.style.color = '#FFFFFF';
            theForm.name.style.backgroundColor = '#FF0000';
            err += "Navn mangler\r";
    }
if (theForm.subject.value == '') {
            theForm.subject.style.color = '#FFFFFF';
            theForm.subject.style.backgroundColor = '#FF0000';
            err += "Beskeden mangler\r";
    }
if (theForm.body.value == '') {
            theForm.body.style.color = '#FFFFFF';
            theForm.body.style.backgroundColor = '#FF0000';
            err += "Beskeden mangler\r";
    }
if (theForm.email.value == 'Indtast E-mail') {
            theForm.email.style.color = '#FFFFFF';
            theForm.email.style.backgroundColor = '#FF0000';
            err += "E-mail mangler\r";
    } else {
        ema = theForm.email.value;
        pos1 = ema.indexOf('@',0);
        pos2 = ema.indexOf('.',pos1);
        str = ema.substring(ema.length-1,ema.length+1);
        if (pos1 < 0 || pos2 < 0 || str == '.') {
            theForm.email.style.color = '#FFFFFF';
            theForm.email.style.backgroundColor = '#FF0000';
            err += "E-mail ikke gyldig\r";
        }

  }
    if (err != ''){
        alert('Følgende felter mangler at blive udfyldt:\r' + err);
        return (false);
    } else {
        return (true);
    }
} 
</script>
<form method="POST" action="Add.asp" onsubmit="return Check_Form(this)" name="FrontPage_Form1">
  <dl>
    <dd align="center"><div align="center"><center><table border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td colspan="2"></td>
        </tr>
        <tr align="center">
          <td><div align="left"><p></font><font color="#FFFFFF" size="2" face="Verdana"><b>Navn:</b></font></td>
          <font><td><div align="left"><p>
<input name="name"></font></td>
        </tr>
        <tr align="center">
          <td><div align="left"><p><font color="#FFFFFF" size="2" face="Verdana"><b>E-mail:</b></font></td>
          <td><div align="left"><p>
<input name="email" maxLength="75"></td>
        </tr>
        <tr align="center">
          <td><div align="left"><p><font color="#FFFFFF" size="2" face="Verdana"><b>Emne:</b></font></td>
          <td><div align="left"><p><input name="subject" maxLength="75"></td>
        </tr>
        <tr>
          <td><font color="#FFFFFF" size="2" face="Verdana"><b>Hjemmeside:</b></font></td>
          <td><div align="left"><p><input type="text" name="Url"><font face="Verdana" color="#FF0000"><strong><small>Husk ingen http://</small></strong></font></td>
        </tr>
        <tr>
          <td><font color="#FFFFFF" size="2" face="Verdana"><b>ICQ:</b></font></td>
          <td><div align="left"><p><input type="text" name="icq"></td>
        </tr>
        <tr align="center">
          <td colspan="2"><div align="left"><p><font color="white" face="arial,helvetica,verdana" size="3"><b>Besked:</b></font></p>
          </div><p>
<textarea cols="66" name="body" rows="9" wrap="virtual"></textarea>
</td>
        </tr>
        <tr align="center">
          <td colspan="2"><div align="left"></div></td>
        </tr>
      </table>
      </center></div></dd>
  </dl>
<center>
<TABLE BORDER="0">
<TR>
    <TD><table border="0" cellpadding="2" cellspacing="0" BGCOLOR="#689868">
    <tr>
      <td colspan="13"><div align="center"><center><p><strong>Vælg et billede!</strong></td>
    </tr>
    <tr align="center">
      <td><div align="center"><center><p><img src="01.gif" WIDTH="15" HEIGHT="15"></td>
      <td align="center"><div align="center"><center><p><img src="02.gif" WIDTH="15" HEIGHT="15"></td>
      <td align="center"><div align="center"><center><p><img src="03.gif" WIDTH="15" HEIGHT="15"></td>
      <td align="center"><div align="center"><center><p><img src="04.gif" WIDTH="15" HEIGHT="15"></td>
      <td align="center"><div align="center"><center><p><img src="05.gif" WIDTH="15" HEIGHT="15"></td>
      <td align="center"><div align="center"><center><p><img src="06.gif" WIDTH="15" HEIGHT="15"></td>
      <td align="center"><div align="center"><center><p><img src="07.gif" WIDTH="15" HEIGHT="15"></td>
      <td align="center"><div align="center"><center><p><img src="08.gif" WIDTH="15" HEIGHT="15"></td>
      <td align="center"><div align="center"><center><p><img src="09.gif" WIDTH="15" HEIGHT="15"></td>
      <td align="center"><div align="center"><center><p><img src="10.gif" WIDTH="15" HEIGHT="15"></td>
      <td align="center"><div align="center"><center><p><img src="11.gif" WIDTH="15" HEIGHT="15"></td>
      <td align="center"><div align="center"><center><p><img src="12.gif" WIDTH="15" HEIGHT="15"></td>
      <td align="center"><div align="center"><center><p><img src="13.gif" WIDTH="15" HEIGHT="15"></td>
    </tr>
    <tr align="center">
      <td><input type="radio" value="01" checked name="funimg"></td>
      <td><input type="radio" VALUE="02" NAME="funimg"></td>
      <td><input type="radio" name="funimg" value="03"></td>
      <td><input type="radio" name="funimg" value="04"></td>
      <td><input type="radio" name="funimg" value="05"></td>
      <td><input type="radio" name="funimg" value="06"></td>
      <td><input type="radio" name="funimg" value="07"></td>
      <td><input type="radio" name="funimg" value="08"></td>
      <td><input type="radio" name="funimg" value="09"></td>
      <td><input type="radio" name="funimg" value="10"></td>
      <td><input type="radio" name="funimg" value="11"></td>
      <td><input type="radio" name="funimg" value="12"></td>
      <td><input type="radio" name="funimg" value="13"></td>
    </tr>
  </table></TD>
    <TD><center><p>&nbsp;&nbsp;<input type="submit" value="Tag">
&nbsp;&nbsp;&nbsp;<INPUT TYPE="reset" VALUE="Slet Alt"></Form></p>
  </center></TD>
</TR>
</TABLE>
</center>
</form>
</body>
</html>

prøv at kigge her:
http://www.eksperten.dk/spm/174934
måske kan du bruge det :)

sorry så ikke det var i asp.. det link er i php !! SORRY

I den første kan du bare tilføje disse linjer (lige inden du starter din <table>):

body = rs("body")

body = Replace(body, ":-)", "<img src=""smiley.gif"">")
body = Replace(body, ":-(", "<img src=""sur.gif"">")
body = Replace(body, vbCrLf, "<br>")

I stedet for
<%=Replace(RS("Body"), vbCrLf, "<BR>")%>
skriver du så bare
<%=body%>

Okai, prøver lige

Det virker ikke helt.

Alle beskeder bliver ens.......

Gætter på at det er fordi du sætter koden uden for:
<% Do While Not rs.EOF %>

body = rs("body")

body = Replace(body, ":-)", "<img src=""smiley.gif"">")
body = Replace(body, ":-(", "<img src=""sur.gif"">")
body = Replace(body, vbCrLf, "<br>")

ER ovenover <% Do While Not rs.EOF %>

Helt dum er jeg jo ikke ;)

Njaaa  ;)

Det skal være efter < Do While... %>, ellers får du ikke ændret teksten for hver post i din tabel.

<% Do While Not rs.EOF %>

body = rs("body")

body = Replace(body, ":-)", "<img src=""smiley.gif"">")
body = Replace(body, ":-(", "<img src=""sur.gif"">")
body = Replace(body, vbCrLf, "<br>")

Er du gået ?

Hvor dum er man så............?

;)

Nå, nu virker det.

Så har jeg lige et andet spørgsmål.

I den fil, hvor man tilføjer beskeder, skal man indtaste alle data. Ved du hvorfor ?

Ved ikke helt hvad du mener. Det var jo heller ikke helt det spm. gik ud på  ;)

Nej nej, men du lyder til at have forstand på det der med ASP, og så kunne jeg ligeså godt spørge. Er det ikke i orden ?

Jo, spørg du bare :)

Okai:

Når man submitter, uden at have udfyldt ICQ, kommer der en side, hvor der står, at det er en ugyldig rækkefølge

Æh. Den fejl har jeg aldrig fået. Det kan måske skyldes den måde du opretter nye rækker i din tabel. Hvis feltet ICQ er sat til at være "Obligatorist" i din database, kan det måske give en fejl, når feltet er tomt?

Obligatorist = Obligatorisk  ;)

Tjekker lige..........

Okai.

Det var fordi den var Obligatorisk.

Takker mange gange for hjælpen.

Denne her gang, kan der vist ikke herske tvivl om, hvem der skal have mine point ;)

selv tak  ;)

Det er iorden.

Hyg dig ;)

i lige måde :)