<% response.buffer = True %>
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">
<html>
<head>
<title>Untitled</title>
<style>
a.mail {
font: 12px Verdana, Geneva, Arial, Helvetica, sans-serif;
color : black;
text-decoration : none;
}
TD {
font: 12px Verdana, Geneva, Arial, Helvetica, sans-serif;
color : black;
text-decoration : none;
}
</style>
</head>
<body leftmargin=40>
<%
if request(\"submit\")=\"SEND\" then
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Conn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db/gb.mdb\") & \";UID=admin;PWD=;\"
Set rs2 = Server.CreateObject(\"ADODB.RecordSet\")
Query = \"SELECT * FROM gb WHERE (ID = 0)\"
rs2.Open Query, Conn, adOpenKeyset, adLockOptimistic
nick = request(\"Nick\")
if nick = \"\" then nick = \"ANONYM\"
mail = request(\"Email\")
if mail = \"\" then mail = \"Ingen email\"
emne = request(\"Emne\")
if emne = \"\" then emne = \"UNTITLED\"
mes = request(\"Besked\")
if mes = \"\" then mes = \"Ingen besked...\"
rs2.AddNew
rs2(\"Nick\") = nick
rs2(\"Email\") = mail
rs2(\"Dato\") = Date
rs2(\"Emne\") = emne
rs2(\"Besked\") = mes
rs2.Update
rs2.Close
Set rs2 = Nothing
response.redirect(\"gb.asp\")
end if
response.write (\"<font face=\'verdana\' size=1>Nederst på siden kan du skrive dit eget indlæg til gæstebogen. *Ss*</font><br><br>\")
Conn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db/gb.mdb\") & \";UID=admin;PWD=;\"
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open Conn
Set rs = myConn.Execute(\"SELECT * FROM gb ORDER BY Id DESC\")
antal = 0
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
antal = antal + 1
if antal < 31 then
response.write (\"<table cellpadding=3 border=0 width=400 cellspacing=0><tr><td bgcolor=gray height=18><font size=1 face=verdana color=white><center><b>\" & rs(\"emne\") & \"</b></center></font></td></tr><tr><td bgcolor=lightblue style=\'border-style:solid;border-color:black;border-width:1;\'><font face=verdana size=1 color=black>Skrevet af: <a class=\'mail\' href=mailto:\" & rs(\"Email\") & \">\" & rs(\"Nick\") & \"</a><br><br>\" & rs(\"Besked\") & \"</font></td></tr><tr height=15><td bgcolor=white></td></tr></table>\")
end if
rs.MoveNext
Loop
end if
%>
<font face=\"verdana\" size=1>
<form action=\"gb.asp\" method=\"post\">
<table bgcolor=\"lightblue\" cellpadding=3 width=400 cellspacing=0 style=\'border-style:solid;border-color:black;border-width:1;\'>
<tr><td colspan=2><font size=4><center><b>SKRIV I GÆSTEBOGEN</b></center></font></td></tr>
<tr><td align=right>Nickname: </td><td><input type=\"text\" name=\"Nick\" size=\"20\"></td></tr>
<tr><td align=right>Email: </td><td><input type=\"text\" name=\"Email\" size=\"20\"></td></tr>
<tr><td align=right>Emne: </td><td><input type=\"text\" name=\"Emne\" size=\"20\"></td></tr>
<tr><td align=right>Besked: </td><td><textarea name=\"Besked\" rows=4 cols=30></textarea></td></tr>
<tr><td align=right colspan=2><center><input type=\"submit\" name=\"submit\" value=\"SEND\"><input type=\"reset\" value=\"RESET\"></center></td></tr></table>
</form>
</font>
</body>
</html>
Den er ret simpel og indeholder kun een aspfil som både viser og skriver til tagwallen. Den kører på en accesdatabase, så sådan en skal du altså også have. Du skal nok vide en lille smule om ASP for at rette den til, ellers kan jeg sende dig min database...
/Andreas
/Andreas
Ny bruger
Nybegynder
Opret
Preview
