Fejl i database behandling
HejJeg er ved at lave et simpelt script som skal hente nogle oplysninger fra en database. Scriptet kan godt hente informationen men det programmering jeg har lavet til "skrive" delen virker ik så skide godt :)
Når jeg prøver på at tilføje til databasen melder den denne fejl:
ADODB.Recordset.1 error '80004005'
Recordset is read-only
/kalender/godkendt.asp, line 41
Mine sider ser sådan her ud:
<--------tilføj.asp--------->
<body>
<form method="post" action="godkendt.asp" name="form">
<p><b>Dato:</b></p>
<input type="text" name="dato" value="" maxlength="50" class="input" size="65">
<p><b>Beskrivelse:</b></p><textarea name="tekst" cols="72" rows="11"></textarea><br>
<input name="submit" type="submit" value="Tilføj"></td>
</form>
</body>
<-------godkendt.asp------>
<body>
<%
dato = Request("dato")
tekst = Request("tekst")
Set my_conn = Server.CreateObject("ADODB.Connection")
my_conn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=miniklub_mv_dk; UID=BRUGERNAVN; PWD=PASSWORD;"
strSQL = "SELECT * FROM kalender"
' Execute SQL statement
Set rs = my_conn.Execute(strSQL)
%>
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
if dato = "" then
Response.Write("Du sakl skrive en dato!")
end if
if tekst = "" then
Response.Write("Du skal skrive en tekst!")
end if
if dato <> "" AND tekst <> "" then
rs.AddNew
rs("dato") = Request.form("dato")
rs("tekst") = Request.form("tekst")
rs.update
Response.Redirect("kalender.asp")
end if
end if %>
<% rs.close
Conn.Close
set Conn = nothing
%>
</body>
Kan i se hvad fejlen er i dette script?
Håber i kan hjælpe
Mvh Morten
