Okay har et lille problem... der er noget galt med min tagwall... hvorfor kopirer den alle formularfelterne med sig når man sender? Hvis i vil kikke på koden og måske finder fejlen for mig ville det være dejligt. :D
Se evt eksempel her... prøv evt at skriv en kommentar...
http://www.xn--staldhj-v1a.dk/gb/2 filer..
Default.asp
-----------------------------------------------------------------------------
<html>
<head>
<title>Staldhøj Plantage I/S</title>
<link rel="stylesheet" href="css/style2.css" type="text/css">
</head>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("guestbook.mdb")
SQLstmt = "SELECT * FROM guestbook ORDER BY ID desc;"
'
'response.write SQLstmt
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)
DO WHILE NOT rs.EOF
ID = rs("ID")
overskrift = rs("overskrift")
besked = rs("besked")
navn = rs("navn")
Dato = rs("Dato")
email = rs("email")
%>
<!-- form -->
<table border="1">
<tr><form method="POST" class="css" action="oprat_besked.asp">
<td>Dit navn</td>
<td><input type="text" name="Navn" size="26"></td>
</tr>
<tr>
<td>E-Mail</td>
<td><input type="text" name="link" size="26"></td>
</tr>
<tr>
<td valign="top">Besked</td>
<td><textarea name="Besked" cols="20" rows="6"></textarea></td>
</tr>
<tr>
<td width="20%" valign="top" align="left"></td>
<td height="2%">
<p><input type="submit" value="Send"></p>
</td>
</tr>
</table>
</form>
<!-- /form -->
<!-- tagwall -->
<table border="1" width="600">
<tr>
<td align="left"><b><%=navn%></b></font></td>
</tr>
<tr>
<td align="right"><a href="mailto:<%=email%>"><%=email%></td>
</tr>
<tr>
<td>
<%=besked%><br><br>
<hr>
<%
rs.MoveNext
LOOP
RS.Close
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>
</td>
</tr>
</table>
<p> </p>
<!-- /tagwall -->
</body>
</html>
oprat_besked.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("guestbook.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From guestbook"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("overskrift") = Request.form("overskrift")
rs("Besked") = Request.form("Besked")
rs("Navn") = Request.form("Navn")
rs("Dato") = Now
rs("email") = Request.form("link")
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
response.redirect ("default.asp")
%>
<html>
<head>
<META HTTP-EQUIV="Refresh" CONTENT="5;URL=default.asp">
<title>Staldhøj Plantage I/S</title>
<link rel="stylesheet" href="css/style2.css" type="text/css">
</head>
<body>
</body>
</html>
