daily pastebin goal
18%
SHARE
TWEET

Untitled

a guest Jan 21st, 2019 63 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. <input type="button" value="Done"  style="width: 56px; height: 40px" onclick="finish()"    />
  2.    
  3. function finish() {
  4.         var size = "<%response.write(size) %>";
  5.         if (size == "0") {
  6.         var done = confirm("All Items mod, would you like to save?");
  7.         if (done == true)
  8.         {
  9.             if (window.XMLHttpRequest)
  10.             {
  11.                 xmlhttp = new XMLHttpRequest();
  12.             }
  13.             else
  14.             {
  15.                 xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
  16.             }
  17.             var concode = "<%=Replace(concode, "", "\" )%>";
  18.             xmlhttp.onreadystatechange=function()
  19.             {
  20.                 if (xmlhttp.readyState==4 && xmlhttp.status==200)
  21.                     {
  22.                         document.getElementById('concode').value = concode;
  23.                         document.forms["confirm"].submit();
  24.                     }
  25.             }
  26.             <%if NOT rsTrxTy.EOF then
  27.             if rsTrxTy.fields("TYPE").value = "TO" then%>
  28.             ~Stuff happens here~
  29.             <%end if
  30.  
  31.             if rsTrxTy.fields("TYPE").value = "TI" then%>
  32.             ~Stuff happens here~
  33.             <%end if
  34.             end if
  35.  
  36.             if NOT rsOrdrs.EOF then%>
  37.              ~Stuff happens here~
  38.             <%end if %>
  39.             <%
  40.             dim fso
  41.             Set fso = Server.CreateObject("Scripting.FileSystemObject")
  42.             fso.DeleteFile "C:Mcacherstrxis-" & Session.SessionID & ".dat"
  43.             fso.DeleteFile "C:Mcacherstrxos-" & Session.SessionID & ".dat"
  44.             fso.DeleteFile "C:Mcacherstrxty-" & Session.SessionID & ".dat"
  45.             fso.DeleteFile "C:Mcachersords-" & Session.SessionID & ".dat"  %>
  46.         }
  47.     }
  48.     else {
  49.             alert("All items have not been mod.");
  50.         }
  51.     }
  52.    
  53. <script type="text/javascript">
  54. function finish() {
  55. <%              
  56. dim fso
  57. Set fso = Server.CreateObject("Scripting.FileSystemObject")                  
  58. fso.DeleteFile "C:Mcacherstrxis-" & Session.SessionID & ".dat"              
  59. fso.DeleteFile "C:Mcacherstrxos-" & Session.SessionID & ".dat"              
  60. fso.DeleteFile "C:Mcacherstrxty-" & Session.SessionID & ".dat"              
  61. fso.DeleteFile "C:Mcachersords-" & Session.SessionID & ".dat"  
  62. %>
  63. }
  64. </script>
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top