Subversion Repositories DevTools

Rev

Rev 5506 | Rev 5957 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5506 Rev 5639
Line 1965... Line 1965...
1965
          deleteColumn = "<td class='tabular'><a href=""" & gScriptURL & "&o=" & rs("Title")&"&a=del&delVerified=1" & """>[Delete Page]</td>"
1965
          deleteColumn = "<td class='tabular'><a href=""" & gScriptURL & "&o=" & rs("Title")&"&a=del&delVerified=1" & """>[Delete Page]</td>"
1966
      End If
1966
      End If
1967
 
1967
 
1968
      Response.Write("<td class='tabular'>" & i & ".</td><td class='tabular'><a href=""" &_
1968
      Response.Write("<td class='tabular'>" & i & ".</td><td class='tabular'><a href=""" &_
1969
                  gScriptURL & "&o=" & rs("Title") & """>" & rs("Title") & "</a></td> <td class='tabular'>" & _
1969
                  gScriptURL & "&o=" & rs("Title") & """>" & rs("Title") & "</a></td> <td class='tabular'>" & _
1970
                  rs("LastUpdate") & " by " & rs("LastEditor")& "</td>" &  deleteColumn & _
1970
                  GetRFC822date(rs("LastUpdate")) & " by " & rs("LastEditor")& "</td>" &  deleteColumn & _
1971
                  "</tr>" &  vbcrlf)
1971
                  "</tr>" &  vbcrlf)
1972
      i= i+1
1972
      i= i+1
1973
      rs.MoveNext
1973
      rs.MoveNext
1974
    Loop
1974
    Loop
1975
    Response.write("</table>" & vbcrlf)
1975
    Response.write("</table>" & vbcrlf)
Line 2037... Line 2037...
2037
      EmitDebug 46, 2, "Record already exists....<br/>" & vbcrlf
2037
      EmitDebug 46, 2, "Record already exists....<br/>" & vbcrlf
2038
 
2038
 
2039
      ' check if someone has updated the record while you were editing (ElreyRonald)
2039
      ' check if someone has updated the record while you were editing (ElreyRonald)
2040
      if  Trim(Cstr( rs("lastupdate"))) <> Trim(sLupdt) then
2040
      if  Trim(Cstr( rs("lastupdate"))) <> Trim(sLupdt) then
2041
        response.write("<html><head></head><body>")
2041
        response.write("<html><head></head><body>")
2042
        Response.Write(  "["& Trim(Cstr( rs("lastupdate"))) & "]["& Trim(sLupdt)& "]<br>" )
2042
        Response.Write(  "["& Trim(Cstr( GetRFC822date(rs("lastupdate")))) & "]["& Trim(sLupdt)& "]<br>" )
2043
        Response.Write("<b>Sorry! That page is being edited by another user or is in the process of being saved. <br>Your changes were not saved.</b>" )
2043
        Response.Write("<b>Sorry! That page is being edited by another user or is in the process of being saved. <br>Your changes were not saved.</b>" )
2044
 
2044
 
2045
        response.write( "<br><br> <a href='" & gScriptURL & "&a=edit&o=" & glsTopic & "'>Click here to re-edit the page. </a>" )
2045
        response.write( "<br><br> <a href='" & gScriptURL & "&a=edit&o=" & glsTopic & "'>Click here to re-edit the page. </a>" )
2046
        response.end
2046
        response.end
2047
      else
2047
      else
Line 2166... Line 2166...
2166
          response.write "<div id=wikifooter class=footer ><form method='POST' action=""" & gScript & """ id=""formFooter"" name=""formFooter""><br>"
2166
          response.write "<div id=wikifooter class=footer ><form method='POST' action=""" & gScript & """ id=""formFooter"" name=""formFooter""><br>"
2167
          response.write "<hr size=1 noshade=true>"
2167
          response.write "<hr size=1 noshade=true>"
2168
 
2168
 
2169
          If Not gHideLastEditor Then
2169
          If Not gHideLastEditor Then
2170
            if lastUpdate <> "" Then
2170
            if lastUpdate <> "" Then
2171
                response.write "<span title='Click this now to prepare page for Printing by removing unnecessary portions! ' onclick=""" & hideScript & """ ><font size=-1>Last Updated " & lastUpdate & " by '" & lastEditor &  "' </font></span><br/>"
2171
                response.write "<span title='Click this now to prepare page for Printing by removing unnecessary portions! ' onclick=""" & hideScript & """ ><font size=-1>Last Updated " & GetRFC822date(lastUpdate) & " by '" & lastEditor &  "' </font></span><br/>"
2172
            End If
2172
            End If
2173
          end if
2173
          end if
2174
          response.write "<font size=-1>Domain: " & gHttpDomain & "</font><br>"
2174
          response.write "<font size=-1>Domain: " & gHttpDomain & "</font><br>"
2175
 
2175
 
2176
'          response.write "<a href='" & gScriptURL & "' title='GO TO START PAGE'>Home</a> | "
2176
'          response.write "<a href='" & gScriptURL & "' title='GO TO START PAGE'>Home</a> | "