<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
sigla="es"
if request("s")<>"" then
sigla=left(request("s"), 2)
end if
scc_actual=""
if request("scc")<>"" then
scc_actual=request("scc")
scc_actual=cdbl(scc_actual)
end if
%>
<%
Dim config
Dim config_cmd
Dim config_numRows
Set config_cmd = Server.CreateObject ("ADODB.Command")
config_cmd.ActiveConnection = MM_web_STRING
config_cmd.CommandText = "SELECT * FROM Idioma WHERE sigla = '"&sigla&"'"
config_cmd.Prepared = true
Set config = config_cmd.Execute
config_numRows = 0
%>
<%texto_formulario=(config.Fields.Item("texto_formulario").Value)%>
<%=Server.HTMLEncode(config.Fields.Item("title").Value)%>
">
">
">
">
" http-equiv="keywords">
">
">
">
">