ASP Gæstebog HJÆLP!!!
Jeg har engang lavet en ASP gæstebog! (et "kursus" på skolen)Nu er det bare at jeg ikke kan huske, om det skal insættes i et HTML eller ASP dokument.
Og der var vist nok også en fejl i den der "Provider"
Og så var der noget med at man skulle oprette en Gaestebog.mdb alså i Access. men det kan
Jeg heller ikke huske hvad der skulle stå inde i dokumentet??
Har seriøst hjælp!!
Hvis det er kan i også bare sende en ASP gæstebog til mig ;-) der virker :P
<div style="padding:4px;font-family:verdana;color:black;font-size:9pt;">
<%
'---- CursorTypeEnum ----
const adopenforwardonly = 0
const adopenkeyset = 1
const adopendynamic = 2
const adopenstatic = 3
'---- LockTypeEnum Values ----
const adlockreadonly = 1
const adlockpessimistic = 2
const adlockoptimistic = 3
const adlockbatchoptimistic = 4
response.buffer = true
con="provider=Microsoft.jet.oledb.4.0; data source="& server.mappath("gaestebog.mdb")
if request.querystring = "write" then
sql = "select * from gaestebog where (id=0)"
set rs = server.createobject ("adodb.recordset")
'rs.locktype = adlockoptimistic
'rs.cursortype = adopendynamic
rs.open sql, con,1,3
rs.addnew
rs("name") = trim(request.form("formname"))
rs("message") = trim(request.form("formmessage"))
rs("dato") = date()
rs.update
rs.close
set rs = nothing
response.redirect("gæstebog.asp")
end if
%>
<html>
<head>
<title> min asp-gæstebog</title>
</head>
<body>
<h1>Gæstebog </h1>
<strong> Tilføj en hilsen </strong><br>
<form action="?write" method="post">
Navn<br>
<input type="text" name="formname">
<br><br>
<strong>Hilsen<br></strong>
<textarea name="formmessage" cols="30" rows="5"></textarea>
<input type="submit" value="submit">
</form>
<hr>
<strong>Hilsener</strong>
<br><br>
<%
sql = "select * from gaestebog order by id desc"
set rs = server.createobject ("adodb.recordset")
rs.open sql, con
while not rs.eof
%>
<strong><%= rs("name") %></strong> (<%= rs("dato") %>)<br>
<%= rs("message") %>
<hr>
<%
rs.movenext
wend
rs.close
set rs = nothing
%>
</div>
