 |
<%dim Lan
Lan = session("lan")
select case lan
case "pt"
sql="select titulo_bola, texto_bola from titulo_bola"
case "en"
sql="select titulo_bola_en, texto_bola_en from titulo_bola"
case "es"
sql="select titulo_bola_es, texto_bola_es from titulo_bola"
case else
sql="select titulo_bola, texto_bola from titulo_bola"
end select
%><%
select case lan
case "pt"
titulo_bola=objrs("titulo_bola")
texto_bola=trim(objrs("texto_bola"))
case "en"
titulo_bola=objrs("titulo_bola_en")
texto_bola=trim(objrs("texto_bola_en"))
case "es"
titulo_bola=objrs("titulo_bola_es")
texto_bola=trim(objrs("texto_bola_es"))
case else
titulo_bola=objrs("titulo_bola")
texto_bola=trim(objrs("texto_bola"))
end select
%>
| <%=titulo_bola%> |
<%objrs.close : set objrs = nothing : objconn.close : set objconn=nothing%>
<%=Replace(texto_bola, Chr(13), "
")%>
|
|