% Dim sSQL, oRs, iID, iIDPagina If Trim(Request("id")) <> "" Then iID = Trim(Request("id")) Else iID = 0 If Trim(Request("id_pagina")) <> "" Then iIDPagina = Trim(Request("id_pagina")) Else iIDPagina = 0 ' -- Nome da Página sSQL = "SELECT ds_nome_pagina FROM tbl_pagina_idioma WHERE cd_pagina = " & iIDPagina Set oRs = dataCharge(sSQL) If not oRs.EOF Then ds_nome_pagina = oRs(0) Set oRs = nothing %>
|