<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
strMode = Request.QueryString(\"mode\")
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"guestbook.mdb\") & \";UID=admin;PWD=;\"
If Request.Form(\"Gem\") <> \"\" Then
strError = \"\"
strNavn = Trim(Request.Form(\"Navn\"))
strEmail = Trim(Request.Form(\"Email\"))
strKommentar = Trim(Request.Form(\"Kommentar\"))
If Len(strNavn) = 0 Then
strError = \"<li>Du skal skrive dit navn!</li>\"
ElseIf validateEmail(strEmail) = False Then
strError = \"<li>Du skal skrive en gyldig e-mail adresse!</li>\"
ElseIf Len(strKommentar) = 0 Then
strError = \"<li>Du skal skrive en kommentar!</li>\"
End If
If Len(strError) = 0 Then
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM Guestbook WHERE (ID = 0)\"
rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
If (rs.BOF Or rs.EOF) Then
rs.AddNew
rs(\"Navn\") = Server.HTMLEncode(strNavn)
rs(\"Email\") = Server.HTMLEncode(strEmail)
rs(\"Kommentar\") = Server.HTMLEncode(strKommentar)
rs(\"Dato\") = Now()
rs.Update
End If
rs.Close
Set rs = Nothing
Else
strError = \"<p><ul><font color=#FF0000>\" & strError & \"</font></ul></p>\"
strMode = \"add\"
End If
End If
%>
<html>
<head>
<title>The home of Team Matrix</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<script language=\"JavaScript\">
<!--
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf(\"#\")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.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);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
function MM_callJS(jsStr) { //v2.0
return eval(jsStr)
}
//-->
</script>
</head>
<body bgcolor=\"756F6F\" text=\"#000000\" onLoad=\"MM_preloadImages(\'../Knapper/messageboard2.gif\',\'../Knapper/nyheder2.gif\',\'../Knapper/medlemmer2.gif\',\'../Knapper/profil2.gif\',\'../Knapper/links2.gif\',\'../Knapper/multimedie2.gif\',\'../Knapper/tovby2.gif\',\'../Knapper/admin2.gif\')\" link=\"#000000\" vlink=\"#000000\" alink=\"#000000\">
<div align=\"center\">
<table width=\"696\" border=\"1\" cellspacing=\"0\" cellpadding=\"0\" height=\"457\" bordercolor=\"5C5A5A\">
<tr>
<td height=\"716\" valign=\"top\" align=\"right\">
<table width=\"700\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td><img src=\"../Billeder/TeamMatrixHeader%20copy.gif\" width=\"700\" height=\"100\"></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<table width=\"700\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"87\"><a href=\"../Index.asp\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'nyheder\',\'\',\'../Knapper/nyheder2.gif\',1)\"><img name=\"nyheder\" border=\"0\" src=\"../Knapper/nyheder1.gif\" width=\"87\" height=\"30\"></a></td>
<td width=\"87\"><a href=\"Medlemmer.html\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'Image4\',\'\',\'../Knapper/medlemmer2.gif\',1)\"><img name=\"Image4\" border=\"0\" src=\"../Knapper/medlemmer1.gif\" width=\"87\" height=\"30\"></a></td>
<td width=\"87\"><a href=\"profil.html\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'Image5\',\'\',\'../Knapper/profil2.gif\',1)\"><img name=\"Image5\" border=\"0\" src=\"../Knapper/profil1.gif\" width=\"87\" height=\"30\"></a></td>
<td width=\"87\"><a href=\"multimedie.html\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'multimedie\',\'\',\'../Knapper/multimedie2.gif\',1)\"><img name=\"multimedie\" border=\"0\" src=\"../Knapper/multimedie1.gif\" width=\"87\" height=\"30\"></a></td>
<td width=\"87\"><a href=\"guestbook.asp\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'messageboard\',\'\',\'../Knapper/messageboard2.gif\',1)\"><img name=\"messageboard\" border=\"0\" src=\"../Knapper/messageboard1.gif\" width=\"87\" height=\"30\"></a></td>
<td width=\"87\"><a href=\"Links.html\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'Image6\',\'\',\'../Knapper/links2.gif\',1)\"><img name=\"Image6\" border=\"0\" src=\"../Knapper/links1.gif\" width=\"87\" height=\"30\"></a></td>
<td width=\"80\"><a href=\"Tovby%20fotoalbum/index.htm\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'tovby\',\'\',\'../Knapper/tovby2.gif\',1)\"><img name=\"tovby\" border=\"0\" src=\"../Knapper/tovby1.gif\" width=\"87\" height=\"30\"></a></td>
<td width=\"98\"><a href=\"#\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'Admin\',\'\',\'../Knapper/admin2.gif\',1)\"><img name=\"Admin\" border=\"0\" src=\"../Knapper/admin1.gif\" width=\"87\" height=\"30\"></a></td>
</tr>
</table>
<div align=\"center\">
<p><br>
<b><font face=\"Arial, Helvetica, sans-serif\" size=\"5\">messageboard
</font></b></p>
<p><font face=\"Arial, Helvetica, sans-serif\">Dette er Team Matrix\'s
messageboard. Her kan du skrive en kommentar om siden, en besked til
holdet eller blot en hilsen.</font></p>
<table width=\"85%\" border=\"1\" bordercolor=\"5C5A5A\" cellspacing=\"0\">
<tr>
<td><%
Select Case strMode
Case \"add\"
%>
<form method=\"POST\" action=\"guestbook.asp\">
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"2\">
<tr>
<td valign=\"middle\" align=\"left\" colspan=\"2\"><font face=\"Arial, Helvetica, sans-serif\"><font face=\"verdana\" size=\"2\">
</font>
<div align=\"center\"><font face=\"Arial, Helvetica, sans-serif\"><br>
Indtast venligst oplysningerne i følgende felter:<strong>
<%=strError%><br>
</font></div>
</td>
</tr>
<tr>
<td valign=\"middle\" align=\"left\"><font face=\"Arial, Helvetica, sans-serif\"><div align=\"right\">
</font>
<p><font face=\"Arial, Helvetica, sans-serif\"><strong><font size=\"2\">Navn:</font></strong></font>
</td>
<td valign=\"middle\" align=\"left\">
<input type=\"text\" name=\"Navn\" size=\"40\" value=\"<%=strNavn%>\">
</td>
</tr>
<tr>
<td valign=\"middle\" align=\"left\"><font face=\"Arial, Helvetica, sans-serif\"><div align=\"right\">
</font>
<p><font face=\"Arial, Helvetica, sans-serif\"><strong><font size=\"2\">E-mail:</font></strong></font>
</td>
<td valign=\"middle\" align=\"left\">
<input type=\"text\" name=\"Email\" size=\"40\" value=\"<%=strEmail%>\">
</td>
</tr>
<tr>
<td valign=\"top\" align=\"left\"><font face=\"Arial, Helvetica, sans-serif\"><div align=\"right\">
</font>
<p><font face=\"Arial, Helvetica, sans-serif\"><strong><font size=\"2\">Kommentar:</font></strong></font>
</td>
<td valign=\"middle\" align=\"left\">
<textarea rows=\"3\" name=\"Kommentar\" cols=\"40\"><%=strKommentar%></textarea>
</td>
</tr>
<tr>
<td valign=\"middle\" align=\"left\" colspan=\"2\">
<div align=\"center\"><font face=\"Arial, Helvetica, sans-serif\"><br>
<input type=\"submit\" value=\"Skriv indlæget!\" name=\"Gem\">
<input type=\"button\" value=\"Fortryd\" name=\"Annuller\" onClick=\"java script:location.href=\'guestbook.asp\'\">
</font></div>
</td>
</tr>
</table>
</form>
<%
Case Else
strAddLine = \"<p><img src=../billeder/add.gif width=16 height=16> <a href=guestbook.asp?mode=add><strong><font face=verdana size=2>Skriv et indlæg på vores messageboard!</font></strong></a></p>\"
Response.Write strAddLine
strSQL = \"SELECT * FROM Guestbook ORDER BY Dato DESC;\"
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open tempConn
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write \"<table width=100% border=0 cellpadding=1 cellspacing=1>\"
Do While Not rs.EOF
dtmDato = rs(\"Dato\")
dtmDato = FormatDateTime(dtmDato,vbLongDate) & \" kl. \" & FormatDateTime(dtmDato,vbLongTime)
Response.Write \"<tr bgcolor=#006666><td width=\"\"100%\"\"><font face=arial size=2>\" & dtmDato & \"</td></tr>\"
If Len(rs(\"Email\")) > 0 Then
Response.Write \"<tr><td><font face=arial size=2><strong><a href=mailto:\" & rs(\"Email\") & \">\" & rs(\"Navn\") & \"</a> skriver:</strong></td></tr>\"
Else
Response.Write \"<tr><td><font face=arial size=2><strong>\" & rs(\"Navn\") & \" skriver:</strong></td></tr>\"
End If
Response.Write \"<tr><td><font face=arial size=2>\" & rs(\"Kommentar\") & \"<br> </td></tr>\"
rs.MoveNext
Loop
Response.Write \"</table>\"
Else
Response.Write \"<p><font face=arial size=2>Der er endnu ikke nogle der har skrevet i gæstebogen</font></p>\"
End If
myConn.Close
Set myConn = Nothing
Response.Write strAddLine
End Select
%></td>
</tr>
</table>
</div>
<p>
<input type=\"button\" name=\"Button\" value=\"Til toppen\" onClick=\"MM_callJS(\'window.scroll(0,0)\')\">
</p>
</td>
</tr>
</table>
<table width=\"704\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" bordercolor=\"5C5A5A\" bgcolor=\"5C5A5A\">
<tr>
<td align=\"center\" height=\"19\"><font face=\"Arial, Helvetica, sans-serif\">
<font color=\"#FFFFFF\" size=\"1\"><b><font color=\"756F6F\" size=\"2\">Copyright©
2001 Team Matrix</font></b></font></font></td>
</tr>
</table>
</div>
</body>
</html>
<script language=\"VBScript\" runat=\"Server\">
Function validateEmail(strEmail)
validateEmail = True
If Len(strEmail) < 6 Then
validateEmail = False
End If
If InStr(1, strEmail, \"@\", 1) < 2 Then
validateEmail = False
End If
If InStr(1, strEmail, \".\", 1) = 0 Then
validateEmail = False
End If
pos = InStr(1, strEmail, \"@\", 1)
If pos < 2 Then
validateEmail = False
Else
pos = InStr(pos+1, strEmail, \"@\")
If pos > 0 Then
validateEmail = False
End If
End If
End Function
</script>
Ny bruger
Nybegynder
Opret
Preview
