ang. gæstebog
her kommer htlm koden som der er problemet (tror jeg)<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.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("Besked") = Request.form("Besked")
rs("Dato") = date()
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
%></p>
<html>
<head>
<META NAME="Generator" CONTENT="Stone's WebWriter 3">
<meta name="robots" content="NOINDEX">
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<META HTTP-EQUIV="Refresh" CONTENT="0;URL=default.asp">
<!-- Minus AutoDato -->
<title>Gæstebog</title>
<style type="text/css">
.css
{
font-family:verdana;
font-size:8pt;
background-color:#ffffff;
border-bottom:dotted 1px;
border-color:#000000;
border-left:dotted
1px;
border-color:#000000;
border-right:dotted 1px;
border-color:#000000;
border-top:dotted 1px;
border-color:#000000;
}
<!--
A:link {
font-weight: normal;
color: black;
text-decoration: underline;
}
A:visited {
font-weight: normal;
color: black;
text-decoration: underline;
}
A:active {
color: black;
text-decoration: underline;
}
A:hover {
font-weight: normal;
color: #808080;
text-decoration: overline;
}
-->
</style>
</head>
<body bgcolor="#FFFFFF" topmargin="10" leftmargin="0"
rightmargin="0">
<center><FONT FACE="Arial" SIZE="+2">Tak for dit indlæg :-)</FONT></center>
</body>
</html>
dette er de side som jeg har
- default.asp = Forsiden hvor dem der har skrevet i gæstebogen vil fremgå.
- send.asp = Den fil der tilføjer beskeden til databasen.
- tilfoej.asp = Den fil hvor brugeren udfylder det brugeren vil have til at stå i gæstebogen.
- database.mdb = Databasen.
