Updatere siden

prøv at remme response.expires ud ...
altså:
\'response.expires = -1000

giver dette nogen ændring ?

ellebaek: ingen, overhoved

beklager

hmmn ...

kan du ikke smide hele koden ?

<% \'response.expires = -1000 %>
<!--#include file=\"../helligdag.asp\"-->
<!--#include file=\"../scripts.asp\"-->
<%
If tjekid(Request.ServerVariables(\"REMOTE_USER\")) = \"okey\" Then
  response.redirect \"beskedtlshow.asp\"
Else
myDSN=\"DSN=vagtplancusc\"
mySQL=\"select * from besked\"
set conntemp=server.createobject(\"adodb.connection\")
conntemp.open myDSN
set record=server.createobject(\"adodb.recordset\")
set rs=conntemp.execute(mySQL)
record.open \"cusc\", conntemp, 2, 2, 2
teller = 0
%>
<html>
<head>
<style>
.bred { Width: 100%; }
</style>
</head>
<body>
<h1>Message Cue\'s</h1>
Bruger: <% response.write getuser() %>
<form method=\"POST\" action=\"beskedupdate.asp\">
<table border=1>
  <tr>
    <td class=bred><h4>Outstanding Request\'s</td><td>Accept</td><td>Decline</td><td>Delete</td>
  </tr>
  <% Do Until rs.eof
      If RS.fields(1) = getuser() Then
        firstday = split(rs.fields(2), \",\")
        record.find \"dato=\'\" & firstday(0) &\"\'\"
        vagt = rs.fields(3)
        targetuser = split(record.fields(vagt), \",\")
        If RS.fields(5) = \"byt\" And Not RS.fields(4) = \"brugeraccept\" And Not RS.fields(4) = \"tlventer\" And Not RS.fields(4) = \"brugerdecline\" And Not RS.fields(4) = \"tlaccept\" And Not RS.fields(4) = \"tlokey\" And Not RS.fields(4) = \"tlno\" And Not RS.fields(4) = \"tldecline\" Then
          response.write \"<tr><td class=bred>You requested to swap with \"&targetuser(1)&\" on the \"&rs.fields(2)&\". (\"&rs.fields(6)&\")</td>\"
          response.write \"<td>&nbsp;</td><td>&nbsp;</td><td><input type=radio value=delete name=cb\"&rs.fields(0)&\"></td></tr>\" & vbCr
        ElseIf RS.fields(4) = \"tlventer\" And RS.fields(5) = \"byt\" Then
          response.write \"<tr><td class=bred>You requested to swap with \"&targetuser(1)&\" on the \"&rs.fields(2)&\". \"&targetuser(1)&\" have acceptet, waiting for tl\'s(\"&rs.fields(6)&\")</td>\"
          response.write \"<td>&nbsp;</td><td>&nbsp;</td><td><input type=radio value=delete name=cb\"&rs.fields(0)&\"></td></tr>\" & vbCr
        ElseIf RS.fields(5) = \"ferie\" And Not RS.fields(4) = \"tlaccept\" Then
          response.write \"<tr><td class=bred>You requested vacation on the \"&rs.fields(2)&\". (\"&rs.fields(6)&\")</td>\"
          response.write \"<td>&nbsp;</td><td>&nbsp;</td><td><input type=radio value=delete name=cb\"&rs.fields(0)&\"></td></tr>\" & vbCr
        ElseIf RS.fields(5) = \"flex\" And Not RS.fields(4) = \"tlaccept\" Then
          response.write \"<tr><td class=bred>You requested to flex on the \"&rs.fields(2)&\". (\"&rs.fields(6)&\")</td>\"
          response.write \"<td>&nbsp;</td><td>&nbsp;</td><td><input type=radio value=delete name=cb\"&rs.fields(0)&\"></td></tr>\" & vbCr
        End If
      End If
      rs.movenext
      record.movefirst
    Loop %>
</table>
<br>
<table border=1>
  <tr>
    <td class=bred><h4>Indcomming Request\'s</td><td>Accept</td><td>Decline</td><td>Delete</td>
  </tr>
  <% tilstart()
    Do Until rs.eof
      If RS.fields(5) = \"byt\" Then
        firstday = split(rs.fields(2), \",\")
        record.find \"dato=\'\" & firstday(0) &\"\'\"
        vagt = rs.fields(3)
        targetuser = split(record.fields(vagt), \",\")
        If targetuser(1) = getuser() And rs.fields(4) = \"venterbruger\" Then
          response.write \"<tr><td>\"&rs.fields(1)&\" request\'s to swap with you on the \"&rs.fields(2)&\". (\"&rs.fields(6)&\")</td>\"
          response.write \"<td><input type=radio value=accept name=cb\"&rs.fields(0)&\"></td><td><input type=radio value=decline name=cb\"&rs.fields(0)&\"></td><td>&nbsp;</td></tr>\" & vbCr
        End If
        record.movefirst
      End If
      rs.movenext
    Loop %>
</table>
<br>
<table border=1>
  <tr>
    <td class=bred><h4>Acceptet And Declined Request\'s</td><td>Accept</td><td>Decline</td><td>Delete</td>
  </tr>
  <% tilstart()
    Do Until rs.eof
      If rs.fields(4) = \"brugeraccept\" Or rs.fields(4) = \"tlaccept\" Or rs.fields(4) = \"brugerdecline\" Or rs.fields(4) = \"tlokey\" Or rs.fields(4) = \"tlno\" Or rs.fields(4) = \"tldecline\" Then
        firstday = split(rs.fields(2), \",\")
        record.find \"dato=\'\" & firstday(0) &\"\'\"
        vagt = rs.fields(3)
        targetuser = split(record.fields(vagt), \",\")
        If targetuser(1) = getuser() Then
          If rs.fields(4) = \"tlaccept\" Then
            If rs.fields(5) = \"flex\" Then
              response.write \"<tr><td>TL\'s have accepted your request to flex on the \"&rs.fields(2)&\". (\"&rs.fields(6)&\")</td>\"
              response.write \"<td>&nbsp;</td><td>&nbsp;</td><td><input type=radio value=delete name=cb\"&rs.fields(0)&\"></td></tr>\" & vbCr
            ElseIf rs.fields(5) = \"ferie\" Then
              response.write \"<tr><td>TL\'s have accepted your request for vacation on the \"&rs.fields(2)&\". (\"&rs.fields(6)&\")</td>\"
              response.write \"<td>&nbsp;</td><td>&nbsp;</td><td><input type=radio value=delete name=cb\"&rs.fields(0)&\"></td></tr>\" & vbCr
            ElseIf rs.fields(5) = \"byt\" Then
              response.write \"<tr><td>Tl\'s have accepted your swap on the \"&rs.fields(2)&\". (\"&rs.fields(6)&\")</td>\"
              response.write \"<td>&nbsp;</td><td>&nbsp;</td><td><input type=radio value=delete name=cb\"&rs.fields(0)&\"></td></tr>\" & vbCr
            End If
          ElseIf rs.fields(4) = \"tldecline\" Then
            If rs.fields(5) = \"ferie\" Then
              response.write \"<tr><td>Tl\'s have decline your request for vacation on the \"&rs.fields(2)&\". (\"&rs.fields(6)&\")</td>\"
              response.write \"<td>&nbsp;</td><td>&nbsp;</td><td><input type=radio value=delete name=cb\"&rs.fields(0)&\"></td></tr>\" & vbCr
            ElseIf rs.fields(5) = \"byt\" Then
              response.write \"<tr><td>Tl\'s have decline your swap with \"&rs.fields(1)&\" on the \"&rs.fields(2)&\". (\"&rs.fields(6)&\")</td>\"
              response.write \"<td>&nbsp;</td><td>&nbsp;</td><td><input type=radio value=delete name=cb\"&rs.fields(0)&\"></td></tr>\" & vbCr
            ElseIf rs.fields(5) = \"flex\" Then
              response.write \"<tr><td>Tl\'s have decline your request to flex on the \"&rs.fields(2)&\". (\"&rs.fields(6)&\")</td>\"
              response.write \"<td>&nbsp;</td><td>&nbsp;</td><td><input type=radio value=delete name=cb\"&rs.fields(0)&\"></td></tr>\" & vbCr
            End If
          End If
        ElseIf rs.fields(1) = getuser() Then
          If rs.fields(4) = \"brugerdecline\" Then
            response.write \"<tr><td>\"&targetuser(1)&\" have declined to swap with you on the \"&rs.fields(2)&\". (\"&rs.fields(6)&\")</td>\"
            response.write \"<td>&nbsp;</td><td>&nbsp;</td><td><input type=radio value=delete name=cb\"&rs.fields(0)&\"></td></tr>\" & vbCr
          ElseIf rs.fields(4) = \"tlokey\" Then
            response.write \"<tr><td>Tl\'s have accepted your swap with \"&targetuser(1)&\" on the \"&rs.fields(2)&\". (\"&rs.fields(6)&\")</td>\"
            response.write \"<td>&nbsp;</td><td>&nbsp;</td><td><input type=radio value=delete name=cb\"&rs.fields(0)&\"></td></tr>\" & vbCr
          ElseIf rs.fields(4) = \"tlno\" Then
            response.write \"<tr><td>Tl\'s have decline your swap with \"&targetuser(1)&\" on the \"&rs.fields(2)&\". (\"&rs.fields(6)&\")</td>\"
            response.write \"<td>&nbsp;</td><td>&nbsp;</td><td><input type=radio value=delete name=cb\"&rs.fields(0)&\"></td></tr>\" & vbCr
          ElseIf rs.fields(4) = \"brugeraccept\" Then
            response.write \"<tr><td>\"&targetuser(1)&\" have accepted to swap with you on the \"&rs.fields(2)&\". Now waiting for TL\'s accept.(\"&rs.fields(6)&\")</td>\"
            response.write \"<td>&nbsp;</td><td>&nbsp;</td><td><input type=radio value=delete name=cb\"&rs.fields(0)&\"></td></tr>\" & vbCr
          End If
        End If
      End If
      rs.movenext
    Loop %>
</table>
<br>
<input type=\"submit\" value=\"Update\" name=\"B1\"><input type=\"reset\" value=\"Back\" name=\"B2\" onClick=\"history.back()\">
</form>
</body>
</html>
<%
Function tilstart()
  rs.movefirst
End Function
End If

record.close
conntemp.close
response.end
%>

<!--#include file=\"../helligdag.asp\"-->
<%
response.expires = -1000
myDSN=\"DSN=vagtplancusc\"
mySQL=\"select * from besked\"
set conntemp=server.createobject(\"adodb.connection\")
conntemp.open myDSN
set record=server.createobject(\"adodb.recordset\")
record.open \"besked\", conntemp, 2, 2, 2
set rs=conntemp.execute(mySQL)

Do Until rs.eof
  If request.form(\"cb\" & rs.fields(0)) = \"delete\" Then
  conntemp.Execute(\"DELETE FROM besked WHERE id =\"& rs.fields(0)&\"\")
  ElseIf request.form(\"cb\" & rs.fields(0)) = \"accept\" Then
    record.addnew
    record.fields(\"user\") = rs.fields(1)
    record.fields(\"dato\") = rs.fields(2)
    record.fields(\"targetvagt\") = rs.fields(3)
    record.fields(\"status\") = \"brugeraccept\"
    record.fields(\"request\") = rs.fields(5)
    record.fields(\"note\") = rs.fields(6)
    record.update
    record.find \"id=\'\" & rs.fields(0) &\"\'\"
    record.fields(\"status\") = \"tlventer\"
    record.update
  ElseIf request.form(\"cb\" & rs.fields(0)) = \"decline\" Then
    record.find \"id=\'\" & rs.fields(0) &\"\'\"
    record.fields(\"status\") = \"brugerdecline\"
    record.update
  End If
  rs.movenext
Loop

record.close
conntemp.close
response.redirect \"beskedupdate.asp\"
response.end
%>

Dumme mig, beskedupdate.asp henviste til sig selv :-(

Beklager forstyrelsen

*S*

sådan er det jo ;-)