| Line 1260... |
Line 1260... |
| 1260 |
'-----------------------------------------------------------------------------------------------------------------------------
|
1260 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 1261 |
Function ProgressBar ()
|
1261 |
Function ProgressBar ()
|
| 1262 |
ProgressBar = "<DIV name='divProgressBar' id='divProgressBar' style='visibility:hidden;'><img src='icons/i_processing.gif' width='79' height='14'></DIV>"
|
1262 |
ProgressBar = "<DIV name='divProgressBar' id='divProgressBar' style='visibility:hidden;'><img src='icons/i_processing.gif' width='79' height='14'></DIV>"
|
| 1263 |
End Function
|
1263 |
End Function
|
| 1264 |
'-----------------------------------------------------------------------------------------------------------------------------
|
1264 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| - |
|
1265 |
' Function: GetCurrentParameters
|
| - |
|
1266 |
' Description: Setup some very basic data that is common to (almost) pages
|
| - |
|
1267 |
' Uses Request("proj_id"), Request("rtag_id") and Request("pv_id")
|
| - |
|
1268 |
'
|
| - |
|
1269 |
' Given an rtag_id it will determine the enclosing project
|
| - |
|
1270 |
'
|
| - |
|
1271 |
' Returns: nProjId proj_id of rtag_ig
|
| - |
|
1272 |
' nRtagId rtag_id
|
| - |
|
1273 |
' nPvid pv_id
|
| - |
|
1274 |
'
|
| - |
|
1275 |
'
|
| - |
|
1276 |
'
|
| 1265 |
Function GetCurrentParameters( nProjId, nRtagId, nPvId )
|
1277 |
Function GetCurrentParameters( nProjId, nRtagId, nPvId )
|
| 1266 |
Dim rsQry,query
|
1278 |
Dim rsQry,query
|
| 1267 |
|
1279 |
|
| 1268 |
' Set defaults
|
1280 |
' Set defaults
|
| 1269 |
nProjId = -1
|
1281 |
nProjId = -1
|