| Line 222... |
Line 222... |
| 222 |
|
222 |
|
| 223 |
rsTemp.Close
|
223 |
rsTemp.Close
|
| 224 |
Set rsTemp = nothing
|
224 |
Set rsTemp = nothing
|
| 225 |
End Function
|
225 |
End Function
|
| 226 |
'-----------------------------------------------------------------------------------------------------------------------------
|
226 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 227 |
Function Get_Devl_Envorinment
|
227 |
Function Get_Devl_Environment
|
| 228 |
If Request.Cookies("RELEASEMANAGER_MEMORY")("devl_environment") <> "" Then
|
228 |
If Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("devl_environment") <> "" Then
|
| 229 |
If Request.Cookies("RELEASEMANAGER_MEMORY")("devl_environment") = "clearcase" Then
|
229 |
If Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("devl_environment") = "clearcase" Then
|
| 230 |
Get_Devl_Envorinment = "jats" 'clear case does not have import
|
230 |
Get_Devl_Environment = "jats" 'clear case does not have import
|
| 231 |
Else
|
231 |
Else
|
| 232 |
Get_Devl_Envorinment = Request.Cookies("RELEASEMANAGER_MEMORY")("devl_environment")
|
232 |
Get_Devl_Environment = Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("devl_environment")
|
| 233 |
End If
|
233 |
End If
|
| 234 |
Else
|
234 |
Else
|
| 235 |
Get_Devl_Envorinment = "jats" 'JATS devl environment is set by default
|
235 |
Get_Devl_Environment = "jats" 'JATS devl enviroment is set by default
|
| 236 |
End If
|
236 |
End If
|
| 237 |
End Function
|
237 |
End Function
|
| 238 |
'-----------------------------------------------------------------------------------------------------------------------------
|
238 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 239 |
Function Get_From_DUAL ( SSclm )
|
239 |
Function Get_From_DUAL ( SSclm )
|
| 240 |
Dim rsTemp, Query_String, OraSession2, OraDatabase2
|
240 |
Dim rsTemp, Query_String, OraSession2, OraDatabase2
|