Kan nogen fortælle mig hvad der er galt ?
Jeg har prøvet på alle muige måder, men den kommer hele tide og spørger om en opdaterebar forespørgelsel.<Script language=vbscript RUNAT=\"server\"></script>
<%
option explicit
const adopendynamic = 2
const adlockpessimistic = 2
const adcmdtext = 1
dim cn, cnstr, rs
set cn= server.createobject(\"ADODB.connection\")
cnstr= \"provider=microsoft.jet.OLEDB.4.0;\"
cnstr = cnstr & \"Data source=c:\\inetpub\\wwwroot\\database\\db1.mdb;\"
cn.connectionstring = cnstr
cn.Open
\'set rs= server.createobject(\"ADODB.recordset\")
dim sql
sql = \"UPDATE Tabel1 SET [Status] = \'Udlånt\' WHERE (id= \" & Request.Form (\"id\") & \")\"
rs.open sql, cn, adOpenDynamic, adlockpessimistic, adcmdtext
cn.Execute sql
\'Response.Write (sql)
%>
<%
Response.Write \"<h1>Hej \" & Request.Form(\"inp1\") & \"</h1>\"
Response.Write \"<h1>Hej \" & Request.Form(\"inp2\") & \"</h1>\"
Response.Write \"<h1>Hej \" & Request.Form(\"id\") & \"</h1>\"
%>
<html>
<head>
<title>BOOKING UDFØRT</title>
</head>
<body>
<br><br><hr><center><h1>BOOKNINGEN ER NU GENNEMFØRT</h1></center><hr><br><br><br>
<%
\'rs.close
\'set rs = nothing
cn.close
set cn=Nothing
%>
</body>
</html>
