<% OPTION EXPLICIT %>
<%
'______ ________________________________________________________________________ ______
'----!! [(c):2003205]|[(m):2003211] ============================================ !!----
'ｯｯｯｯｯｯ ｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯ |ｯ//ｯ|
' _.-----'' `\ |((: |
' ｩ Xprit s.r.l. __..-----''' `. | \\ |
' v. del Progresso < Scripts `\. '\ | :))|
' 20125 Milano Italy :. by `. `\ | // |
' __________________ `:. `. ｩ2002 `-. |((: |
' ------ [ tel. 02.67380112 ] ------ `:. Capelletti `. `+. | \\ |
' ------ [ tel. 02.67380177 ] ------ `:. Fabio `. __.===::::;)| :))|
' ------ [ fax. 02.67380177 ] ------ `: ___.__>':::::::::/' | // |
' ------ [ ] ------ `. _,===:::=-'-=-"""'' |((: |
' ｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯ '-/:::'' | \\ |
' '' | :))|
'______ ________________________________________________________________________ |_//_|
'###### ######################################################################## ######
'ｯｯｯｯｯｯ ｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯ ｯｯｯｯｯｯ
' LIVELLO0 PAGINE ISTITUZIONALI [0.01]
'______ ________________________________________________________________________ ______
'###### ######################################################################## ######
'ｯｯｯｯｯｯ ｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯ ｯｯｯｯｯｯ
'[Strutture D controllo visualizzazione delle date]
'ｯｯｯｯｯｯ ｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯ ｯｯｯｯｯｯ
const k_TKN_00 = ""
const k_TKN_01 = ""
const k_TKN_lnk_00 = ""
const k_TKN_lnk_01 = ""
const k_TKN_lnk_02 = ""
'______ ________________________________________________________________________ ______
'[SP_Livello1]############################################################# ######
'ｯｯｯｯｯｯ ｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯ ｯｯｯｯｯｯ
' Restituisce le voci pagine istituzionali inerenti SouthSide
' <==[ID_Tpg,ID_Tp,LVText,Linx,Target,LV0Text]
'______ ________________________________________________________________________ ______
'ｯｯｯｯｯｯ ｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯｯ ｯｯｯｯｯｯ
function SpoolLv0
dim lstr_been, lRS, ltmp0
'lstr_been = GetStream("hx0i00x.htm") ' leggo file x inclusione dati da DB
lstr_been = _
" | " &_
"> | "
call OpenConnection( conn, strDConn & strDPath & strPSW & strUSR, adModeRead, adUseServer)
set lRS = conn.execute("SP_Livello1 SouthSide")
if lRS.EOF then
SpoolLv0 = "No Data" 'EmptyData
else
SpoolLv0 = ""
lRS.MoveFirst
while not(lRS.EOF)
'response.write("ID:" & lRS("ID") & " | ")
ltmp0 = lRS("Source")
if (ltmp0 <> "") then
ltmp0 = ltmp0 & lRS("Linx") & "&" & kstr_Lv0 & "=" & lRS("ID_Tpg")& "&" & kstr_Lv1 & "=" & lRS("ID_Tp") & "&"
else
ltmp0 = lRS("Linx")
end if
SpoolLv0 = SpoolLv0 & replace(replace(lstr_been, k_TKN_lnk_01, lRS("LVText")), k_TKN_lnk_00, ltmp0)
SpoolLv0 = replace(SpoolLv0, k_TKN_lnk_02, lRS("Target"))
'response.write("ID:" & lRS("Target") & "?" & kstr_Lv1 & "=" & lRS("ID") & " | ")
lRS.MoveNext
wend
end if
call CloseConnection( conn )
end function
%>
:: Southside Viaggi Australia , Sudafrica, Sudamerica .. Last minute, Pacifico, Polinesia ..
http://www.southsideviaggi.com/australia viaggi.htm
http://www.southsideviaggi.com/sudamerica viaggi.htm
http://www.southsideviaggi.com/sudafrica viaggi.htm
