tagwall_write således:
<%
Set Rs = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"tagwall.mdb\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath%>
<%
DataConn.Open DSN
Set tagwall = Server.CreateObject(\"ADODB.RecordSet\")
tagwall.open \"Select * From [t_tagwall] Order by id\", DataConn, 1, 3
tagwall.addnew
tagwall.Fields(\"nick\")= request.form(\"nick\")
tagwall.fields(\"ICQ\")= request.form(\"ICQ\")
tagwall.Fields(\"besked\") = request.form(\"besked\")
tagwall.Fields(\"ip\") = Request.ServerVariables(\"REMOTE_ADDR\")
tagwall.Fields(\"dato\") = date()
tagwall.Fields(\"klokkeslet\") = time()
tagwall.update
tagwall.close
set tagwall = nothing
DataConn.Close
Response.Redirect \"tagwall.asp\"
%>
tagwall.asp således:
<%
Set Rs = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"tagwall.mdb\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
%>
<html>
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>Tagwall</title>
<style type=\"text/css\">
<!--
A { text-decoration: none; color: blue; }
a:hover { text-decoration : underline; color:silver; }
A:visited { color:333333; }
-->
</STYLE>
</head>
<body bgcolor=\"#000000\" TEXT=\"#FFFFFF\">
<script language=\"vbscript\">
<!--
Sub window_onLoad
\' sætter focus i nick skrive feltet
form_tagwall.nick.focus
end Sub
-->
</script>
<div align=\"center\">
<tr>
<td width=\"50%\" height=\"67\" valign=\"top\">
<center><img src=\"logo(effect1)1.jpg\" width=\"60%\" heigth=\"40\">
<h1 align=\"center\">Tagwall</h1>
<form method=\"POST\" action=\"tagwall_write.asp\" name=\"form_tagwall\">
<p align=\"center\"><i>Nick:</i><input type=\"text\" name=\"nick\" size=\"13\" tabindex=\"1\"> <i>ICQ
#:</i><input type=\"text\" name=\"ICQ\" size=\"13\" tabindex=\"2\"><br>
<i>Besked:</i><input
type=\"text\" name=\"Besked\" size=\"54\" tabindex=\"3\"><input type=\"button\" value=\"Tilføj tag\" name=\"tag\" tabindex=\"4\"></p>
</form>
<script langueage=\"vbscript\">
sub tag_OnClick()
Dim newStreng, tegnNR
\'undersøger om der overholdes de forskelige krav ellers popUp med en alert
If Len(form_tagwall.nick.value) = 0 then
Alert \"Du skal intaste dit Nick\"
form_tagwall.nick.focus
ElseIf Len(form_tagwall.besked.value) = 0 then
Alert \"Du skal skrive en besked\"
form_tagwall.besked.focus
ElseIf Len(form_tagwall.nick.value) > 20 then
Alert \"Nick må maksimalt fylde 20 tegn\"
form_tagwall.nick.focus
ElseIf Len (form_tagwall.ICQ.value) > 20 then
Alert \"ICQ# må maksimalt være 20 tegn\"
form_tagwall.ICQ.focus
ElseIf Len (form_tagwall.besked.value) > 255 then
Alert \"Beskeden må maksimalt være på 255 tegn\"
form_tagwall.besked.focus
Else
\'hvis alt er i orden
Call form_tagwall.submit()
End if
End Sub
</script>
<p align=\"center\"> </td>
</tr>
<tr>
<td width=\"100%\" height=\"100%\" valign=\"top\" colspan=\"2\">
<DIV ALIGN=\"CENTER\">
<TABLE BORDER=\"0\" WIDTH=\"529\" cellspacing=\"0\" cellpadding=\"0\">
<div align=\"bottom\">
<img src=\"bottom.jpg\">
<% \'finder tag i databasen
If \"\" = Request.QueryString(\"Mode\") then
Sql = \"Select * from T_tagwall order by dato DESC\"
Set Record = Rs.Execute(Sql)
Do While Not Record.EOF
response.write \"<TR><TD BGCOLOR=\'#000000\' HEIGHT=\'20\' WHIDT=\'40%\' border=\'0\'><font color=\'#FFFFFF\'><i>Nick: </i>\" & Record(\"nick\") & \"</font></TD></center>\"
response.write \"<TD BGCOLOR=\'#000000\' HEIGHT=\'20\' WHIDT=\'15%\' border=\'0\'><i>ICQ#: </i>\" & Record(\"ICQ\") & \"</TD>\"
response.write \"<TD BGCOLOR=\'#000000\' WHIDT=\'45%\' border=\'0\'><p align=\'right\'> <I>Dato: </I>\" & Record(\"Dato\") & \" <i>Kl: </i>\" & Record(\"klokkeslet\") & \"</p></TD></TR>\"
response.write \"<TD WHIDT=\'100\' VALIGN=\'top\' COLSPAN=\'3\' width=\'527\' border\'0\'>\" & Record(\"besked\") & \"</TD>\"
Record.MoveNext
Loop
Record.Close
RS.Close
end if
%>
</BODY>
</html>
