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"