Avatar billede camboy.dk Nybegynder
07. januar 2001 - 23:39 Der er 34 kommentarer og
1 løsning

Eget design til en tagwall

Hej !
Jeg har næsten ikke noget forstand på asp. Derfor håber jeg der en en venlig sjæl der vil gøre dette, og bagefter fortælle mig hvordan man gør:

Jeg har fundet følgende på nettet:
www.camboy.dk/tagwall.asp den virker også ganske fint men jeg vil gerne have den til at se sådan her ud:
www.camboy.dk/ny-tagwall.asp

Jeg har gem begge filer i en zip fil:
www.camboy.dk/tagwall.zip

Hjælp Hjælp ;-)
Avatar billede ezzuk Nybegynder
07. januar 2001 - 23:51 #1
ret sejt fundet på :-)
Avatar billede bjarke-b Nybegynder
08. januar 2001 - 07:07 #2
skal i skole nu men kan lige ordne det når jeg kommer hjem ;o)
Avatar billede camboy.dk Nybegynder
08. januar 2001 - 10:14 #3
Tak bjake-b  !
Så vil jeg vente på dig...
Avatar billede imp Nybegynder
08. januar 2001 - 14:10 #4
*gnæk*
Avatar billede bjarke-b Nybegynder
08. januar 2001 - 15:14 #5
<html>

<head>
<title>CamBoy.dk</title>
</head>
<body background=\"images/bg.gif\" bgcolor=\"#FFFFFF\" link=\"#0000FF\" vlink=\"#FF0000\" alink=\"#FF0000\">
<div align=\"center\"><center>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"
height=\"95%\">
    <tr>
        <td align=\"center\">
<a href=\"http://tracker.tradedoubler.com/tracker.asp?code=305154\"><img border= 0 src=\"http://www.amante.dk/gfx/banners/banner_468x60_1.gif\"></a>

<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
    <tr>
        <td valign=\"top\"><table border=\"0\" cellpadding=\"0\"
        cellspacing=\"0\" width=\"140\" background=\"baggrund.gif\">
            <tr>
                <td background=\"images/baggrund.gif\"><a href=\"index.asp\"><img src=\"images/camboy-dk.GIF\" width=\"176\" height=\"52\" border=\"0\"></a></td>
                <td background=\"images/baggrund.gif\"><img src=\"images/velkommen.GIF\" width=\"320\"
                height=\"52\"></td>
                <td><MAP NAME=\"eng\">
      <AREA SHAPE=\"rect\" COORDS=\"73,18,110,38\" HREF=\"eng/jacobs.asp\" alt=\"This page in English\">
</MAP><IMG SRC=\"images/right_cornor.GIF\" WIDTH=\"140\" HEIGHT=\"52\" ALIGN=\"middle\" BORDER=\"0\" Alt=\"\"  USEMAP=\"#eng\"
ISMAP></td>
            </tr>
        </table>
        </td>
    </tr>
    <tr>
        <td valign=\"top\" background=\"images/baggrund.gif\"><table
        border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
            <tr>
                <td><div align=\"center\"><center><table border=\"0\"
                cellpadding=\"0\" cellspacing=\"0\">
                    <tr>
                        <td><a href=\"mitcam.asp\"><img src=\"images/mitcam.gif\" border=\"0\" width=\"176\" height=\"52\"></a></td>
                    </tr>
                    <tr>
                        <td valign=\"top\"><a href=\"jacobs.asp\"><img src=\"images/jacob.gif\" border=\"0\" width=\"176\" height=\"52\"></a></td>
                    </tr>
                    <tr>
                        <td><a href=\"galleri.asp\"><img src=\"images/galleri.gif\" border=\"0\" width=\"176\" height=\"52\"></a></td>
                    </tr>
                    <tr>
                        <td><a href=\"links.asp\"><img src=\"images/links.gif\" border=\"0\" width=\"176\" height=\"52\"></a></td>
                    </tr>
                    <tr>
                        <td><a href=\"chat.asp\"><img src=\"images/chat.gif\" border=\"0\" width=\"176\" height=\"52\"></a></td>
                    </tr>
                </table>
                </center></div></td>
                <td valign=\"top\" width=\"320\" td><p align=\"left\"><br>
                <b><%@ LANGUAGE=VBScript%>
<!--#include file=\"setup.asp\"-->
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DB = \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & \"DBQ=\" & STI & \";\"
stack = \"2.5\"
%>

