<% Dim IdiomaPag IdiomaPag="es" Dim strSQL Dim objCn 'conecto la DB cuando haga falta Dim objRs Set objRs = Server.CreateObject ("ADODB.Recordset") Call ConectarDb Dim strUrl strUrl = Request.ServerVariables("URL") strUrl = Cstr(Mid(strUrl,2,4)) Dim strUrlPag strUrlPag = Request.ServerVariables("URL") strUrlPag = Cstr(Mid(strUrlPag,7,4)) Dim noticiaID noticiaID=Request("noticiaID") If IsNumeric(noticiaID) then If noticiaID >= 1 AND noticiaID < 32000 then 'todo OK else Response.Clear Response.Redirect ("newses.asp") Response.End End If else Response.Clear Response.Redirect ("newses.asp") Response.End End If strSQL = "SELECT * FROM tNoticias WHERE noticiaID=" & noticiaID objRs.Open strSQL, objCn if objRs.EOF then Response.Redirect("newses.asp") end if objRs.Close %> Club Rugby Seminario Tarazona
<% strSQL="SELECT * FROM tNoticiasLinks WHERE noticiaID=" & noticiaID objRs.Open strSQL, objCn %> <% if not objRs.EOF Then %> <% Do WHile not objRs.EOF %> <% objRs.MoveNext Loop else %> <%end if objRs.Close %>
<%=UCase(":: Detalles de la Noticia")%>
<% Dim cont cont=0 Dim noticia,noticia2 strSQL="SELECT * FROM tNoticias WHERE noticiaID=" & noticiaID objRs.Open strSQL, objCn if not objRs.EOF Then %> <% else%> <% end if objRs.Close %>
<%if objRs("strImagen")<>"" Then%>
" width="165" style="border: 1px solid #6699CC">
<%end if%> <%="" & UCase(objRs("strTitulo_es")) & "

"&FCompleta(objRs("datFecha"))%> <%="

" & objRs("strCabecera_Es")%>
<%=PonerBr(objRs("strCuerpo_Es"))%>
Sistema en mantenimiento
<%=UCase("Links")%>
 
" target='linksnot' class="text"><%=objRs("strLink")%><%=":  " & objRs("strDescripcion_Es")%>