<% 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)%> <% Dim contenido__MMColParam contenido__MMColParam = "1" If (Request.QueryString("n") <> "") Then contenido__MMColParam = Request.QueryString("n") End If %> <% Dim contenido Dim contenido_cmd Dim contenido_numRows Set contenido_cmd = Server.CreateObject ("ADODB.Command") contenido_cmd.ActiveConnection = MM_web_STRING contenido_cmd.CommandText = "SELECT * FROM blog WHERE idCont = ?" contenido_cmd.Prepared = true contenido_cmd.Parameters.Append contenido_cmd.CreateParameter("param1", 5, 1, -1, contenido__MMColParam) ' adDouble Set contenido = contenido_cmd.Execute contenido_numRows = 0 %> <%=Server.HTMLEncode(config.Fields.Item("title").Value)%> "> "> "> "> " http-equiv="keywords"> "> "> ">
<%=Server.HTMLEncode(config.Fields.Item("texto_blog").Value)%>
<%=Server.HTMLEncode(DoDateTime((contenido.Fields.Item("fechaModifica").Value), 1, 1034))%>
<%=Server.HTMLEncode(contenido.Fields.Item("titulo").Value)%>
<%contenido_web=(contenido.Fields.Item("contenido").Value)%> <%if contenido_web<>"" then%> <%if (contenido.Fields.Item("archivo").Value)<>"" then%>
" width="300" alt="<%=Server.HTMLEncode(contenido.Fields.Item("titulo").Value)%>" title="<%=Server.HTMLEncode(contenido.Fields.Item("titulo").Value)%>">
<%end if%>
<%=contenido_web%>
<%end if%>
<% config.Close() Set config = Nothing %> <% contenido.Close() Set contenido = Nothing %>