Har har du en som jeg har lavet før i tiden.. den indeholder dog ikke ICQ funktionen!
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"dbTagWall.mdb\")
If Request.QueryString(\"gem\") = \"nu\" Then
Set rs = Server.CreateObject(\"ADODB.Recordset\")
SQL = \"SELECT * FROM tagwall\"
rs.Open SQL, Conn, 1, 3
rs.AddNew
rs(\"navn\") = Request.Form(\"navn\")
rs(\"emne\") = Request.Form(\"emne\")
rs(\"email\") = Request.Form(\"email\")
rs(\"tekst\") = Request.Form(\"tekst\")
rs(\"dato\") = date()
rs.Update
End If
%>
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">
<HTML><HEAD>
<META content=\"text/html; charset=windows-1252\" http-equiv=Content-Type>
<STYLE>
A:link {
COLOR: #999999; FONT-FAMILY: OCR A Extended; TEXT-DECORATION: none
}
A:visited {
COLOR: #999999; FONT-FAMILY: OCR A Extended; TEXT-DECORATION: none
}
A:active {
COLOR: #999999; FONT-FAMILY: OCR A Extended; TEXT-DECORATION: none
}
A:hover {
COLOR: #999999; FONT-FAMILY: OCR A Extended; TEXT-DECORATION: underline overline
}
BODY {
BACKGROUND: url(back.jpg) fixed no-repeat
}
H1 {
COLOR: #ffffff; FONT-FAMILY: OCR A Extended; FONT-SIZE: 16px
}
P {
COLOR: #999999; FONT-FAMILY: OCR A Extended; FONT-SIZE: 14px
}
.Font {
font-size: 12px;
}
.ramme {
BORDER-BOTTOM: rgb(0,0,0) 1px solid; BORDER-LEFT: rgb(0,0,0) 1px solid; BORDER-RIGHT: rgb(0,0,0) 1px solid; BORDER-TOP: rgb(0,0,0) 1px solid
}
</STYLE>
<SCRIPT language=JavaScript>
<!--
var scrollstatus = false;
function MM_findObj(n, d) { //v3.0
var p,i,x; if(!d) d=document; if((p=n.indexOf(\"?\"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
}
function MM_showHideLayers() { //v3.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v==\'show\')?\'visible\':(v=\'hide\')?\'hidden\':v; }
obj.visibility=v; }
}
//-->
</SCRIPT>
<STYLE>#divControl {
FONT-SIZE: 4pt; Z-INDEX: 20; position;: verdana
}
#divCont {
position;: 20
}
.clScroll {
FONT-FAMILY: verdana; FONT-SIZE: 4pt; LEFT: 0px; POSITION: absolute; TOP: 0px; VISIBILITY: hidden; Z-INDEX: 20
}
#divScroll1 {
FONT-FAMILY: verdana; FONT-SIZE: 4pt; LEFT: 0px
}
</STYLE>
<SCRIPT language=JavaScript>
<!--
function MM_findObj(n, d) { //v3.0
var p,i,x; if(!d) d=document; if((p=n.indexOf(\"?\"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
}
function MM_showHideLayers() { //v3.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v==\'show\')?\'visible\':(v=\'hide\')?\'hidden\':v; }
obj.visibility=v; }
}
//-->
ie=document.all?1:0
n=document.layers?1:0
timSpeed=1
contHeight=40
function makeScrollObj(obj,nest){
nest=(!nest) ? \'\':\'document.\'+nest+\'.\'
this.css=(n) ? eval(nest+\'document.\'+obj):eval(\'document.all.\'+obj+\'.style\')
this.scrollHeight=n?this.css.document.height:eval(\'document.all.\'+obj+\'.offsetHeight\')
this.top=b_gettop
return this
}
function b_gettop(){
var gleft=(n) ? eval(this.css.top):eval(this.css.pixelTop);
return gleft;
}
//Variables
var scrollTim;
var active=0;
function scroll(speed){
if (scrollstatus==false) return false;
clearTimeout(scrollTim)
way=speed>0?1:0
if((!way && oScroll[active].top()>-oScroll[active].scrollHeight+contHeight) || (oScroll[active].top()<0 && way)){
oScroll[active].css.top=oScroll[active].top()+speed
scrollTim=setTimeout(\"scroll(\"+speed+\")\",timSpeed)
}
}
function noScroll(){
clearTimeout(scrollTim)
}
function scrollInit(){
oScroll=new Array()
oScroll[0]=new makeScrollObj(\'divScroll1\',\'divCont\')
oScroll[0].css.visibility=\'visible\'
scrollstatus=true;
}
onload=scrollInit;
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</SCRIPT>
<META content=\"MSHTML 5.00.2614.3500\" name=GENERATOR></HEAD>
<BODY text=#ffffff>
<DIV id=divCont
style=\"CLIP: rect(0px 210px 355px 0px); HEIGHT: 300px; LEFT: 0px; TOP: 0px; WIDTH: 545px\">
<DIV class=clScroll id=divScroll1><BR><BR><BR><BR><BR>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=470>
<TBODY>
<TR>
<TD colSpan=0 width=470><FONT color=#ffffff
face=\"OCR A Extended\">Tagwall<BR></FONT></TD></TR>
<TR>
<TD>
<P> </P></TD></TR>
<TR>
<TD>
<%
If Request.QueryString(\"show\") = \"\" Then
SQL = \"SELECT * FROM tagwall order by dato\"
Set rs = Conn.Execute(SQL)
%>
<div class=\"font\" align=\"center\">
.::
<a href=\"tagwall.asp\">Se indlæg</a>
|
<a href=\"tagwall.asp?show=new\">Opret nyt</a>
|
<a href=\"tagwall.asp?show=admin\">Admin</a>
::.
</div>
<p>
<% While NOT rs.EOF %>
<table align=\"center\" class=\"font\" class=\"ramme\" width=\"350\" bgcolor=\"#25314B\">
<tr>
<td align=\"left\"><%= rs(\"navn\")%></td>
<td align=\"right\"><%= rs(\"dato\")%></td>
</tr>
</table>
<table align=\"center\" class=\"font\" class=\"ramme\" width=\"353\">
<tr>
<td bgcolor=\"#000000\"><%= Replace(rs(\"tekst\") &\"\", VbCrLf, \"<br>\") %></td>
</tr>
<tr>
<td bgcolor=\"#000000\" align=\"right\"><a href=\"mailto:<%= rs(\"email\") %>\"><%= rs(\"navn\") %></a></td>
</tr>
</table>
<br><hr><br>
<% rs.MoveNext %>
<% Wend %>
<%
End If
%>
<%
If Request.QueryString(\"show\") = \"new\" Then
%>
<table class=\"font\" align=\"center\">
<form action=\"tagwall.asp?gem=nu\" method=\"post\">
<tr>
<td>Navn: </td>
<td><input type=\"text\" name=\"navn\" class=\"ramme\"></td>
</tr>
<tr>
<td>Email:</td>
<td><input type=\"text\" name=\"email\" class=\"ramme\"></td>
</tr>
<tr>
<td>Emne</td>
<td><input type=\"text\" name=\"emne\" class=\"ramme\"></td>
</tr>
<tr>
<td>Tekst</td>
<td><textarea name=\"tekst\" class=\"ramme\"></textarea></td>
</tr>
<tr>
<td></td>
<td><input type=\"submit\" value=\"send\" class=\"ramme\"></td>
</tr>
</form>
</table>
<%
End If
%>
<%
If Request.QueryString(\"show\") = \"admin\" Then
SQL = \"SELECT * FROM tagwall order by dato\"
Set rs = Conn.Execute(SQL)
While NOT rs.EOF
Response.Write(\"<div class=\'font\'>\" & rs(\"id\") & \" <a href=\'tagwall.asp?show=admin&show=delete&id=\" & rs(\"id\") & \"\'>\" & rs(\"emne\") & \"</a></div>\")
rs.MoveNext
Wend
End If
If Request.QueryString(\"show\") = \"delete\" Then
strSQL = \"DELETE * FROM tagwall WHERE id = \'\" & rs(\"id\") & \"\'\"
Conn.Execute (SQL)
End if
%>
</TD></TR></TBODY></TABLE></TD></TR><TR></TABLE></DIV><BR></DIV>
<DIV id=scrollbutton1
style=\"HEIGHT: 14px; LEFT: 565px; POSITION: absolute; TOP: 50px; WIDTH: 14px; Z-INDEX: 22\"><A
href=\"
http://www.friserverplads.dk/danieljensen/tagwall.html#\" onmouseout=noScroll() onmouseover=scroll(5)><FONT
face=\"Arial, Helvetica, sans-serif\" size=2><IMG border=0 height=12
src=\"up.jpg\" width=12></FONT></A></DIV>
<DIV id=scrollbutton2
style=\"HEIGHT: 14px; LEFT: 565px; POSITION: absolute; TOP: 370px; WIDTH: 14px; Z-INDEX: 21\"><A
href=\"
http://www.friserverplads.dk/danieljensen/tagwall.html#\" onmouseout=noScroll() onmouseover=scroll(-5)><FONT
face=\"Arial, Helvetica, sans-serif\" size=2><IMG border=0 height=12
src=\"down.jpg\" width=12></FONT></A></DIV></TABLE></BODY></HTML>
Slettet bruger
Slettet bruger
Opret
Preview
