Søg
Avatar billede flashit Nybegynder
13. juli 2001 - 14:13 Der er 25 kommentarer og
1 løsning

kode via grafisk knap

Hej E.

Jeg har en gæstebog, hvor jeg godt kunne tænke mig at det var muligt at indsætte et lille stykke grafik som illustrer ens ”humør”.

Prøv at forestille jer:
Man sider og skriver et nyt indlæg i gæstebogen, et eller andet sted i teksten vil man gerne have indsat et stykke grafik.
Ude i siden er der 5 forskellige ikoner og når man klikker på et af dem så bliver der indsat et stygge foruddefineret kode ind (eks. <img src=\"../grafik/glad.gif\" width=\"10\" height=\"10\">)

Er der en som har en ide til hvordan det kan løses?
Avatar billede -mascot- Nybegynder
13. juli 2001 - 15:12 #1
smileys...
se her:
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\"\">\")
smil = Replace(smil, \"!\", \"<img width=15 height=15 border=0 src=\"\"smileys/03.gif\"\">\")
smil = Replace(smil, \"?\", \"<img width=15 height=15 border=0 src=\"\"smileys/12.gif\"\">\")
smileys = smil
end function

det er en funktion der virker.....de skifter f.eks :) ud med et billed af et smiley
jeg går ud fra at du udskriver gæstebogen fra en db.

så der hvor du udskriver teksten f.eks. hvis teksten hedder tag i din db og recordsættet hedder rs vil det se sådan her ud:
(smileys(rs(\"tag\")))
Avatar billede flashit Nybegynder
13. juli 2001 - 15:31 #2
Du gav mig lige en ide.

hvad med noget som dette:
SET tabel=DbObj.Execute(\"UPDATE EDBHAANBOG SET Overskrift=\'\" & request.form(\"Overskrift\") & \"\',Tekst=\'\" & replace(request.form(\"Tekst\"),\":-)\",\"<img src=\"../../Grafik/glad.gif\" width=\"20\" height=\"20\">\") & \"\'WHERE Id=\" & request.form(\"Id\") & \"\")

og kan man ikke bruge flere replace i en linie?
Avatar billede flashit Nybegynder
13. juli 2001 - 15:46 #3
Jeg har prøvet din, men kan ikke få det til at virke, kan du klippe det ud i større papstykker????
Avatar billede -mascot- Nybegynder
13. juli 2001 - 17:45 #4
skriv mig din kode der skriver de ting der står i gærste bogen...så retter jeg det til...
Avatar billede flashit Nybegynder
13. juli 2001 - 19:38 #5
KANON

<%
SET DbObj=Server.CreateObject (\"ADODB.Connection\")
DbObj.Open \"DSN=dbwww.b82.dk\"
SET tabel=DbObj.Execute(\"SELECT top 8 * FROM gaestebog ORDER BY dato DESC\")
%>
              <% if tabel.EOF then %>
              Der er endnu ikke skrevet nogle indlæg.<br>
              <% else %>
              <% while not tabel.EOF %>
              </font></p>
            <table width=\"400\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
              <tr>
                <td width=\"330\"><font face=\"Arial, Helvetica, sans-serif\" size=\"-1\"><b>
                  <img src=\"../grafik/src.gif\" width=\"16\" height=\"16\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"-2\">
                  <font color=\"#003399\"><%=tabel(\"Overskrift\")%></font></font></b></font></td>
                <td width=\"100\">
                  <div align=\"right\"><font color=\"#333333\" face=\"Arial, Helvetica, sans-serif\" size=\"-1\"><i><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"-2\" color=\"#000000\"><%=tabel(\"Dato\")%></font><b>
                    </b></i></font></div>
                </td>
              </tr>
              <tr>
                <td colspan=\"2\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-2\"><%=replace(tabel(\"tekst\"), VbCrLf, \"<br>\")%>
                  <br>
                  </font></td>
              </tr>
              <tr>
                <td colspan=\"2\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-2\"><i>Skrevet
                  af:</i> <%=tabel(\"Forfatter\")%> </font></td>
              </tr>
            </table>
            <p> <font face=\"Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-1\">
              <%tabel.movenext %>
              <% wend %>
              <%end if%>
              <%tabel.close%>
              <%DbObj.close%>
Avatar billede -mascot- Nybegynder
13. juli 2001 - 19:44 #6
her kommer den så:

<%
SET DbObj=Server.CreateObject (\"ADODB.Connection\")
DbObj.Open \"DSN=dbwww.b82.dk\"
SET tabel=DbObj.Execute(\"SELECT top 8 * FROM gaestebog ORDER BY dato DESC\")
%>
<% tag = replace(tabel(\"tekst\"), VbCrLf, \"<br>\") %>
              <% if tabel.EOF then %>
              Der er endnu ikke skrevet nogle indlæg.<br>
              <% else %>
              <% while not tabel.EOF %>
              </font></p>
            <table width=\"400\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
              <tr>
                <td width=\"330\"><font face=\"Arial, Helvetica, sans-serif\" size=\"-1\"><b>
                  <img src=\"../grafik/src.gif\" width=\"16\" height=\"16\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"-2\">
                  <font color=\"#003399\"><%=tabel(\"Overskrift\")%></font></font></b></font></td>
                <td width=\"100\">
                  <div align=\"right\"><font color=\"#333333\" face=\"Arial, Helvetica, sans-serif\" size=\"-1\"><i><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"-2\" color=\"#000000\"><%=tabel(\"Dato\")%></font><b>
                    </b></i></font></div>
                </td>
              </tr>
              <tr>
                <td colspan=\"2\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-2\">
<%=(smileys(tag))%>
                  <br>
                  </font></td>
              </tr>
              <tr>
                <td colspan=\"2\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-2\"><i>Skrevet
                  af:</i> <%=tabel(\"Forfatter\")%> </font></td>
              </tr>
            </table>
            <p> <font face=\"Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-1\">
              <%tabel.movenext %>
              <% wend %>
              <%end if%>
              <%tabel.close%>
              <%DbObj.close%>
Avatar billede -mascot- Nybegynder
13. juli 2001 - 19:44 #7
skriv lige hvis det ikke virker
Avatar billede flashit Nybegynder
13. juli 2001 - 20:12 #8
Pas

Hvad med funktionen smileys(smil) hvor skal den være?
Den skal vel oprettes inden?
Avatar billede -mascot- Nybegynder
13. juli 2001 - 20:36 #9
den skal bare smides ind i toppen af dit asp dokument...
Avatar billede flashit Nybegynder
13. juli 2001 - 20:43 #10
prøv at se her:

http://www.b82.dk/Gaestebog/laes.asp

den henter kun den første tekst men løber ellers rigtigt igennem.

Her er den fulde kode.

<html>
<head>
<title>Velkommen til B82 Virum</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<!--#include file=\"../Test/inc1.txt\"-->
<link rel=\"stylesheet\" href=\"../style/style.css\" type=\"text/css\">

</head>
<%
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\"\">\")
smil = Replace(smil, \"!\", \"<img width=15 height=15 border=0 src=\"\"smileys/03.gif\"\">\")
smil = Replace(smil, \"?\", \"<img width=15 height=15 border=0 src=\"\"smileys/12.gif\"\">\")
smileys = smil
end function
%>
<body bgcolor=\"#CC0000\" text=\"#000000\" leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\">
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
  <tr bgcolor=\"#990000\">
    <td><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\" color=\"#FFFFFF\"></font><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"></font>
      <div align=\"right\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"><font color=\"#FFFFFF\">
        <b>&gt;&gt; Tr&aelig;nernes side</b></font></font></div>
    </td>
  </tr>
</table>
<table width=\"750\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">
  <tr>
    <td><img src=\"../grafik/top-gaestebog.gif\" width=\"750\" height=\"76\"></td>
  </tr>
</table>
<table width=\"750\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\" bgcolor=\"#FFFFFF\">
  <tr>
    <td width=\"145    \" valign=\"top\">
      <!--#include file=\"../Test/inc2.txt\"-->
    </td>
    <td width=\"470\" valign=\"top\">
      <p><br>
        <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
        <!--#include virtual=\"../Test/aktiv.txt\" -->
        </font></p>
      <p> <font color=\"#FFFFFF\"> </font><font color=\"#000000\" size=\"1\"> </font><font color=\"#FFFFFF\">
        </font> </p>
      <table width=\"415\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
        <tr>
          <td colspan=\"2\">
            <p><font face=\"Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-1\">
              <%
SET DbObj=Server.CreateObject (\"ADODB.Connection\")
DbObj.Open \"DSN=dbwww.b82.dk\"
SET tabel=DbObj.Execute(\"SELECT top 8 * FROM gaestebog ORDER BY dato DESC\")
%>
<% tag = replace(tabel(\"tekst\"), VbCrLf, \"<br>\") %>
              <% if tabel.EOF then %>
              Der er endnu ikke skrevet nogle indlæg.<br>
              <% else %>
              <% while not tabel.EOF %>
              </font></p>
            <table width=\"400\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
              <tr>
                <td width=\"330\"><font face=\"Arial, Helvetica, sans-serif\" size=\"-1\"><b>
                  <img src=\"../grafik/src.gif\" width=\"16\" height=\"16\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"-2\">
                  <font color=\"#003399\"><%=tabel(\"Overskrift\")%></font></font></b></font></td>
                <td width=\"100\">
                  <div align=\"right\"><font color=\"#333333\" face=\"Arial, Helvetica, sans-serif\" size=\"-1\"><i><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"-2\" color=\"#000000\"><%=tabel(\"Dato\")%></font><b>
                    </b></i></font></div>
                </td>
              </tr>
              <tr>
                <td colspan=\"2\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-2\">
<%=(smileys(tag))%>
                  <br>
                  </font></td>
              </tr>
              <tr>
                <td colspan=\"2\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-2\"><i>Skrevet
                  af:</i> <%=tabel(\"Forfatter\")%> </font></td>
              </tr>
            </table>
            <p> <font face=\"Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-1\">
              <%tabel.movenext %>
              <% wend %>
              <%end if%>
              <%tabel.close%>
              <%DbObj.close%>
              </font></p>
            <p><font face=\"Arial, Helvetica, sans-serif\" size=\"-2\"><font size=\"-1\">
              </font> </font><font face=\"Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-1\">
              </font></p>
            </td>
        </tr>
      </table>
     
     
     
    </td>
    <td valign=\"top\">&nbsp; </td>
  </tr>
  <tr>
    <td rowspan=\"2\" colspan=\"3\" valign=\"top\">
      <div align=\"center\"></div>
    </td>
  </tr>
</table>
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td bgcolor=\"#990000\">&nbsp;</td>
    <td bgcolor=\"#FFFFFF\" width=\"750\">
      <div align=\"center\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">&gt;&gt;Kontakt
        B82 &gt;&gt;Ris &amp; Ros &gt;&gt;Overblik over www.b82.dk &gt;&gt;Hvem
        er vi</font></div>
    </td>
    <td bgcolor=\"#990000\">&nbsp;</td>
  </tr>
  <tr>
    <td bgcolor=\"#990000\">&nbsp;</td>
    <td bgcolor=\"#990000\" width=\"750\">&nbsp;</td>
    <td bgcolor=\"#990000\">&nbsp;</td>
  </tr>
</table>
</body>
</html>


Er det fordi jeg har placeret funktionen smileys(smil) i mellem <% - %>

Avatar billede -mascot- Nybegynder
13. juli 2001 - 20:46 #11
funktionen skulle aller øverst se her sådan skal det være:

<%
Response.Buffer = True
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\"\">\")
smil = Replace(smil, \"!\", \"<img width=15 height=15 border=0 src=\"\"smileys/03.gif\"\">\")
smil = Replace(smil, \"?\", \"<img width=15 height=15 border=0 src=\"\"smileys/12.gif\"\">\")
smileys = smil
end function
%>
<html>
<head>
<title>Velkommen til B82 Virum</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<!--#include file=\"../Test/inc1.txt\"-->
<link rel=\"stylesheet\" href=\"../style/style.css\" type=\"text/css\">

</head>
<body bgcolor=\"#CC0000\" text=\"#000000\" leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\">
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
  <tr bgcolor=\"#990000\">
    <td><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\" color=\"#FFFFFF\"></font><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"></font>
      <div align=\"right\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"><font color=\"#FFFFFF\">
        <b>&gt;&gt; Tr&aelig;nernes side</b></font></font></div>
    </td>
  </tr>
</table>
<table width=\"750\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">
  <tr>
    <td><img src=\"../grafik/top-gaestebog.gif\" width=\"750\" height=\"76\"></td>
  </tr>
</table>
<table width=\"750\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\" bgcolor=\"#FFFFFF\">
  <tr>
    <td width=\"145    \" valign=\"top\">
      <!--#include file=\"../Test/inc2.txt\"-->
    </td>
    <td width=\"470\" valign=\"top\">
      <p><br>
        <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
        <!--#include virtual=\"../Test/aktiv.txt\" -->
        </font></p>
      <p> <font color=\"#FFFFFF\"> </font><font color=\"#000000\" size=\"1\"> </font><font color=\"#FFFFFF\">
        </font> </p>
      <table width=\"415\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
        <tr>
          <td colspan=\"2\">
            <p><font face=\"Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-1\">
              <%
SET DbObj=Server.CreateObject (\"ADODB.Connection\")
DbObj.Open \"DSN=dbwww.b82.dk\"
SET tabel=DbObj.Execute(\"SELECT top 8 * FROM gaestebog ORDER BY dato DESC\")
%>
<% tag = replace(tabel(\"tekst\"), VbCrLf, \"<br>\") %>
              <% if tabel.EOF then %>
              Der er endnu ikke skrevet nogle indlæg.<br>
              <% else %>
              <% while not tabel.EOF %>
              </font></p>
            <table width=\"400\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
              <tr>
                <td width=\"330\"><font face=\"Arial, Helvetica, sans-serif\" size=\"-1\"><b>
                  <img src=\"../grafik/src.gif\" width=\"16\" height=\"16\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"-2\">
                  <font color=\"#003399\"><%=tabel(\"Overskrift\")%></font></font></b></font></td>
                <td width=\"100\">
                  <div align=\"right\"><font color=\"#333333\" face=\"Arial, Helvetica, sans-serif\" size=\"-1\"><i><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"-2\" color=\"#000000\"><%=tabel(\"Dato\")%></font><b>
                    </b></i></font></div>
                </td>
              </tr>
              <tr>
                <td colspan=\"2\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-2\">
<%=(smileys(tag))%>
                  <br>
                  </font></td>
              </tr>
              <tr>
                <td colspan=\"2\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-2\"><i>Skrevet
                  af:</i> <%=tabel(\"Forfatter\")%> </font></td>
              </tr>
            </table>
            <p> <font face=\"Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-1\">
              <%tabel.movenext %>
              <% wend %>
              <%end if%>
              <%tabel.close%>
              <%DbObj.close%>
              </font></p>
            <p><font face=\"Arial, Helvetica, sans-serif\" size=\"-2\"><font size=\"-1\">
              </font> </font><font face=\"Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-1\">
              </font></p>
            </td>
        </tr>
      </table>
     
     
     
    </td>
    <td valign=\"top\">&nbsp; </td>
  </tr>
  <tr>
    <td rowspan=\"2\" colspan=\"3\" valign=\"top\">
      <div align=\"center\"></div>
    </td>
  </tr>
</table>
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td bgcolor=\"#990000\">&nbsp;</td>
    <td bgcolor=\"#FFFFFF\" width=\"750\">
      <div align=\"center\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">&gt;&gt;Kontakt
        B82 &gt;&gt;Ris &amp; Ros &gt;&gt;Overblik over www.b82.dk &gt;&gt;Hvem
        er vi</font></div>
    </td>
    <td bgcolor=\"#990000\">&nbsp;</td>
  </tr>
  <tr>
    <td bgcolor=\"#990000\">&nbsp;</td>
    <td bgcolor=\"#990000\" width=\"750\">&nbsp;</td>
    <td bgcolor=\"#990000\">&nbsp;</td>
  </tr>
</table>
</body>
</html>
Avatar billede -mascot- Nybegynder
13. juli 2001 - 20:47 #12
men du skal jo have alle de billeder jeg bruger hvis du ikke kan hitte ud af at sætte dine egne stier ind...
Avatar billede flashit Nybegynder
13. juli 2001 - 20:59 #13
Det er ikke noget problem at skifte billederne ud.

Men den trækker altså ikke teksten rigtig ud?
(Det er kun den første post som bliver gentaget i alle indlæggene)

http://www.b82.dk/Gaestebog/laes.asp
Avatar billede flashit Nybegynder
13. juli 2001 - 21:02 #14
Den slætter også alt teksten efter et :) ??
Avatar billede -mascot- Nybegynder
13. juli 2001 - 21:12 #15
prøv det her:

<%
Response.Buffer = True
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\"\">\")
smil = Replace(smil, \"!\", \"<img width=15 height=15 border=0 src=\"\"smileys/03.gif\"\">\")
smil = Replace(smil, \"?\", \"<img width=15 height=15 border=0 src=\"\"smileys/12.gif\"\">\")
smileys = smil
end function
%>
<html>
<head>
<title>Velkommen til B82 Virum</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<!--#include file=\"../Test/inc1.txt\"-->
<link rel=\"stylesheet\" href=\"../style/style.css\" type=\"text/css\">

</head>
<body bgcolor=\"#CC0000\" text=\"#000000\" leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\">
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
  <tr bgcolor=\"#990000\">
    <td><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\" color=\"#FFFFFF\"></font><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"></font>
      <div align=\"right\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"><font color=\"#FFFFFF\">
        <b>&gt;&gt; Tr&aelig;nernes side</b></font></font></div>
    </td>
  </tr>
</table>
<table width=\"750\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">
  <tr>
    <td><img src=\"../grafik/top-gaestebog.gif\" width=\"750\" height=\"76\"></td>
  </tr>
</table>
<table width=\"750\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\" bgcolor=\"#FFFFFF\">
  <tr>
    <td width=\"145    \" valign=\"top\">
      <!--#include file=\"../Test/inc2.txt\"-->
    </td>
    <td width=\"470\" valign=\"top\">
      <p><br>
        <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
        <!--#include virtual=\"../Test/aktiv.txt\" -->
        </font></p>
      <p> <font color=\"#FFFFFF\"> </font><font color=\"#000000\" size=\"1\"> </font><font color=\"#FFFFFF\">
        </font> </p>
      <table width=\"415\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
        <tr>
          <td colspan=\"2\">
            <p><font face=\"Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-1\">
              <%
SET DbObj=Server.CreateObject (\"ADODB.Connection\")
DbObj.Open \"DSN=dbwww.b82.dk\"
SET tabel=DbObj.Execute(\"SELECT top 8 * FROM gaestebog ORDER BY dato DESC\")
%>
<% tag = replace(tabel(\"tekst\"), VbCrLf, \"<br>\") %>
              <% if tabel.EOF then %>
              Der er endnu ikke skrevet nogle indlæg.<br>
              <% else %>
              <% do while not tabel.EOF %>
              </font></p>
            <table width=\"400\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
              <tr>
                <td width=\"330\"><font face=\"Arial, Helvetica, sans-serif\" size=\"-1\"><b>
                  <img src=\"../grafik/src.gif\" width=\"16\" height=\"16\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"-2\">
                  <font color=\"#003399\"><%=tabel(\"Overskrift\")%></font></font></b></font></td>
                <td width=\"100\">
                  <div align=\"right\"><font color=\"#333333\" face=\"Arial, Helvetica, sans-serif\" size=\"-1\"><i><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"-2\" color=\"#000000\"><%=tabel(\"Dato\")%></font><b>
                    </b></i></font></div>
                </td>
              </tr>
              <tr>
                <td colspan=\"2\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-2\">
<%=(smileys(tag))%>
                  <br>
                  </font></td>
              </tr>
              <tr>
                <td colspan=\"2\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-2\"><i>Skrevet
                  af:</i> <%=tabel(\"Forfatter\")%> </font></td>
              </tr>
            </table>
            <p> <font face=\"Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-1\">
              <%tabel.movenext %>
              <% Loop %>
              <%end if%>
              <%tabel.close%>
              <%DbObj.close%>
              </font></p>
            <p><font face=\"Arial, Helvetica, sans-serif\" size=\"-2\"><font size=\"-1\">
              </font> </font><font face=\"Arial, Helvetica, sans-serif\" color=\"#000000\" size=\"-1\">
              </font></p>
            </td>
        </tr>
      </table>
     
     
     
    </td>
    <td valign=\"top\">&nbsp; </td>
  </tr>
  <tr>
    <td rowspan=\"2\" colspan=\"3\" valign=\"top\">
      <div align=\"center\"></div>
    </td>
  </tr>
</table>
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td bgcolor=\"#990000\">&nbsp;</td>
    <td bgcolor=\"#FFFFFF\" width=\"750\">
      <div align=\"center\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">&gt;&gt;Kontakt
        B82 &gt;&gt;Ris &amp; Ros &gt;&gt;Overblik over www.b82.dk &gt;&gt;Hvem
        er vi</font></div>
    </td>
    <td bgcolor=\"#990000\">&nbsp;</td>
  </tr>
  <tr>
    <td bgcolor=\"#990000\">&nbsp;</td>
    <td bgcolor=\"#990000\" width=\"750\">&nbsp;</td>
    <td bgcolor=\"#990000\">&nbsp;</td>
  </tr>
</table>
</body>
</html>

hvis det ikke virker...hvad fejl kommer den så med ?
Avatar billede flashit Nybegynder
13. juli 2001 - 21:47 #16
Den trækker stadig ikke teksten rigtigt ud.

Se her:

http://www.b82.dk/Gaestebog/laes.asp
Avatar billede -mascot- Nybegynder
13. juli 2001 - 22:39 #17
her: http://www.b82.dk/Gaestebog/laes.asp
ser det da ud som om det virker fint...
Avatar billede flashit Nybegynder
13. juli 2001 - 23:10 #18
ja, men jeg har også ændret den tilbage.

Hvis du stadig har krafter så opretter jeg siden med din kode igen.
http://www.b82.dk/Gaestebog/laes2.asp
Avatar billede flashit Nybegynder
13. juli 2001 - 23:12 #19
Kan du se fejlen?
Avatar billede -mascot- Nybegynder
13. juli 2001 - 23:23 #20
kan du ikke sende mig din asp fil + databasen til sa49@mail1.stofanet.dk ???
Avatar billede -mascot- Nybegynder
13. juli 2001 - 23:23 #21
så finder jeg ud af det....
Avatar billede flashit Nybegynder
13. juli 2001 - 23:39 #22
jep.
Avatar billede -mascot- Nybegynder
14. juli 2001 - 01:17 #23
Jeg er lidt sur på dit ASP....damn det vil bare ikke virke...men jeg vil sq løse det nu...
Avatar billede -mascot- Nybegynder
14. juli 2001 - 11:04 #24
så er jeg færdig.....jeg har sendt det tilbage til din mail...
Avatar billede flashit Nybegynder
14. juli 2001 - 11:41 #25
Det var sgu noget af en indsats du her har ydet.
Det virker perfekt.

Mange tak
:-)
Avatar billede -mascot- Nybegynder
14. juli 2001 - 15:52 #26
det var så lidt..eller det var det vel ikke..men det gør inttet...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 21:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
I går 16:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
I går 12:17 Flytte fra et projekt til andet Af hkprofil i Excel
I går 09:23 Slet tal, bevar de underliggende formler Af bbkdk i Excel
09/1108:35 D3D12 lukker nogle spil ned Af thedukedk i Andet software
White papers
Flere white papers »