<% If Request(\"mode\") = \"\" then
Response.redirect \"tagwall.asp?mode=se&tags=normal\"
End If
%>


<% If Request(\"mode\") = \"se\" then %>
<html>
<head><title>TAGWALLEN</title>
</head>
<body bgcolor=\"#C8C8C8\"><LINK REL=\"Stylesheet\" TYPE=\"text/css\" HREF=\"tagwall.css\">
<!--
TAGWALLEN er lavet af Mads Sülau Jørgensen.
webmaster@tanke.dk
-->
<%
Conn.Open DB
Set Wall = Server.CreateObject(\"ADODB.RecordSet\")
If tags = \"alle\" Then
Wall.Open \"Select * From TagWall Order by id desc\", Conn
Else
Wall.Open \"Select Top \" & tags & \" * From TagWall Order by id desc\", Conn
End If
If Wall.Eof then
Response.Write \"<br>\"
Response.Write \"<table align=\"\"center\"\" width=\"\"300\"\">\"
Response.Write \"<tr><td><font face=\'Tahoma\' size=\'-4\'><b>Tagwallen er tom...</b></font></td></tr>\"
Response.Write \"</table></body></html>\"
Else
%>

<% Do While Not Wall.EOF %>

<%
smil = wall(\"message\")
If disable = \"ja\" Then
smil = Replace(smil, \"<\", \"&lt;\")
smil = Replace(smil, \">\", \"&gt;\")
End If
If smiley = \"ja\" Then
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\"\">\")
End If
smil = Replace(smil,vbCrLf ,\" <br>\")
%>
<table align=\'center\' width=\'300\'>
<tr><td><font face=\"Tahoma\" size=\"2\"><b>Nick:</b>&nbsp;<%=Wall(\"Nick\")%></td></tr>
<tr><td><font face=\"Tahoma\" size=\"2\"><b>Tag:</b>&nbsp;<%=smil%></font></td></tr>
<%
If mail_action = \"Ja\" Then
If Wall(\"Mail\") <> \"\" Then Response.Write \"<tr><td><font face=\"\"Tahoma\"\" size=\"\"2\"\"><b>E-Mail:</b>&nbsp;<a href=# OnClick=\"\"java script:window.open(\'tagwall.asp?mode=mailsend&type=mail&ard=\" & wall(\"Mail\") & \"\',\'pridewindow\',\'width=298,height=190,scrollbars=no,resize=no,toolbar=no,status=no\');\"\">\" & Wall(\"mail\") & \"</a></font></td></tr>\" & VbCrLf
Else
If Wall(\"Mail\") <> \"\" Then Response.Write \"<tr><td><b><font face=\"\"Tahoma\"\" size=\"\"2\"\">E-Mail:</b>&nbsp;<a href=mailto:\" & Wall(\"mail\") & \">\" & Wall(\"mail\") & \"</a></font></td></tr>\"
End If
If Wall(\"URL\") <> \"\" Then Response.Write \"<tr><td><font face=\"\"Tahoma\"\" size=\"\"2\"\"><b>Hjemmeside:</b>&nbsp;<a href=http://\" & Wall(\"URL\") & \" target=\'_blank\'>\" & Wall(\"URL\") & \"</a></font></td></tr>\" & VbCrLf
If Mail_action = \"Ja\" Then
If Wall(\"ICQ\") <> \"\" Then Response.Write \"<tr><td><font face=\"\"Tahoma\"\" size=\"\"2\"\"><b>ICQ Status:</b>&nbsp;<a href=#><img src=\"\"http://online.mirabilis.com/scripts/online.dll?icq=\" & Wall(\"ICQ\") & \"&amp;img=1\"\" height=14 border=0 OnClick=\"\"java script:window.open(\'tagwall.asp?mode=icqsend&type=icq&ard=\" & wall(\"icq\") & \"\',\'pridewindow\',\'width=254,height=190,scrollbars=no,resize=no,toolbar=no,status=no\');\"\"></a></font></td></tr>\" & VbCrLf
Else
If Wall(\"ICQ\") <> \"\" Then Response.Write \"<tr><td><b><font face=\"\"Tahoma\"\" size=\"\"2\"\">ICQ Status:</b>&nbsp;<a href=\"\"http://msg.mirabilis.com/scripts/contact.dll?msgto=\" & Wall(\"icq\") & \"\"\"><img src=\"\"http://online.mirabilis.com/scripts/online.dll?icq=\" & Wall(\"icq\") & \"&amp;img=1\"\" height=14 border=0></a></font></td></tr>\"
End If

Response.Write \"<br><br>\" & VbCrlf
Response.Write \"</table>\"& VbCrlf & VbCrlf
wall.movenext
loop
response.write \"</table></body></html>\"
wall.close
set wall = nothing
%>
<p align=\"center\">
<%
If Reklame = \"ja\" Then
Response.Write \"<font face=\'Tahoma\' size=\'-4\'><b>&copy; <a href=\'http://www.whitehat.dk/msj/\' target=\"\"_blank\"\"><font face=\'Tahoma\' size=\'-4\'>MsJ-Design</font></a> 2000</b></font>\"
End If
%>

<% End If %>
<% End If %>


<% If Request(\"mode\") = \"skriv\" then %>
<%
Conn.Open DB
Set wall = Server.CreateObject(\"ADODB.RecordSet\")
wall.open \"Select * From [Tagwall] Order by id\", Conn, 1, 3 

wall.addnew
wall.Fields(\"nick\") = request.form(\"nick\")
wall.Fields(\"message\") = request.form(\"tag\")
If request.form(\"mail\") <> \"\" Then wall.Fields(\"mail\") = request.form(\"mail\")
If request.form(\"url\") <> \"\" Then wall.Fields(\"url\") = request.form(\"url\")
If request.form(\"icq\") <> \"\" Then wall.Fields(\"icq\") = request.form(\"icq\")
wall.update

wall.close
set wall = nothing
Conn.Close

Response.Redirect \"tagwall.asp?mode=se&tags=normal\"
%>
<% End if %>

<% If Request(\"mode\") = \"tag\" Then %>
<html>
<head><title>TAGWALLEN Nyt Tag</title></head>
<body bgcolor=\"#C8C8C8\"><LINK REL=\"Stylesheet\" TYPE=\"text/css\" HREF=\"tagwall.css\">
<form action=\"tagwall.asp?mode=skriv\" method=\"post\">
<div align=\"center\"><table border=\"1\" cellpadding=\"0\"
cellspacing=\"0\" width=\"200\" bordercolor=\"#000000\" height=\"91\">
<tr>
<td width=\"100%\" height=\"89\"><div align=\"center\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"160\" height=\"58\">
<tr>
<td width=\"100%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">Nick:</font>
<font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
</td>
<td width=\"100%\" height=\"25\"><p align=\"left\">
<input type=\"text\" size=\"20\" name=\"nick\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
</td>
</tr>
<tr>
<td width=\"100%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">E-Mail:</font>
<font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
</td>
<td width=\"100%\" height=\"25\"><p align=\"left\"><input type=\"text\" size=\"20\" name=\"mail\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
</td>
</tr>
<tr>
<td width=\"100%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">URL:</font>
<font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
</td>
<td width=\"100%\" height=\"25\"><p align=\"left\">
<input type=\"text\" size=\"20\" name=\"URL\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
</td>
</tr>
<tr>
<td width=\"100%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">ICQ:</font>
<font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
</td>
<td width=\"100%\" height=\"25\"><p align=\"left\">
<input type=\"text\" size=\"20\" name=\"ICQ\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
</td>
</tr>
<tr>
<td width=\"100%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">Tag:</font>
<font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
</td>
<td width=\"100%\" height=\"25\"><p align=\"left\">
<textarea name=\"tag\" rows=\"4\" size=\"20\" name=\"tag\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></textarea></p>
</td>
</tr>
<tr>
<td colspan=\"2\" width=\"100%\" height=\"8\"><p align=\"center\"><input type=\"submit\" name=\"B1\" value=\"  Tag!!  \" style=\"background: rgb(255,255,255); border: 1px solid rgb(0,0,0); font-family: Tahoma; font-size: 8pt;\"></p>
</td>
</tr>
</table>
</div></td>
</tr>
</table>
</body>
</html>

<% End If %>

<% If Request(\"mode\") = \"logud\" Then
Session.Abandon
Response.Redirect \"tagwall.asp?mode=se&tags=normal\"
End If
%>

<% If Request(\"mode\") = \"check\" Then %>
<%
user = Request.Form(\"user\")
pass = Request.Form(\"pass\")

If user = Bruger and pass = Kode Then
Session(\"Adgang\") = \"ja\"
Response.Redirect \"tagwall.asp?mode=admin\"
Else
Session(\"Adgang\") = \"Nej\"
Response.Redirect \"tagwall.asp?mode=login\"
End If
%>
<% End If %>

<% If Request(\"mode\") = \"admin\" Then %>
<%
If Session(\"Adgang\") = \"ja\" Then
Else Response.Redirect \"tagwall.asp?mode=login\"
End If
%>

<html>
<head><title>TAGWALLEN Administrations Side</title></head>
<body bgcolor=\"#C8C8C8\"><LINK REL=\"Stylesheet\" TYPE=\"text/css\" HREF=\"tagwall.css\">
<%
Response.Expires = 0
Response.AddHeader \"PRAGMA\", \"NO-CACHE\"
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open DB
strsql = \"Select * From tagwall order by id desc\"
Set rs = Conn.execute(strSQL)
If RS.Eof then
Response.Write \"Tagwallen er tom...\"
Else Do Until RS.Eof %>
<font face=\"Tahoma\" size=\"2\"><b><a href=\"tagwall.asp?mode=del&id=<%=rs(\"id\")%>\">Slet</a>&nbsp;<% =rs(\"nick\")%></b>: <% =rs(\"message\")%><br><br></font>
<%
RS.MoveNext
Loop
End If
Conn.close
set Conn = nothing
%>
<a href=\"tagwall.asp?mode=logud\">Logud</a>
</body>
</html>

<% End If %>


<% If Request(\"mode\") = \"del\" Then %>
<%
Response.Expires = 0
Response.AddHeader \"PRAGMA\", \"NO-CACHE\"
if Session(\"Adgang\") = \"\" or Session(\"Adgang\") = \"Nej\" Then
Response.Redirect \"tagwall.asp?mode=login\"
End If
Conn.Open DB
SQL = \"DELETE FROM tagwall WHERE ID = \" & Request.QueryString(\"ID\")
Set RS = Conn.Execute(SQL)
Conn.Close
Set Conn = Nothing
Response.Redirect \"tagwall.asp?mode=admin\"
End if
%>


<% if Request(\"mode\") = \"send_mail_execute\" Then

Response.Expires = 0
Response.AddHeader \"PRAGMA\", \"NO-CACHE\"
if Session(\"mail_send_ip\") = Request.ServerVariables(\"REMOTE_ADDR\") Then
    Response.Write \"<html><body bgcolor=\'#C8C8C8\'><LINK REL=\'Stylesheet\' TYPE=\'text/css\' HREF=\'tagwall.css\'><font face=\'Tahoma, Vernda\' size=\'2\'><b>Af sikkerheds messige grunde kan du ikke sende mere en 1 bedsked pr. minut</b></font></p>\"
    Response.Write \"<br><br><br><br><div align=\"\"center\"\"><input type=\"\"submit\"\" value=\"\"Luk vindue\"\" onclick=\"\"java script:window.close()\"\" style=\"\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"\"></div>\"
Else
Session.TimeOut = 1
Session(\"mail_send_ip\") = Request.ServerVariables(\"REMOTE_ADDR\")

If Request.QueryString(\"type\") = \"icq\" Then
    Subject = \"TAGWALLEN ICQ besked \" & VbCrlf & \"Fra :\" & Request.Form(\"Name\") & \"\"
    From = Request.Form(\"mail\")
    Besked = \"Besked:\" & Request.Form(\"besked\")
    send_mail_ard = Request.QueryString(\"ard\") & \"@pager.icq.com\"

Elseif Request.QueryString(\"type\") = \"mail\" Then
    Subject = \"TAGWALLEN Mail Sender\" & VbCrlf & \"Fra :\" & Request.Form(\"Name\") & \"\"
    From = Request.Form(\"mail\")
    Besked = \"Besked:\" & Request.Form(\"besked\")
    send_mail_ard = Request.QueryString(\"ard\")
End If

If mail_type = \"JMail\" Then
\'    Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
\'    JMail.ContentType = \"text/html\"
\'    JMail.ServerAddress = mailserver
\'    JMail.Priority = 1
\'    JMail.Sender = From
\'    JMail.Subject = Subject
\'    JMail.Body = Besked
\'    JMail.AddRecipient send_mail_ard
\'    JMail.Execute
\'    Set JMail = Nothing

Elseif mail_type = \"CDONTS\" Then
\'Set objMail = CreateObject(\"CDONTS.NewMail\")
\'    objMail.Send From, icq_send_nr, Subject, Besked, 1
\'    Set objMail = Nothing
End If
    Response.Write \"<html><body bgcolor=\'#C8C8C8\'><LINK REL=\'Stylesheet\' TYPE=\'text/css\' HREF=\'tagwall.css\'><font face=\'Tahoma, Vernda\' size=\'2\'><b>Din besked til </b>\" & Request.QueryString(\"ard\") & \"<b>&nbsp;er sendt</b></font></p>\"
%>
<br><br><br><br><br><br><div align=\"center\"><input type=\"submit\" value=\"Luk vindue\" onclick=\"java script:window.close()\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></div>
<%
End If
End if

%>


<%
If Request(\"mode\") = \"icqsend\" Then
%>

<html>
<head><title>TAGWALLEN ICQ-Messagenger</title></head>
<body bgcolor=\"#C8C8C8\"><LINK REL=\"Stylesheet\" TYPE=\"text/css\" HREF=\"tagwall.css\">
<form action=\"tagwall.asp?mode=send_mail_execute&type=icq&ard=<%= Request.QueryString(\"ard\") %>\" method=\"post\">
    <div align=\"center\"><table border=\"1\" cellpadding=\"0\" cellspacing=\"0\" width=\"210\" bordercolor=\"#000000\" height=\"130\">
        <tr>
            <td width=\"100%\" height=\"89\"><table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"200\" height=\"58\">
                <tr>
                    <td width=\"47%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">Dit Navn:</font><font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
                    </td>
                    <td width=\"53%\" height=\"25\"><p align=\"left\"><input type=\"text\" size=\"20\" name=\"navn\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
                    </td>
                </tr>
                <tr>
                    <td width=\"22%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">Din E-mail:</font><font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
                    </td>
                    <td width=\"53%\" height=\"25\"><p align=\"left\"><input type=\"text\" size=\"20\" name=\"mail\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
                    </td>
                </tr>
                <tr>
                    <td width=\"22%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">Besked:</font><font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
                    </td>
                    <td width=\"53%\" height=\"25\"><p align=\"left\"><textarea cols=\"20\" rows=\"3\" name=\"besked\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></textarea></p>
                    </td>
                </tr>
                <tr>
                    <td colspan=\"2\" width=\"100%\" height=\"8\"><p align=\"center\">
                    <input type=\"submit\" name=\"B1\" value=\"  Send!  \" style=\"background: rgb(255,255,255); border: 1px solid rgb(0,0,0); font-family: Tahoma; font-size: 8pt;\"></p>
                    </td>
                </tr>
              </table>
            </div></td>
        </tr>
    </table>
<br><div align=\"center\"><input type=\"submit\" value=\"Luk vindue\" onclick=\"java script:window.close()\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></div>
</body>
</html>

<% End if %>

<% If Request(\"mode\") = \"mailsend\" Then %>

<html>
<head><title>TAGWALLEN Mail-Messagenger</title></head>
<body bgcolor=\"#C8C8C8\"><LINK REL=\"Stylesheet\" TYPE=\"text/css\" HREF=\"tagwall.css\">
<form action=\"tagwall.asp?mode=send_mail_execute&type=mail&ard=<%= Request.QueryString(\"ard\") %>\" method=\"post\">
    <div align=\"center\"><table border=\"1\" cellpadding=\"0\" cellspacing=\"0\" width=\"210\" bordercolor=\"#000000\" height=\"130\">
        <tr>
            <td width=\"100%\" height=\"89\"><table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"200\" height=\"58\">
                <tr>
                    <td width=\"47%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">Dit Navn:</font><font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
                    </td>
                    <td width=\"53%\" height=\"25\"><p align=\"left\"><input type=\"text\" size=\"20\" name=\"navn\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
                    </td>
                </tr>
                <tr>
                    <td width=\"22%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">Din E-mail:</font><font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
                    </td>
                    <td width=\"53%\" height=\"25\"><p align=\"left\"><input type=\"text\" size=\"20\" name=\"mail\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
                    </td>
                </tr>
                <tr>
                    <td width=\"22%\" height=\"25\"><p align=\"right\"><font size=\"1\" face=\"Tahoma\">Besked:</font><font color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
                    </td>
                    <td width=\"53%\" height=\"25\"><p align=\"left\"><textarea cols=\"20\" rows=\"3\" name=\"besked\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></textarea></p>
                    </td>
                </tr>
                <tr>
                    <td colspan=\"2\" width=\"100%\" height=\"8\"><p align=\"center\">
                    <input type=\"submit\" name=\"B1\" value=\"  Send!  \" style=\"background: rgb(255,255,255); border: 1px solid rgb(0,0,0); font-family: Tahoma; font-size: 8pt;\"></p>
                    </td>
                </tr>
              </table>
            </div></td>
        </tr>
    </table>
<br><div align=\"center\"><input type=\"submit\" value=\"Luk vindue\" onclick=\"java script:window.close()\" style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></div>
</body>
</html>

<% End if %>


<% If Request(\"mode\") = \"login\" Then %>

<html>
<head><title>TAGWALLEN Login</title></head>
<body bgcolor=\"#C8C8C8\"><LINK REL=\"Stylesheet\" TYPE=\"text/css\" HREF=\"tagwall.css\">
<form action=\"tagwall.asp?mode=check\" method=\"post\">
    <div align=\"center\"><table border=\"1\" cellpadding=\"0\"
    cellspacing=\"0\" width=\"23%\" bordercolor=\"#000000\" height=\"91\">
        <tr>
            <td width=\"100%\" height=\"89\"><table
            border=\"0\" cellpadding=\"0\" cellspacing=\"0\"
            width=\"23%\" height=\"58\">
                <tr>
                    <td width=\"47%\" height=\"25\"><p align=\"right\"><font
                    size=\"1\" face=\"Tahoma\">Brugernavn:</font><font
                    color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
                    </td>
                    <td width=\"53%\" height=\"25\"><p align=\"left\"><input
                    type=\"text\" size=\"20\" name=\"user\"
                    style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
                    </td>
                </tr>
                <tr>
                    <td width=\"22%\" height=\"25\"><p align=\"right\"><font
                    size=\"1\" face=\"Tahoma\">Password:</font><font
                    color=\"#FFFFFF\" size=\"1\" face=\"Tahoma\">-</font></p>
                    </td>
                    <td width=\"53%\" height=\"25\"><p align=\"left\"><input
                    type=\"password\" size=\"20\" name=\"pass\"
                    style=\"font-family: Tahoma; font-size: 8pt; border: 1pt solid rgb(0,0,0)\"></p>
                    </td>
                </tr>
                <tr>
                    <td colspan=\"2\" width=\"100%\" height=\"8\"><p
                    align=\"center\"><input type=\"submit\" name=\"B1\" value=\"  Send!  \"
                    style=\"background: rgb(255,255,255); border: 1px solid rgb(0,0,0); font-family: Tahoma; font-size: 8pt;\"></p>
                    </td>
                </tr>
            </table>
            </div></td>
        </tr>
    </table>
</body>
</html>


<% End If %>


<% If mode = \"hooola\" then %>

<html><head></head><body>TAGWALLEN version <%=stack%></body></html>

<% End If %></b>               

</td>
                <td width=\"140\" valign=\"top\"
                background=\"images/bg_venstre.gif\"><b><a href=\"tagwall.asp?mode=se&tags=normal\">Se alle </a><a href=\"tagwall.asp?mode=tag\">Tilføj Tag</a>
.</b></td>
            </tr>
        </table>
        </td>
    </tr>
  <tr>
        <td valign=\"top\" background=\"images/bg_bund.gif\"><p
        align=\"center\"><br><br>
        <a href=\"http://www.chart.dk/ref.asp?id=22935\"
        target=\"_blank\"><img
        src=\"http://cluster.chart.dk/chart.asp?id=22935&amp;style=7\"
        alt=\"chart.dk\" align=\"left\" border=\"0\" hspace=\"0\"
        width=\"16\" height=\"16\"></a><font size=\"2\">Online brugere:<%=Application(\"NumbersOnline\")%></p></font>

        </td>
    </tr>
    <tr>
        <td><img src=\"images/bunden_sort.gif\" width=\"636\"
        height=\"2\"></td>
    </tr>
</table>
</center></div>
</table>
</body>
</html>
Avatar billede bjarke-b Nybegynder
08. januar 2001 - 15:15 #6
Det burde være der
Avatar billede camboy.dk Nybegynder
08. januar 2001 - 15:52 #7
bjake-b -
Jeg har prøvet at lave en fil der heder tagwall1.asp med det du skrev.
http://www.camboy.dk/tagwall1.asp

Det virker ikke så godt. Hvad kan der være galt ? Skal filen hede noget bestemt ?
Avatar billede bjarke-b Nybegynder
08. januar 2001 - 16:00 #8
Erstat følgende:
If Wall(\"ICQ\") <> \"\" Then Response.Write \"<tr><td><font face=\"\"Tahoma\"\" size=\"\"2\"\"><b>ICQ Status:</b>&nbsp;<a href=#><img src=\"\"http://online.mirabilis.com/scripts/online.dll?icq=\" & Wall(\"ICQ\") & \"& img=1\"\" height=14 border=0 OnClick=\"\"java script:window.open(\'tagwall.asp?mode=icqsend&type=icq&ard=\" & wall(\"icq\") & \"\',\'pridewindow\',\'width=254,height=190,scrollbars=no,resize=no,toolbar=no,status=no\');\"\"></a></font></td></tr>\" & VbCrLf
Else
If Wall(\"ICQ\") <> \"\" Then Response.Write \"<tr><td><b><font face=\"\"Tahoma\"\" size=\"\"2\"\">ICQ Status:</b>&nbsp;<a href=\"\"http://msg.mirabilis.com/scripts/contact.dll?msgto=\" & Wall(\"icq\") & \"\"\"><img src=\"\"http://online.mirabilis.com/scripts/online.dll?icq=\"; & Wall(\"icq\") & \"&amp;img=1\"\" height=14 border=0></a></font></td></tr>\"
End If
Avatar billede camboy.dk Nybegynder
08. januar 2001 - 16:12 #9
Jeg syndes stadig ikke jeg kan få det til at virke. Vil du ikke lige poste hele den rigtige kode igen. Hvad skal filen hede ? Betyder det noget ?
Avatar billede bjarke-b Nybegynder
08. januar 2001 - 16:18 #10
camboy -> Ja for link´sne gør det (kald den tagwal.asp når det hele kører)
Avatar billede camboy.dk Nybegynder
08. januar 2001 - 16:25 #11
Det vikrer altså heller ikke :-(
Avatar billede camboy.dk Nybegynder
08. januar 2001 - 16:42 #12
Du kan selv se her:
www.camboy.dk/tagwall.asp
Avatar billede bacardil Nybegynder
08. januar 2001 - 18:47 #13
Sikke en kode ;o)

Se evt.
http://www.cration-graphics.dk/tag/tagwall.asp

Måske det var noget?
Avatar billede bacardil Nybegynder
08. januar 2001 - 18:51 #14
At begynde, at rode med det andet script, tør man næsten ikke.. underlig opbygning ;o)
Avatar billede bjarke-b Nybegynder
08. januar 2001 - 19:04 #15
camboy.dk -> Du tager bare hele koden fra tagwall.asp og indsætter i ny_tagwall.asp der hvor du vil have det til og være ;-)
Avatar billede camboy.dk Nybegynder
08. januar 2001 - 20:24 #16
bjarke-b - Er det ikke det du har gjort???

Jeg har prøvet at sætte det ind. Men jeg kan ikke få det til at virke. Er der virkelig ikke en der gider at gøre det eller fortælle mig hvordan det skal gøres?

Jeg er helt ny, så jeg beklager hvis det er noget meget dumt jeg spøger om
Avatar billede camboy.dk Nybegynder
08. januar 2001 - 20:25 #17
Til nye, der læser dette spøgsmål:
Hent: www.camboy.dk/tagwall.zip
De to filer skulde gerne laves om til en.
Avatar billede camboy.dk Nybegynder
08. januar 2001 - 20:30 #18
barcadil - Jov jeg kan da godt bruge dit forslag, hvis det er muligt at lave det med \"mit\" design:
http://www.camboy.dk/ny-tagwall.asp

Er det mulighed for at man kan sætte det op sådan, at der maks må være feks. 25 beskeder. Ellers bliver det en meget lang side
Avatar billede Slettet bruger
08. januar 2001 - 22:11 #19
Ja, hvis man programmere det.
Avatar billede Slettet bruger
08. januar 2001 - 22:13 #20
;O)
Avatar billede camboy.dk Nybegynder
08. januar 2001 - 22:17 #21
Mange tak for hjælpen peters, det hade jeg jo ikke lige tænk på ;-)

Er det jeg spøger om ikke så nemt som jeg tror ? eller er der bare ikke nogen der gider ?
Avatar billede bjarke-b Nybegynder
08. januar 2001 - 22:33 #22
camboy.dk -> Jo, det er skam nemt nok ;-)
Avatar billede camboy.dk Nybegynder
08. januar 2001 - 22:55 #23
Jammen bjarke hvorfor virke det så ikke det du har lavet ?
Mystisk.
Er det mig der gør noget forkert ?
Avatar billede bjarke-b Nybegynder
08. januar 2001 - 23:13 #24
camboy -> Well, bare mig der tåger lidt rundt..også ikke en særlig smart kode
Avatar billede bacardil Nybegynder
09. januar 2001 - 21:45 #25
Når skal vi være færdige her..

Hvor mange point vil du give for en tagwall?  150?
Avatar billede camboy.dk Nybegynder
09. januar 2001 - 23:43 #26
bacardil - Ok !
Du får 150 point, hvis du kan lave en.
Avatar billede imp Nybegynder
10. januar 2001 - 10:29 #27
FUCK HVOR KAN I FLOODE MIN MAILBOX!
Avatar billede camboy.dk Nybegynder
10. januar 2001 - 11:06 #28
imp - Det er da hvist din egen skyld ;-)
Eller ?
Avatar billede imp Nybegynder
11. januar 2001 - 09:30 #29
Camboy-> Tjooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo... Det er det vel nok et eller andet sted, men jeg synes ikke eksperten skal bruges til at chatte... *host host*

- imp

BTW: UtC ruleZ!
Avatar billede camboy.dk Nybegynder
11. januar 2001 - 17:21 #30
Bacrdil ->
Vil du hjælpe eller ?????
Avatar billede bjarke-b Nybegynder
14. januar 2001 - 17:40 #31
camboy.dk -> Har lavet en løsning der benytter iframe ;-)

<html>

<head>
<title>CamBoy.dk</title>
</head>
<body background=\"images/bg.gif\" bgcolor=\"#FFFFFF\" link=\"#0000FF\" vlink=\"#FF0000\" alink=\"#FF0000\">
<div align=\"center\"><center>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"
height=\"95%\">
    <tr>
        <td align=\"center\">
<a href=\"http://tracker.tradedoubler.com/tracker.asp?code=305154\"><img border= 0 src=\"http://www.amante.dk/gfx/banners/banner_468x60_1.gif\"></a>

<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
    <tr>
        <td valign=\"top\"><table border=\"0\" cellpadding=\"0\"
        cellspacing=\"0\" width=\"140\" background=\"baggrund.gif\">
            <tr>
                <td background=\"images/baggrund.gif\"><a href=\"index.asp\"><img src=\"images/camboy-dk.GIF\" width=\"176\" height=\"52\" border=\"0\"></a></td>
                <td background=\"images/baggrund.gif\"><img src=\"images/velkommen.GIF\" width=\"320\"
                height=\"52\"></td>
                <td><MAP NAME=\"eng\">
      <AREA SHAPE=\"rect\" COORDS=\"73,18,110,38\" HREF=\"eng/jacobs.asp\" alt=\"This page in English\">
</MAP><IMG SRC=\"images/right_cornor.GIF\" WIDTH=\"140\" HEIGHT=\"52\" ALIGN=\"middle\" BORDER=\"0\" Alt=\"\"  USEMAP=\"#eng\"
ISMAP></td>
            </tr>
        </table>
        </td>
    </tr>
    <tr>
        <td valign=\"top\" background=\"images/baggrund.gif\"><table
        border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
            <tr>
                <td><div align=\"center\"><center><table border=\"0\"
                cellpadding=\"0\" cellspacing=\"0\">
                    <tr>
                        <td><a href=\"mitcam.asp\"><img src=\"images/mitcam.gif\" border=\"0\" width=\"176\" height=\"52\"></a></td>
                    </tr>
                    <tr>
                        <td valign=\"top\"><a href=\"jacobs.asp\"><img src=\"images/jacob.gif\" border=\"0\" width=\"176\" height=\"52\"></a></td>
                    </tr>
                    <tr>
                        <td><a href=\"galleri.asp\"><img src=\"images/galleri.gif\" border=\"0\" width=\"176\" height=\"52\"></a></td>
                    </tr>
                    <tr>
                        <td><a href=\"links.asp\"><img src=\"images/links.gif\" border=\"0\" width=\"176\" height=\"52\"></a></td>
                    </tr>
                    <tr>
                        <td><a href=\"chat.asp\"><img src=\"images/chat.gif\" border=\"0\" width=\"176\" height=\"52\"></a></td>
                    </tr>
                </table>
                </center></div></td>
                <td valign=\"top\" width=\"320\" td><p align=\"left\"><br>

                  <iframe src=tagwall2.asp widht=250 height=400>

</td>
                <td width=\"140\" valign=\"top\"
                background=\"images/bg_venstre.gif\"><b>Hvis det er muligt vil jeg gerne have \"tilføj tag\" her og \"vis alle tag\"
.</b></td>
            </tr>
        </table>
        </td>
    </tr>
  <tr>
        <td valign=\"top\" background=\"images/bg_bund.gif\"><p
        align=\"center\"><br><br>
        <a href=\"http://www.chart.dk/ref.asp?id=22935\"
        target=\"_blank\"><img
        src=\"http://cluster.chart.dk/chart.asp?id=22935&amp;style=7\"
        alt=\"chart.dk\" align=\"left\" border=\"0\" hspace=\"0\"
        width=\"16\" height=\"16\"></a><font size=\"2\">Online brugere:<%=Application(\"NumbersOnline\")%></p></font>

        </td>
    </tr>
    <tr>
        <td><img src=\"images/bunden_sort.gif\" width=\"636\"
        height=\"2\"></td>
    </tr>
</table>
</center>
</table>
</body>
</html>


Selve gæstebogen skal så hedde tagwall2.asp og så burde det gerne virke :-)


Avatar billede camboy.dk Nybegynder
15. januar 2001 - 01:01 #32
bjake-b ->
Tak det virker.
Men for at det skal være 100% ok mangler jeg en måde så man ikke kan scrolle til siden.
se her:
www.camboy.dk/gaest.asp

Jeg syndes heller ikke helt jeg kan lave breden om.
Man skulde tro at man bare kunne lave breden om fra 250 til feks. 320. Men det kan man ikke, hvorfor ?

Når det er på plads for du 60å ;-)
Mange tak !!!!
Avatar billede bjarke-b Nybegynder
15. januar 2001 - 06:53 #33
camboy.dk -> Grunden til at du kan scrolle til siden et det tag hvor der bare står akldlkæaskdkaklæsasdklæklsdalasdklækasd o.s.v
men du kan ændre højden og bredden af iframen såden her:
<iframe src=tagwall2.asp widht=250 height=400>


width=bredde height=højde

så kan du selv indsætte hvad det skal være :-)
Avatar billede bjarke-b Nybegynder
15. januar 2001 - 17:59 #34
Takker
Avatar billede camboy.dk Nybegynder
15. januar 2001 - 18:04 #35
Jeg takker også...
fandt ud af at du hade skrevet width forket i den kode du havede stat ind:
<iframe src=tagwall2.asp widht=250 height=400>

Men skidt pyt. Nu virker det
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester