<% mode = request("mode") %>
<% if mode = "" then %>
<!-- #include file="setup.asp" -->
<html><body>
<form action="tilfoej_indlaeg.asp?mode=save_data " method="POST" class="css" name="">
<head>
<title>Skriv i <%=Username%>´s gæstebog</title>
<link rel="stylesheet" type="text/css" href="style/style2.css">
</head>
<br><br><br>
<p align="center">
<font face="<% =Skrifttype %>" font size="4">Skriv i <%=Username%>´s gæstebog<br>
</font><br><br><br>
<div align="center"><center><table border="0" cellpadding="2"
cellspacing="0" width="80%">
<tr>
<td align="left" width="40%" valign="top"><font face="<% =Skrifttype %>" font size="<% =Skriftsize %>">Navn:</font></td>
<td width="60%"><font face="<% =Skrifttype %>" size="<% =Skriftsize %>"><INPUT TYPE="text" NAME="Navn" class="css"></font></td>
</tr>
<tr>
<td align="left" width="40%" valign="top"><font face="<% =Skrifttype %>" font size="<% =Skriftsize %>">E-mail:</font></td>
<td width="60%"><font face="<% =Skrifttype %>" size="<% =Skriftsize %>"><INPUT TYPE="text" NAME="Email" class="css"></font></td>
</tr>
<tr>
<td align="left" width="20%" valign="top"><font face="<% =Skrifttype %>" font size="<% =Skriftsize %>">Hjemmeside:</font></td>
<td width="80%"><font face="<% =Skrifttype %>" size="<% =Skriftsize %>"><INPUT TYPE="text" NAME="Hjemmeside" class="css" size="20" value="
http://"></font></td> </tr>
<tr>
<td align="left" width="20%" valign="top"><font face="<% =Skrifttype %>" font size="<% =Skriftsize %>">ICQ
nummer:</font></td>
<td width="80%"><font face="<% =Skrifttype %>" size="<% =Skriftsize %>"><INPUT TYPE="text" NAME="icq" class="css" size="20" value="ingen"></font></td>
</tr>
<tr>
<td align="Left" valign="top" width="20%"><font face="<% =Skrifttype %>" font size="<% =Skriftsize %>">Besked:</font></td>
<td valign="top" width="80%">
<font face="<% =Skrifttype %>" font size="<% =Skriftsize %>">
<textarea name="Besked" rows="4"
cols="40" class="css"></textarea></font></td>
</tr>
<tr>
<td width="20%"></td>
<td width="80%"><font face="<% =Skrifttype %>" font size="<% =Skriftsize %>"><input type="submit"
name="submit" value="Tilføj" class="css"> <INPUT TYPE="reset" NAME="Slet" class="css"></font></td>
</tr>
</table>
</center></div>
<p align="center">
</form>
<% end if %>
<% if mode = "save_data" then %>
<!-- #include file="setup.asp" -->
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("cgi-bin/gaestebog.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From gaestebogen"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("Navn") = Request.form("Navn")
rs("Email") = Request.form("Email")
rs("Hjemmeside") = Request.form("Hjemmeside")
rs("icq") = Request.form("icq")
rs("Besked") = Request.form("Besked")
rs("Dato") = Now()
rs("IP") = request.servervariables("remote_Addr")
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
Response.Redirect("default.asp")
%>
<% end if %>
er det det her du mener