AddaText..

i default.asp --->

<font face="verdana" size="1">
<b>Besökarnas text</b><br><br>
</font>

<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("databas.mdb")

SQL = "SELECT * FROM tabell ORDER by id desc"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
%>

<table border="0" width="200"><tr><td><font face="verdana" size="1">
<i><% = RecSet("text") %></i><br><br>

<img src="skrivet.gif"> <a href="mailto:<% = RecSet("epost") %>"><% = RecSet("namn") %></a>

<%
RecSet.Close
Conn.Close
%>

</font>
</td></tr></table>

<p>

<font face="verdana" size="1">
<b>Skriv ett par rader!</b><br><br>

<form name="form1" method="post" action="add.asp?vad=add">
<table width="210" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="60"><font face="verdana" size="1">Namn:</font></td>
    <td width="100"><input name="namn" size="15"></td>
  </tr>
  <tr>
    <td width="60"><font face="verdana" size="1">Epost:</font></td>
    <td width="100"><input name="epost" size="15"></td>
  </tr>
  <tr>
    <td width="60"><font face="verdana" size="1">Text:</font></td>
    <td width="100"><input name="text" size="15" maxlength="75"></td>
  </tr>
  <tr>
    <td colspan="2"><br><input type="submit" value="Skicka"> <input type="reset" value="Rensa"></td>
  </tr>
</table>
</form>

</font>

i add.asp --->

<% Response.Buffer = True %>
<!-- #include file = "adovbs.inc" -->
<%
If NOT session("today") = "Sj47Yts45Wj" then
If request.querystring("vad") ="add" Then

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

SQL = "Select * From tabell" 
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

RecSet.AddNew

RecSet("namn") = Request.Form("namn")
RecSet("epost") = Request.Form("epost")
RecSet("text") = Request.Form("text")

RecSet.Update
	
RecSet.Close
Conn.Close
Set RecSet = nothing
Set Conn = nothing
session("today") = "Sj47Yts45Wj"
Response.Redirect "default.asp"

END IF
ELSE
Response.Write "Tyvärr, du har redan lagt till en länk idag!"
END IF
%>