hvis ikke den virker må du lige teste dette istedet
<%
'#################################################
'# #
'# Kalender System Version 1.5 #
'# Lavet af Rasmus Malberg (Zondo.dk) #
'#
Http://www.zondo.dk - zondo@zondo.dk #
'# ----------------------------------------- #
'# Scriptet er freeware, og må bruges gratis #
'# dog ikke til kommercielt brug uden #
'# betaling !!! #
'# ----------------------------------------- #
'# Surport kan fås via ICQ på nr. 9390713 #
'# #
'#################################################
%>
<%
' Ret disse informationer til noget der passer dig !!
Navn = "Kalenderen"
Brugernavn = "admin"
Kodeord = "kode"
' DA dette scripts er GRATIS ville det være
' fedt hvis du ikke pilede ved denne footer !! TAK
Footer = "<i><font face='Tahoma' size='1' color='#C0C0C0'>Kalender System Version 1.5 lavet af <a href='
http://www.zondo.dk' target='_blank'>Zondo.dk</a> 2001</font></i>"
' Ret IKKE herunder !!
%>
<% if Request.QueryString("submode")="slet" then %>
<%
strSQL = "DELETE * FROM Kalender WHERE ID=" & TRIM(Request.QueryString("id"))
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/database/kalender.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN
Set rs = Conn.Execute(strSQL)
Conn.Close
Set conn = nothing
Set strSQL = nothing
Response.Redirect("admin.asp?submode=list")
%>
<% elseif Request.QueryString("submode")="rettet" then %>
<% response.buffer = true %>
<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/database/kalender.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN
%>
<%
sql = "UPDATE Kalender SET Besked = '" & request.form("Besked") & "'"
sql = sql & ", Aflyst= '" & request.form("Aflyst") &"'"
sql = sql & "WHERE Id = " & request("ID")
Set rs = Conn.Execute (sql)
Conn.Close
%>
<% response.redirect ("admin.asp?submode=list")%>
<% end if %>
