| Line 69... |
Line 69... |
| 69 |
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductsList.sql"), ORADYN_DEFAULT )
|
69 |
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductsList.sql"), ORADYN_DEFAULT )
|
| 70 |
|
70 |
|
| 71 |
|
71 |
|
| 72 |
returnString = returnString + "#FTP Script for WIN32" + VBNewLine
|
72 |
returnString = returnString + "#FTP Script for WIN32" + VBNewLine
|
| 73 |
returnString = returnString + "#ftp -s:<SCRIPT_FILE>" + VBNewLine
|
73 |
returnString = returnString + "#ftp -s:<SCRIPT_FILE>" + VBNewLine
|
| 74 |
returnString = returnString + "open auperaunx26" + VBNewLine
|
74 |
returnString = returnString + "open " + archive_server + VBNewLine
|
| 75 |
returnString = returnString + "<USERNAME>" + VBNewLine
|
75 |
returnString = returnString + "<USERNAME>" + VBNewLine
|
| 76 |
returnString = returnString + "<PASSWORD>" + VBNewLine
|
76 |
returnString = returnString + "<PASSWORD>" + VBNewLine
|
| 77 |
returnString = returnString + "binary" + VBNewLine
|
77 |
returnString = returnString + "binary" + VBNewLine
|
| 78 |
returnString = returnString + "prompt" + VBNewLine
|
78 |
returnString = returnString + "prompt" + VBNewLine
|
| 79 |
returnString = returnString + "cd /export" + VBNewLine
|
79 |
returnString = returnString + "cd /export" + VBNewLine
|
| Line 110... |
Line 110... |
| 110 |
|
110 |
|
| 111 |
branchName = Replace(branchName, " ", "\ ")
|
111 |
branchName = Replace(branchName, " ", "\ ")
|
| 112 |
|
112 |
|
| 113 |
returnString = returnString + VBNewLine + VBNewLine + VBNewLine
|
113 |
returnString = returnString + VBNewLine + VBNewLine + VBNewLine
|
| 114 |
returnString = returnString + "#FTP script for SPARC" + VBNewLine
|
114 |
returnString = returnString + "#FTP script for SPARC" + VBNewLine
|
| 115 |
returnString = returnString + "#ftp -n -v auperaunx26 < <SCRIPT_FILE>" + VBNewLine
|
115 |
returnString = returnString + "#ftp -n -v " + archive_server + " < <SCRIPT_FILE>" + VBNewLine
|
| 116 |
returnString = returnString + "user" + VBNewLine
|
116 |
returnString = returnString + "user" + VBNewLine
|
| 117 |
returnString = returnString + "<USERNAME>" + VBNewLine
|
117 |
returnString = returnString + "<USERNAME>" + VBNewLine
|
| 118 |
returnString = returnString + "binary" + VBNewLine
|
118 |
returnString = returnString + "binary" + VBNewLine
|
| 119 |
returnString = returnString + "prompt" + VBNewLine
|
119 |
returnString = returnString + "prompt" + VBNewLine
|
| 120 |
returnString = returnString + "cd /export" + VBNewLine
|
120 |
returnString = returnString + "cd /export" + VBNewLine
|