Jo her kommer koden til formularen.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd"><HTML>
<HEAD>
<TITLE>Indlæg i STUDIEBAGERIETS gæstebog.</TITLE>
<META NAME="Description" CONTENT="">
<META NAME="Generator" CONTENT="Microsoft FrontPage 5.0">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
<STYLE TYPE="text/css">
<!--
BODY {
font-family: Arial; font-size: 9pt; font-style: normal; bgcolor:lightgrey;
}
Table {
font-family: Arial; font-size: 9pt; font-style: normal;
}
Td {
font-family: Arial; font-size: 9pt; font-style: normal;
}
Tr {
font-family: Arial; font-size: 9pt; font-style: normal;
}
SELECT {
font-family: Arial; font-size: 10pt; font-style: normal;
}
INPUT {
font-family: Arial; font-size: 10pt; font-style: normal;
}
INPUT.submit {
font-family: Arial; font-size: 10pt; font-style: normal; TEXT-DECORATION: none;
}
INPUT.reset {
font-family: Arial; font-size: 10pt; font-style: normal; TEXT-DECORATION: none;
}
TEXTAREA {
font-family: Arial; font-size: 10pt; font-style: normal;
}
-->
</STYLE>
<!-- Følgende script tjekker om alle felterne i form-mailen er udfyldt. -->
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
function validate(form1) {
//Navn-feltet
if (form1.Navn.value == "")
{alert("Husk at angive dit navn!");
document.form1.Navn.focus();
return false;
}
else {
//e-mail-feltet
if (document.form1.email.value.indexOf("@")==-1 || document.form1.email.value.indexOf(".")==-1)
{alert("Du har ikke udfyldt e-mail feltet korrekt");
document.form1.email.focus();
return false;
}
}
return true;
}
//Følgende sørger for cursoren står i første felt (Navn)
function start() {
document.form1.Navn.focus();
return false;
}
</SCRIPT>
</HEAD>
<BODY TEXT="#000000" LINK="#FF3399" VLINK="#3366FF" ALINK="#FF0000" SCROLL=AUTO LEFTMARGIN=0 MARGINWIDTH=0 TOPMARGIN=0 MARGINHEIGHT=0 ONLOAD="return start()">
<TABLE WIDTH=400 HEIGHT=450 BORDER=0 ALIGN="CENTER" CELLPADDING=0 CELLSPACING=0 RULES="NONE" FRAME="VOID">
<TR>
<TD WIDTH=100% HEIGHT=15 ALIGN="CENTER" VALIGN="TOP">
</TD>
</TR>
<TR>
<TD WIDTH=100% HEIGHT=15 ALIGN="CENTER" VALIGN="TOP">
<h1>Gæstebog.</h1><p align="left"><p align="center">Du er velkommen til at lave et indlæg i gæstebogen.</p>
</TD>
</TR>
<TR>
<TD ALIGN="CENTER" VALIGN="TOP">
<FORM NAME="form1" ACTION="gesteboggem.asp" METHOD=POST ONSUBMIT="return validate(this)">
<TABLE WIDTH=650 HEIGHT=314 BORDER=0 ALIGN="CENTER" CELLPADDING=0 CELLSPACING=0>
<tr>
<td width=91 height="21"> </td>
<td width=559 height="21" > </td>
<tr><td width="91" height="21"> </td><td width="559" height="21"> </td></tr>
<tr><td colspan="2" width="650" height="21"> </td></tr>
<TR>
<TD WIDTH=91 ALIGN="LEFT" VALIGN="BOTTOM" height="31"><b>Skriv dit Navn</b></TD>
<TD WIDTH=559 ALIGN="RIGHT" VALIGN="BOTTOM" height="31">
<p align="left"><b>Skriv din e-mail</b></TD>
</TR>
<TR>
<TD WIDTH=91 ALIGN="LEFT" VALIGN="BOTTOM" height="29"><INPUT TYPE="text" NAME="Navn" SIZE=25 MAXLENGTH=100></TD>
<TD WIDTH=559 ALIGN="RIGHT" VALIGN="BOTTOM" height="29">
<p align="left"><INPUT TYPE="text" NAME="email" SIZE=25 MAXLENGTH=100></TD>
</TR>
<TR>
<TD WIDTH=91 ALIGN="LEFT" VALIGN="BOTTOM" height="20"> </TD>
<TD WIDTH=559 ALIGN="RIGHT" VALIGN="BOTTOM" height="20">
</TD>
</TR>
<TR>
<TD WIDTH=650 ALIGN="LEFT" VALIGN="top" height="115" colspan="2">Bemærkninger:<p align="left"><textarea rows="5" name="Indleg" cols="88"></textarea></TD>
</TR>
<TR>
<TD VALIGN="BOTTOM" COLSPAN=2 width="650" height="56"><BR>
<p align="left">
<INPUT TYPE="submit" NAME="submit" VALUE=" Indsend dit indlæg">
<INPUT TYPE="reset" NAME="reset" VALUE=" Nulstil " name="Reset" onclick="java script:document.form1.Navn.focus();">
</TD>
</TR>
</TABLE>
</FORM>
</TD>
</TR>
<tr>
<td colspan="3">
<tr>
<td colspan="3">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/gestebog.mdb")
strSQL= "SELECT * FROM tblgestebog Order by IndlegId Desc"
Set rs = Conn.Execute(strSQL)
%>
<table border="0" cellspacing="0" width="100%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0">
<tr>
<td width="100%" colspan="3">
</td>
</tr>
<tr>
<td width="100%" colspan="3">
<p align="center"><font face="Tahoma"><b>Indlæg i gæstebogen.</b></font></td>
</tr>
<tr>
<td width="100%" colspan="3"> </td>
</tr>
<tr>
<td width="40%"><b>Navn</b></td>
<td width="30%"><b>Email</b></td>
<td width="30%"><b>Registreret </b></td>
</tr>
<%
DO WHILE NOT rs.EOF
Navn = rs("Navn")
email = rs("email")
Indleg = rs("Indleg")
Dato = rs("Dato")
Tid = rs("Tid")
%>
<tr>
<td width="40%"><%=Navn%></td>
<td width="30%"><%=email%></td>
<td width="30%"><%=Dato%> kl. <%=Tid%></td>
</tr>
<tr>
<td width="30%" colspan="3"><p align="left" ><b>Skriver</b></td>
</tr>
<tr>
<td width="30%" colspan="3"><p align="left"><%=Indleg%></td>
</tr>
<tr>
<td width="100%" align="center" colspan="3">
<hr>
</td>
</tr>
<%
rs.MoveNext
LOOP
RS.Close
Response.Write ""
Conn.Close
Set Conn=Nothing
%>
</table>
</td>
</tr>
</TABLE>
</BODY>
</HTML>
Og her er insert koden.
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Ny side 1</title>
</head>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/gestebog.mdb")
strSQL= "Insert Into tblgestebog (Navn, email, Indleg) values('" & Request.Form("Navn") & "', '" & Request.Form("email") & "', '" & Request.Form("Indleg") & "')"
Set rs = Conn.Execute(strSQL)
Conn.Close
Set Conn=Nothing
%>
<p>Tak for dit indlæg.</p>
</body>
</html>
