Subversion Repositories DevTools

Rev

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

Rev 5513 Rev 5517
Line 46... Line 46...
46
	
46
	
47
	If rsQry.RecordCount <> 0 Then 
47
	If rsQry.RecordCount <> 0 Then 
48
		
48
		
49
		generated = true
49
		generated = true
50
		
50
		
51
		Set objWSH = Server.CreateObject("WScript.Shell")
51
		Set objWSH = createWscriptShell()
-
 
52
 
52
		objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& APP_ROOT &"\jobs\NodesSpecRelease.wsf /bom_id:"& Request("bom_id") , 0, True 
53
		objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& APP_ROOT &"\jobs\NodesSpecRelease.wsf /bom_id:"& Request("bom_id") , 0, True 
53
		
54
		
54
		OraDatabase.Parameters.Add "BOM_ID", 	Request("bom_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
55
		OraDatabase.Parameters.Add "BOM_ID", 	Request("bom_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
55
		OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER 
56
		OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER 
56
	
57
	
Line 99... Line 100...
99
    		Response.Write "Files Zipped=" & zCount 
100
    		Response.Write "Files Zipped=" & zCount 
100
            If eMsg <> "" Then
101
            If eMsg <> "" Then
101
    		    Response.Write " with Error="& eMsg
102
    		    Response.Write " with Error="& eMsg
102
            End If
103
            End If
103
            		
104
            		
104
    		Response.write "<br>Node Spec Files Generated for: "&objAccessControl.UserEmail&"<br>"
105
    		Response.write "<br>Node Spec Files Generated for: "&objAccessControl.UserEmail
-
 
106
            Response.Write "<br>"            
105
    	    If NOT filesys.FileExists ( ZipFile ) Then
107
    	    If NOT filesys.FileExists ( ZipFile ) Then
106
    		    Response.write "<br>Internal Error: File Not Found"
108
    		    Response.write "<br>Internal Error: File Not Found"
107
    		    Response.write "<br>LocalPath: " & ZipFile & "<br>"
109
    		    Response.write "<br>LocalPath: " & ZipFile & "<br>"
108
    	        generated = false
110
    	        generated = false
109
            Else
111
            Else
-
 
112
                Response.Write "<br>Emailing using: " & SMTP_HOST
110
                Dim myMail
113
                Dim myMail
111
    		    Set myMail=Server.CreateObject("Persits.MailSender")
114
    		    Set myMail=Server.CreateObject("Persits.MailSender")
112
        		myMail.Host = SMTP_HOST
115
        		myMail.Host = SMTP_HOST
113
        		myMail.Subject="NODESPEC FILES Generated from Deployment Manager"
116
        		myMail.Subject="NODESPEC FILES Generated from Deployment Manager"
114
        		myMail.From="releasem@erggroup.com"
117
        		myMail.From="releasem@erggroup.com"