skrivebeskyttet

Hvordan kan jeg ophæve en skrivebeskyttet???

************

Siden kan ikke vises
Der er opstået et problem med den side, du forsøger at se, og siden kan ikke vises.

--------------------------------------------------------------------------------

Prøv følgende:

Klik på knappen Opdater, eller forsøg igen senere.

Åbn localhost hjemmesiden, og søg derefter efter hyperlinks til de ønskede oplysninger.
HTTP 500,100 - Intern fejl på serveren - ASP-fejl -
Internet Information Services

--------------------------------------------------------------------------------

Tekniske oplysninger (for supportteknikere)

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver] Databasen eller objektet er skrivebeskyttet og kan ikke opdateres.
/kalender/addnew.asp, line 75


Browsertype:
Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)

Side:
POST 72 bytes to /kalender/addnew.asp

POST Data:
mMonth=9&dDay=25&yYear=2001&memo=jhgjfg&action=add&append=TRUE&x=29&y=12

Klokkeslæt:
Tuesday, September 25, 2001, 2:11:38 PM


Yderligere oplysninger:
Microsoft Support



****************

kode


****************

<%
Response.buffer=true
%>

<HTML>
<HEAD>
<LINK href=\"calendar.css\" rel=\"stylesheet\" type=\"text/css\">
  <TITLE><%=now%></TITLE>
</HEAD>
<BODY>

<!--#INCLUDE File=\"config.asp\" -->
<!--#INCLUDE File=\"login.asp\" -->

<%
dDay = request.form(\"dDay\")
mMonth = request.form(\"mMonth\")
yYear = request.form(\"yYear\")
memo = request.form(\"memo\")
append = request.form(\"append\")

if (dDay=\"\") or (mMonth=\"\") or (yYear=\"\") or (memo=\"\") then
    CALL DisplayAddForm()
    Response.END
end if

yYear= int(yYear)
dDay = int(dday)
mMonty = int(mMonth)

Select Case mMonth
  case 4,6,9,11: 
      if dDay > 30 then
    response.write \"<BR><BR><Center><font size=-1>\"
    response.write \"There are only <b>30</b> days in the month of \" & MonthName(mMOnth) & \"<BR>\"
        response.write \"Click <font color=red>back</font> on your browser and try again\"
        response.write \"</font></Center>\"
    response.end
      end if
  case 2: 
      LeapYear = False
      if ((yYear Mod 4 = 0) And (yYear Mod 100 <> 0) Or (yYear Mod 400 = 0)) then  LeapYear=True
   
      DaysInFeb = 28
      if LeapYear then DaysInFeb = 29

      if dDay > DaysInFeb  then
    response.write \"<BR><BR><Center><font size=-1>\"
    response.write \"There are only <b>\" & DaysinFeb & \"</b> days in the month of \" & MonthName(mMOnth) & \"<BR>\"
        response.write \"Click <font color=red>back</font> on your browser and try again\"
        response.write \"</font></Center>\"
    response.end   
      end if
End Select

dDate = dateserial(yyear,mmonth,dday)

If dDate <> \"\" then
  Set rs = Server.CreateObject(\"ADODB.Recordset\")
  sSQL = \"Select * from CalendarInfo where Date=#\" & dDate & \"#\"
  rs.open sSQL, Conn, 3, 3
  IF rs.recordcount > 0 then
      if Ucase(APPEND) = \"TRUE\" then
        rs(\"memo\") = rs(\"memo\") & chr(13) & chr(13) & memo & \"\"
      else
        rs(\"memo\") = memo & \"\"
      end if
      rs(\"DateAdded\") = now
      rs.update
  Else
      rs.addnew
      rs(\"date\") = dDate
      rs(\"DateAdded\") = now
      rs(\"memo\") = memo & \"\"
      rs.update
  End if
  rs.close
  Set rs = nothing
  Response.Redirect  \"calendar.asp\"
End If

%>

</BODY>
</HTML>

<% Sub DisplayAddForm %>
<center>
  <form action=addnew.asp method=post>
    Måned:<Select Name=mMonth>
        <option><%=month(now)%></option>
    <% For i=1 to 12 %>
    <option><%=i%></option>
    <% Next %>
    </Select>


    Dag:<Select Name=dDay>
        <option><%=day(now)%></option>
    <% For i=1 to 31 %>
    <option><%=i%></option>
    <% Next %>
    </Select>

    År:<Select Name=yYear>
        <option><%=year(now)%></option>
      <% For i=year(now) to year(now) + 10 %>
        <option><%=i%></option>
      <% Next %>
    </Select>

    <BR>

    <textarea cols=50 rows=10 name=memo><%=memo%></textarea>
    <input type=hidden name=action value=add>
    <BR>
 
    <font size=-1>If this Date already exists, what do you want to do?
    <BR>
      Append<input name=\'append\' value=\'TRUE\' type=radio checked>
      OverWrite<input name=\'append\' value=\'FALSE\' type=radio>
    </font>
    <BR>
    <BR>
    <a href=calendar.asp><img border=0 src=\'cancel.gif\'></a>
    <input type=image border=0 src=\'add.gif\'>
  </form>
  </center>
<% End Sub %>

<%
\'*  NOTES:
\'*
\'*  Three rules to determine if a year is a leap year
\'*    True if it is divisible by 4
\'*    False if it is divisible by 100
\'*    \'TRUE if it is divisble by 400
%>