ayuda para crear un administrador de noticias

[virla]

tengo todo el sistema de noticias funcionando pero quiero agregarle un administrador pero la verdad es que no tengo idea como se puede hacer solo tengo la idea de lo que quiero y lo muestro con esta imagen:

la cosa seria asi
uno puede elejir si la nota ocupa 1, 2 o 3 columnas y despues puede con las flechas moverlas a la posicion donde quiere que estas aparezcan.
lo que necesito es si alguien me da una pista de como se hace este tipo de cosas, no pido que me den un codigo hecho sino una idea de como hacer esto para que funcione.
Espero que entiendan lo que estoy necesitando.
si alguno sabe de un codigo que haga algo asi como para poder modificarlo seria tambien bueno.
gracias por la ayuda que me puedan brindar

[AlZuwaga]

Me resulta muy interesante ésto.
O sea, no sólo administrar el contenido sino también la... 'reticulación'

Interesante, aunque lo veo como muy complicado.

[u_goldman]

Habia por ahi unos post que hablaban sobre ordenar elementos, recuerdo que revisamos un administrador de categorias que yo estaba haciendo, donde utilizaba listas de HTML y con javascript ordenaba los elementos, para despues hacer el submit de la forma y darle un orden, no se si algo asi podria aplicarse aqui, de lo contrario se me ocurre que con HTML y estilos de celdas y recargando la pagina por cada click en cierta celda se podria lograr el efecto.

Salu2,

[virla]

la idea lo saque de un portal que viene prearmado como los de phpnuke, les dejo el codigo haver si con eso se dan una idea, porque la verdad yo no me la puedo dar, estube rompiendome la cabeza y no me sale ya mas nada.

CODIGO

<%
Response.Buffer = True
Private Function RedirectTo(strPage)
Response.Redirect(strPage)
End Function
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"

Dim intNumOfModules 'Holds the number of modules in the column
Dim intNumRows 'Holds the number of rows in a recordset
Dim intNumTableColumns 'Holds the number of columns in the layout
Dim intLoop 'Loop counter
Dim rsMaxOrder 'Recordset object, holds the highest positionnumber in a column
Dim intThisOrder
Dim blnForumLocked 'Holds the orderposition when a module is moved or added
intNumTableColumns = 3
Dim rsModules
Dim reqAction
Dim TrueToggle
Dim FalseToggle
If strDatabaseType = "SQLServer" Then
TrueToggle = 1
FalseToggle = 0
Else
TrueToggle = aTrue
FalseToggle = aFalse
End If

reqAction = RemoveAllTags(Trim(Request.QueryString("a")))
Set rsModules = Server.CreateObject("ADODB.Recordset")
If Not isNull(reqAction) and Len(reqAction) > 0 Then
Select Case reqAction
Case "u"
adoCon.BeginTrans
strSQL = "UPDATE " & strDBTable & "Modules"
strSQL = strSQL & " SET OrderToShow = " & CheckInt(Request.QueryString("o"))
strSQL = strSQL & " WHERE ColumnToAppearIn = " & CheckInt(Request.QueryString("c"))
strSQL = strSQL & " AND OrderToShow = " & CheckInt(Request.QueryString("o")-1)
adoCon.Execute(strSQL)
strSQL = "UPDATE " & strDBTable & "Modules"
strSQL = strSQL & " SET OrderToShow = " & CheckInt(Request.QueryString("o")-1)
strSQL = strSQL & " WHERE ColumnToAppearIn = " & CheckInt(Request.QueryString("c"))
strSQL = strSQL & " AND Module_ID = " & CheckInt(Request.QueryString("m"))
adoCon.Execute(strSQL)
If adoCon.Errors.Count = 0 Then
adoCon.CommitTrans
Else
adoCon.RollbackTrans
End If
closeRS(rsCommon)
closeDB()
response.redirect(strWebsiteUrl & "portal_mgmt_layout.asp")
Case "d"
adoCon.BeginTrans
strSQL = "UPDATE " & strDBTable & "Modules"
strSQL = strSQL & " SET OrderToShow = " & CheckInt(Request.QueryString("o"))
strSQL = strSQL & " WHERE ColumnToAppearIn = " & CheckInt(Request.QueryString("c"))
strSQL = strSQL & " AND OrderToShow = " & CheckInt(Request.QueryString("o")+1)
adoCon.Execute(strSQL)
strSQL = "UPDATE " & strDBTable & "Modules"
strSQL = strSQL & " SET OrderToShow = " & CheckInt(Request.QueryString("o")+1)
strSQL = strSQL & " WHERE ColumnToAppearIn = " & CheckInt(Request.QueryString("c"))
strSQL = strSQL & " AND Module_ID = " & CheckInt(Request.QueryString("m"))
adoCon.Execute(strSQL)
If adoCon.Errors.Count = 0 Then
adoCon.CommitTrans
Else
adoCon.RollbackTrans
End If
closeRS(rsCommon)
closeDB()
response.redirect(strWebsiteUrl & "portal_mgmt_layout.asp")
Case "l"
adoCon.BeginTrans
strSQL = "UPDATE " & strDBTable & "Modules SET OrderToShow = [OrderToShow]-1 "
strSQL = strSQL & "WHERE ColumnToAppearIn = " & CheckInt(Request.QueryString("c") )
strSQL = strSQL & " AND OrderToShow > " & CheckInt(Request.QueryString("o"))
adoCon.Execute(strSQL)
strSQL = "SELECT MAX(OrderToShow) AS MaxOrder FROM " & strDBTable & "Modules WHERE ColumnToAppearIn = " & CheckInt(Request.QueryString("c")-1)
Set rsMaxOrder = Server.CreateObject("ADODB.Recordset")
rsMaxOrder.Open strSQL, adoCon
If IsNull(rsMaxOrder("MaxOrder")) Then
intThisOrder = 1
Else
intThisOrder = rsMaxOrder("MaxOrder")+1
End If
strSQL = "UPDATE " & strDBTable & "Modules"
strSQL = strSQL & " SET ColumnToAppearIn = " & CheckInt(Request.QueryString("c")-1) & ","
strSQL = strSQL & " OrderToShow = " & intThisOrder & " "
strSQL = strSQL & " WHERE Module_ID = " & CheckInt(Request.QueryString("m"))
adoCon.Execute(strSQL)
If adoCon.Errors.Count = 0 Then
adoCon.CommitTrans
Else
adoCon.RollbackTrans
End If
closeRS(rsMaxOrder)
closeRS(rsCommon)
closeDB()
response.redirect(strWebsiteUrl & "portal_mgmt_layout.asp")
Case "r"
adoCon.BeginTrans
strSQL = "UPDATE " & strDBTable & "Modules SET OrderToShow = [OrderToShow]-1 "
strSQL = strSQL & "WHERE ColumnToAppearIn = " & CheckInt(Request.QueryString("c")) & " AND OrderToShow > " & CheckInt(Request.QueryString("o"))
adoCon.Execute(strSQL)
strSQL = "SELECT MAX(OrderToShow) AS MaxOrder FROM " & strDBTable & "Modules WHERE ColumnToAppearIn = " & CheckInt(Request.QueryString("c")+1)
Set rsMaxOrder = Server.CreateObject("ADODB.Recordset")
rsMaxOrder.Open strSQL, adoCon
If IsNull(rsMaxOrder("MaxOrder")) Then
intThisOrder = 1
Else
intThisOrder = rsMaxOrder("MaxOrder")+1
End If
strSQL = "UPDATE " & strDBTable & "Modules"
strSQL = strSQL & " SET ColumnToAppearIn = " & CheckInt(Request.QueryString("c")+1) & ","
strSQL = strSQL & " OrderToShow = " & intThisOrder
strSQL = strSQL & " WHERE Module_ID = " & CheckInt(Request.QueryString("m"))
adoCon.Execute(strSQL)
If adoCon.Errors.Count = 0 Then
adoCon.CommitTrans
Else
adoCon.RollbackTrans
End If
closeRS(rsMaxOrder)
closeRS(rsCommon)
closeDB()
response.redirect(strWebsiteUrl & "portal_mgmt_layout.asp")
Case "ht"
strSQL = "UPDATE " & strDBTable & "Modules"
strSQL = strSQL & " SET showToggle =" & FalseToggle
strSQL = strSQL & " WHERE Module_ID = " & CheckInt(Request.QueryString("m"))
adoCon.Execute(strSQL)
closeRS(rsCommon)
closeDB()
response.redirect(strWebsiteUrl & "portal_mgmt_layout.asp")
Case "st"
strSQL = "UPDATE " & strDBTable & "Modules"
strSQL = strSQL & " SET showToggle = " & TrueToggle
strSQL = strSQL & " WHERE Module_ID = " & CheckInt(Request.QueryString("m"))
adoCon.Execute(strSQL)
closeRS(rsCommon)
closeDB()
response.redirect(strWebsiteUrl & "portal_mgmt_layout.asp")
Case else
closeRS(rsCommon)
closeDB()
response.redirect(strWebsiteUrl & "portal_mgmt_layout.asp")
End Select
End If

[virla]

AQUI LA CONTINUACION

Function getModules(intColumnID)
strSQL = "SELECT " & strDBTable & "Modules.*" &_
" FROM " & strDBTable & "Modules" &_
" WHERE " & strDBTable & "Modules.ColumnToAppearIn=" & intColumnID & " AND " & strDBTable & "Modules.Module_Type=1" &_
" ORDER BY OrderToShow;"
rsModules.CursorType = 1
rsModules.Open strSQL, adoCon
'rsModules.requery
intNumOfModules = rsModules.RecordCount
intNumRows = 1
Do While Not rsModules.EOF
Response.write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""1"" bgcolor=""" & strTableBorderColour & """ align=""center"">" & vbNewline)
Response.write("<tr>" & vbNewline)
Response.write("<td><table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""4"" bgcolor=""" & strTableBgColour & """>" & vbNewline)
Response.write("<tr>" & vbNewline)
Response.write("<td bgcolor=""" & strTableTitleColour2 & """ class=""tiHeading"" background=""" & strTableTitleBgImage2 & """><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbNewline)
Response.write("<tr>" & vbNewline)
Response.write("<td class=""tiHeading"" style=""padding:0px;"">" & rsModules("Module_name") & "</td>" & vbNewline)
Response.write("<td align=""right"">" & vbNewline)
If rsModules("showToggle") Then
Response.write("<a href=""portal_mgmt_layout.asp?m=" & rsModules("Module_ID") & "&c=" & rsModules("ColumnToAppearIn") & "&o=" & rsModules("OrderToShow") & "&a=ht""><img src=""" & strWebSiteUrl & "images/showToggle-on.gif"" width=""23"" height=""17"" alt=""" & strTxtDisable & "&nbsp;" & strTxtToggler & """ border=""0"" /></a>" & vbNewline)
Else
Response.write("<a href=""portal_mgmt_layout.asp?m=" & rsModules("Module_ID") & "&c=" & rsModules("ColumnToAppearIn") & "&o=" & rsModules("OrderToShow") & "&a=st""><img src=""" & strWebSiteUrl & "images/showToggle-off.gif"" width=""23"" height=""17"" alt=""" & strTxtEnable & "&nbsp;" & strTxtToggler & """ border=""0"" /></a>" & vbNewline)
End If
response.write("</td>" & vbNewline)
Response.write("</tr>" & vbNewline)
Response.write("</table></td>" & vbNewline)
Response.write("</tr>" & vbNewline)
Response.write("<tr>" & vbNewline)
Response.write("<td bgcolor=""" & strTableColour & """ background=""" & strTableBgImage & """ class=""smText"" valign=""top""><table border=""0"" cellpadding=""2"" cellspacing=""0"" width=""96%"">" & vbNewline)
Response.write("<tr>" & vbNewline)
Response.write("<td align=""center"" class=""smText"" width=""16%"">" & vbNewline)
If intColumnID = 1 Then
Response.write("<img src=""" & strWebSiteUrl & "images/arrowLeft-off.gif"" width=""17"" height=""17"" alt=""" & strTxtCant & "&nbsp;" & strTxtMove & "&nbsp;" & strTxtLeft & """ border=""0"" />" & vbNewline)
Else
Response.write("<a href=""portal_mgmt_layout.asp?m=" & rsModules("Module_ID") & "&c=" & rsModules("ColumnToAppearIn") & "&o=" & rsModules("OrderToShow") & "&a=l""><img src=""" & strWebSiteUrl & "images/arrowLeft.gif"" width=""17"" height=""17"" alt=""" & strTxtMove & "&nbsp;" & strTxtLeft & """ border=""0"" /></a>" & vbNewline)
End If
response.write("</td>" & vbNewline)
Response.write("<td align=""center"" class=""smText"" width=""16%"">" & vbNewline)
If intNumRows = 1 Then
Response.write("<img src=""" & strWebSiteUrl & "images/arrowUp-off.gif"" width=""17"" height=""17"" alt=""" & strTxtCant & "&nbsp;" & strTxtMove & "&nbsp;" & strTxtUp & """ border=""0"" />" & vbNewline)
Else
Response.write("<a href=""portal_mgmt_layout.asp?m=" & rsModules("Module_ID") & "&c=" & rsModules("ColumnToAppearIn") & "&o=" & rsModules("OrderToShow") & "&a=u""><img src=""" & strWebSiteUrl & "images/arrowUp.gif"" width=""17"" height=""17"" alt=""" & strTxtMove & "&nbsp;" & strTxtUp & """ border=""0"" /></a>" & vbNewline)
End If
Response.write("</td>" & vbNewline)
Response.write("<td align=""center"" class=""smText"" width=""16%"">" & vbNewline)
If intNumRows = intNumOfModules Then
Response.write("<img src=""" & strWebSiteUrl & "images/arrowDown-off.gif"" width=""17"" height=""17"" alt=""" & strTxtCant & "&nbsp;" & strTxtMove & "&nbsp;" & strTxtDown & """ border=""0"" />" & vbNewline)
Else
Response.write("<a href=""portal_mgmt_layout.asp?m=" & rsModules("Module_ID") & "&c=" & rsModules("ColumnToAppearIn") & "&o=" & rsModules("OrderToShow") & "&a=d""><img src=""" & strWebSiteUrl & "images/arrowDown.gif"" width=""17"" height=""17"" alt=""" & strTxtMove & "&nbsp;" & strTxtDown & """ border=""0"" /></a>" & vbNewline)
End If
response.write("</td>" & vbNewline)
Response.write("<td align=""center"" class=""smText"" width=""16%"">" & vbNewline)
If intColumnID = 3 Then
Response.write("<img src=""" & strWebSiteUrl & "images/arrowRight-off.gif"" width=""17"" height=""17"" alt=""" & strTxtCant & "&nbsp;" & strTxtMove & "&nbsp;" & strTxtRight & """ border=""0"" />" & vbNewline)
Else
Response.write("<a href=""portal_mgmt_layout.asp?m=" & rsModules("Module_ID") & "&c=" & rsModules("ColumnToAppearIn") & "&o=" & rsModules("OrderToShow") & "&a=r""><img src=""" & strWebSiteUrl & "images/arrowRight.gif"" width=""17"" height=""17"" alt=""" & strTxtMove & "&nbsp;" & strTxtRight & """ border=""0"" /></a>" & vbNewline)
End If
Response.write("</td>" & vbNewline)
Response.write("</tr>" & vbNewline)
Response.write("</table>" & vbNewline)
Response.write("</td>" & vbNewline)
Response.write("</tr>" & vbNewline)
Response.write("</table>" & vbNewline)
Response.write("</td>" & vbNewline)
Response.write("</tr>" & vbNewline)
Response.write("</table>" & vbNewline)
response.write("<br />" & vbNewline)
intNumRows = intNumRows + 1
rsModules.MoveNext
Loop
closeRS(rsModules)
End Function
response.write "<html>" & vbcrlf
response.write "<head>" & vbcrlf
response.write "<title>" & strWebsiteName & "</title>" & vbcrlf
%>
<script language="JavaScript">
function stringFilter(input) {
s = input.value;
filteredValues = " `~!@#$%^&*()=[]{};:',./\|<>"; // Characters stripped out
var i;
var returnString = "";
for (i = 0; i < s.length; i++) { // Search through string and append to unfiltered values to returnString.
var c = s.charAt(i);
if (filteredValues.indexOf(c) == -1) {
returnString += c }
else {
returnString += "_";
}
}
input.value = returnString;
}

function validateForm(formName){
var objRegExp =/\W/;
var modname = trimAll(formName.Module_name.value);
var checkmodname = objRegExp.test(modname)
var errorMsg = "";
if (modname.length == 0) {
errorMsg += "<%=strModMngmtNameBlank%>";
}
else if (checkmodname) {
errorMsg += "<%=strModMngmtNameInvalid%>";
}
if (errorMsg != "") {
msg = "<% = strTxtErrorDisplayLine %>\n\n";
msg += "<% = strTxtErrorDisplayLine1 %>\n";
msg += "<% = strTxtErrorDisplayLine2 %>\n";
msg += "<% = strTxtErrorDisplayLine %>\n\n";
msg += "<% = strTxtErrorDisplayLine3 %>\n";
errorMsg += alert(msg + errorMsg);
formName.Module_name.focus();
return false;
}
return true;
}
// End -->
</script>
<!--#include file="forum/includes/soop/header_admin.asp" -->
<!--#include file="forum/language_files/soop/soop_admin_language_file.asp" -->
<%
response.write "<table width=""" & strTableVariableWidth & """ border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbcrlf
response.write "<tr>" & vbcrlf
response.write "<td width=""" & intPortal_col1_width & """ valign=""top"">&nbsp;"
ArrangeColumn(1)
response.write "</td>" & vbcrlf
response.write "<td width=""" & intPortal_col1s_width & """>&nbsp;</td>" & vbcrlf
response.write "<td width=""" & intportal_col2_2col_width & """ valign=""top"">&nbsp;" & vbcrlf
%><!-- #include file="forum/includes/soop/portal_admin_top.asp" --><%
response.write "<br />"
Set Module_Box = New ModBox_Class
Module_Box.box_toggle = False
Module_Box.box_title_text = strTxtModManager
Module_Box.printBoxTop
Module_Box.printBoxLeftSide
Module_Box.printBoxToggle
Response.write("<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""4"" bgcolor=""" & strTableBgColour & """>" & vbNewline)
Response.write("<tr>" & vbNewline)
Response.write("<td class=""smText"" bgcolor=""" & strTableColour & """ ><img alt=""]"" align=""absmiddle"" src=""" & strWebSiteUrl & "images/arrowLeft.gif"" width=""17"" height=""17"" border=""0"" />&nbsp;" & strTxtModMoveLeft & "&nbsp; <img alt=""]"" align=""absmiddle"" src=""" & strWebSiteUrl & "images/arrowRight.gif"" width=""17"" height=""17"" border=""0"" />&nbsp;" & strTxtModMoveRight & "<br />" & vbNewline)
Response.write("<img alt=""]"" align=""absmiddle"" src=""" & strWebSiteUrl & "images/arrowUp.gif"" width=""17"" height=""17"" border=""0"" />&nbsp;" & strTxtModMoveUp & "&nbsp; <img alt=""]"" align=""absmiddle"" src=""" & strWebSiteUrl & "images/arrowDown.gif"" width=""17"" height=""17"" border=""0"" />&nbsp;" & strTxtModMoveDown & "<br />" & vbNewline)

[virla]

LA ULTIMA PARTE

Response.write("<img alt=""]"" align=""absmiddle"" src=""" & strWebSiteUrl & "images/showtoggle-on.gif"" width=""23"" height=""17"" border=""0"" />&nbsp;" & strTxtModtoggleon & "&nbsp; <img alt=""]"" align=""absmiddle"" src=""" & strWebSiteUrl & "images/showtoggle-off.gif"" width=""23"" height=""17"" border=""0"" />&nbsp;" & strTxtModtoggleoff & "<br />" & vbNewline)
Response.write("</td>" & vbNewline)
Response.write("</tr>" & vbNewline)
Response.write("<tr>" & vbNewline)
Response.write("<td bgcolor=""" & strTableColour & """ background=""" & strTableBgImage & """ class=""smText"" valign=""top"">" & vbNewline)
If Not isNull(RemoveAllTags(request.querystring("errmsg") )) Then
Response.write("<span style=""color:red;font:bold 11px verdana;"">" & vbNewline)
response.write RemoveAllTags(request.querystring("errmsg"))
Response.write("</span><br />" & vbNewline)
End If
Response.write("<table width=""100%"" cellspacing=""0"" cellpadding=""2"" border=""0"">" & vbNewline)
Response.write("<tr>" & vbNewline)
Response.write("<td width=""20%"" valign=""top"">" & vbNewline)
Call getModules(1)
Response.write("</td>" & vbNewline)
Response.write("<td width=""5%"" valign=""top"">&nbsp;</td>" & vbNewline)
Response.write("<td width=""50%"" valign=""top"">" & vbNewline)
Call getModules(2)
Response.write("</td>" & vbNewline)
Response.write("<td width=""5%"" valign=""top"">&nbsp;</td>" & vbNewline)
Response.write("<td width=""20%"" valign=""top"">" & vbNewline)
Call getModules(3)
Response.write("</td>" & vbNewline)
Response.write("</tr>" & vbNewline)
Response.write("</table>" & vbNewline)
Response.write("</td>" & vbNewline)
Response.write("</tr>" & vbNewline)
Response.write("</table>" & vbNewline)
Module_Box.printBoxrightSide
Module_Box.printBoxBottom
Set Module_Box = Nothing
response.write "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "</table>" & vbcrlf
%>

[virla]

SI ALGUNO LE INTERESA VER ESTE PORTAL EN FUNCIONAMIENTO ES EL DE http://www.soopportal.org/ Y ASI PODER VER COMO FUNCIONA

[virla]

lo que estoy pensando es que en el codigo que les mande estan manejando modulos y yo no, yo estoy manejando informacion que contiene mi base de datos.

[virla]

La idea seria maquetar en la pagina como si fuera un programa de diseño, con la diferencia que le indicamos donde iria cada noticia. en que posicion y que noticia llevaria. aclaro que como se ve en la imagen hay algunas secciones que llevan 5 titulos o mas depende la cantidad que se le quiera poner.
aca les dejo un ejemplo de como tendria que quedar pero eso no es fijo como puse en la imagen de arriba sino que con las flechas podemos cambiar la posicion de las noticias y darle un aspecto diferente cada dia.

Espero que con esto tengan una idea mas amplia de lo que me gustaria hacer.

[virla]

alguien que me ayude plis con esto, repito no quiero que me generen el codigo solo que me expliquen como podria realizarlo y ahi en mas lo aria yo.
gracias

[Neuron_376]

Lo que pasa es que es un sistema completo, por lo menos para mi, me costaría un buen rato ayudarte con esto, porque se trata todos los siguientes puntos:

1. Diseño de bases de datos
2. Consultas desde ASP
3. Rutinas en ASP
4. Funciones de JavaScript
5. DHTML
6. etc.....

Entonces, estas pidiendo ayuda con algo que es todo un conjunto, no es una simple duda de algo, por mi parte por eso no me es posible ayudarte, más que decirte que vesas todo parte por parte y ataques cada cosa por separado, eso te ayudará más y será más rápido para ti.

Suerte!!

[virla]

ok solo quiero saber como seria la estructura como para poder entrar a encararla yo y despues a medida que salgan las dudas o problemas solisitare que me den ayuda con algo mas espesifico
gracias por contestar

[Neuron_376]

Pues sería paso a paso, y primero tratar de lograrlo lo más sencillo posible.

1. Tienes una base de datos con las noticias, ordenadas y divididas como tu quieras.

2. Crea un html que tenga la estructura esa que mencionas tal como la quieres, con el formato, tipo de letra, etc que deseas.

3. Con ASP vas a pedir a la base de datos exactamente lo que necesitas:

- Ultimo momento
- Noticia Principal
- etc...

4. Ya que los tienes vas crear el HTML que debes desplegar con la info que leiste de la base de datos.

Bueno, si te fijas, esto es solo los pasos para la creacion, el sistema de administracion, necesitas algo facil primero, como poder entrar a las noticias y marcarlas, es decir:

1. Ver lista de noticias

2. Decirle a una noticia que debe ser "Ultimo momento"

3. Decirle a una noticia que debe ser "Noticia Principal"

Es decir, no tienes porque complicarte la vida con un sistema de navegación entre noticias al principio, simplemente una forma sencilla de decirle a una noticia que lugar debe ocupar, para que el ASP que lo presenta lea esas noticias y las presente.

Ejemplo de como sería la interface:

Lista de Noticias

1. Se quemo una casa ... [ ]Principal - [ ]Ultimo Momento - [1-5]Numero
2. Evento nacionna ........ [ ]Principal - [ ]Ultimo Momento - [1-5]Numero
3. Evento internaciona ... [ ]Principal - [ ]Ultimo Momento - [1-5]Numero

[ENVIAR FORMULARIO]

O simplemente algo como:

Lista de Noticias

1. Se quemo una casa ... [Principla-UltimoMomento-Nacional #1-Nacional#2, etc..]
2. Evento nacionna ....... [Principla-UltimoMomento-Nacional #1-Nacional#2, etc..]

Espero haberme explicado bien

Suerte!!

[virla]

en el sistema de noticias ya tengo todo eso que me dices que son las zonas y las secciones
ver foto ilustracion

en las zonas pongo la posicion en la que deve aparecer la noticia y en la seccion que seccion es ejemplo nacionales, deportes, internacionales, etc.
ahora la pregunta mia es para empezar aver si de esta manera se me entiende, como hacer para que una pagina me muestre los articulos como se ve en la imagen de arriba y en la primera imagen?
gracias por tu ayuda

[virla]

el listado de noticias tambien lo tengo, todo el sistema de noticias esta completo y funcionando muy bien, y como dije en un comienzo quiero hacerlo mas completo al sistema, es mas este sistema estubo funcionando hace unos años en un diario al cual yo hice la pagina y la mantencion. de la misma.

[Neuron_376]

Pues entonces ya tienes una parte, ahora, estudia como logras eso que ya estas haciendo para que hagas copy-paste de codigo y lo vayas armando:

1. Tienes una base de datos con las noticias, ordenadas y divididas como tu quieras. = LISTO!!

3. Con ASP vas a pedir a la base de datos exactamente lo que necesitas:

select * from noticias where noticiaZona = "Ultimo momento"
select * from noticias where noticiaZona = "Noticia Principal"
etc...

- Ultimo momento
- Noticia Principal
- etc...

4. Ya que los tienes vas crear el HTML que debes desplegar con la info que leiste de la base de datos.

Reponse.write "<html> ..... TODA LA ESTRUCTURA QUE NECESITAS EN HTML MAS LA INFO QUE YA PEDISTE DE LA BASE DE DATOS </html>"

Suerte!!

[virla]

ok entiendo casi todo lo que no entiendo es lo de crear el html porque lo que yo hago para mostrar las noticias es con una pagina asp que carga la noticia que se selecciona de lo que vendria a ser la tapa como cualquier diario por internet

[Neuron_376]

Bien, mira, lo que pasa, si miras esa pagina de administracion al final de cuentas en un html generado por el ASP.

Por ejemplo, como le dices a la noticia de ultimo momento que aparesca centrada en la pagina?

R = <center><%=Canea_Con_Ultima_Noticia%></center>

Como le dices al texto que aparesca en negritas: ?

R = <b><%=texto%></b>

Todo eso, es simplemente HTML generado por el ASP, es a lo que me refiero, tu desde la pagina de ASP debes generar el HTML con la estructura que necesitas presentar.

Para que este proceso sea más facil, te recomiendo, primero crear en Dream Weaver, o cualquier otro editor gráfico de HTML, la base, es decir, todo el esqueleto de presentación.

Luego, en tu ASP toma ese esqueleto y agregale la información real que tomaste de la base de datos.

Espero haberme explicado mejor.

Suerte!!

[virla]

creo entender, pero si es como pienso yo tengo la estructura ya creada para la tapa, y lo que quiero es hacer que desde una pagina me muestre la estructura como yo quiero que se presente y no una estatica que siempre sea la misma sino que desde esa pagina pueda diseñarla como se ve en la imagen que puse en el primer post, quizas yo no me haga comprender.

[Neuron_376]

Bueno, esto que te he dicho es pensado que el orden, es decir, la estructura es estática, es decir, tal como la has puesto arriba, para crear estructuras, lo que necesitas entonces es un sistema de templates, es decir, algo como:

Html = LeerTemplate("Lees el HTML con la estructura que necesitas")

Html = RemplazarNoticiasEnEstructura("Con la info que leiste de la base de datos, la remplazar en Tag dentro del HTML que elegiste")

Reponse.write Html

Con esto, tendras noticias dinamicas, y estructuras dinamicas, y puedes tener tantas estructuras como necesites.

Poco a poco nos vamos a lo mas complejo sin antes haber hecho lo mas facil

Suerte!!

[El_Metallick]

yo podria un campo en la tabla seccion y noticia llamado posicion (numerico) y en la sentencia sql lo ordenaria por posicion.... ahora el codigo para mover posiciones tienes que hacerlo tu.... te lo haria pero en este minuto no tengo tiempo... y ademas como dice Neuron es un conjunto de bastantes cosas.... eso saludos y suerte

[virla]

si entiendo, pero no es lo que yo quiero, porque de esa forma tambien tendria muchas estructuras creadas y no serian dinamicas.
aver si me puedo expresar mejor.
la idea es que en la base de datos guarde la estructura en la que yo quiero que aparezcan las noticias en la pagina principal entonces cuando se habre la pagina asp y le pregunta a la base como armar la pagina y la genera.
ejemplo
que noticia va, depende la que va saca la cantidad de columnas que ocupa la noticia y que posicion es la que tiene, y arma la noticia y asi sucesibamente. espero que esto este mas claro

[virla]

El_Metallick eso es lo que necesito es mas yo ya pense en el campo posicion pero no quiero que me den el codigo sino que me expliquen como seria sin poner el codigo como puse en mi post anterior.

[El_Metallick]

si entiendo, pero no es lo que yo quiero, porque de esa forma tambien tendria muchas estructuras creadas y no serian dinamicas.
aver si me puedo expresar mejor.
la idea es que en la base de datos guarde la estructura en la que yo quiero que aparezcan las noticias en la pagina principal entonces cuando se habre la pagina asp y le pregunta a la base como armar la pagina y la genera.
ejemplo
que noticia va, depende la que va saca la cantidad de columnas que ocupa la noticia y que posicion es la que tiene, y arma la noticia y asi sucesibamente. espero que esto este mas claro

mmmmm con un compañero tuvimos una discucion sobre algo como lo que me dices..... para hacerlo necesitarias una clase bastante compleja...... o pr lo menos segun lo que nosotros pudimos analizar..... pero como dice Neuron es una buena forma de hacerlo (por lo menos teoricamente)... ahora en la practica no se.... eso saludos y suerte

[El_Metallick]

Iniciado por virla

El_Metallick eso es lo que necesito es mas yo ya pense en el campo posicion pero no quiero que me den el codigo sino que me expliquen como seria sin poner el codigo como puse en mi post anterior.

bueno en el fondo teoricamente puedes cambiar el valor de es campo de una noticia y que con una funcion le sume 1 (+1) a todos los campos que tenian igual o mayor numero de orden que el que editaste... ahora esto me hace pensar en la carga para el servidor tener que actualizar tantas tablas.... osea si tienes 100 noticias y quieres cambiar la 50 a la 4 seria una carga enorme para el servidor pero no se me ocurre otra forma de hacerlo... bueno eso espero que se entienda la idea

[Neuron_376]

Bueno, yo te dije de crear una estructura, y que el ASP eliga que estrucutar, entonces bueno, porque no cambiar ese concepto y decir... SOBREESCRIBIR la estructura actual

Con eso seria suficiente

Mira, todo esto se basa en una cadena de html y REPLACE en esa cadena, la forma es secilla, como dices que en una cadena remplace una palabra por esa palabra en negritas?

cadena = Cstr(objRs("noticia"))
cadena = Raplace(cadena, "palabra", "<b>palabra</b>")

Igual pasa en un sistema de templates:

1: Obtener estructura
html = LeerConSistemaDeARchivosUnArchivoTexto("estructura .html")

2: En el html, estara completamente toda la estrucura que tu hayas decidido, con etiquetas para remplazar, como:
<center>#Etiqueta:UltimoMomento#</center>

3: Remplazaras esas etiquetas con lo que obtengas de la base de datos.
html = Replace(html, "#Etiqueta:UltimoMomento#", Cstr(objRs("NoticiaUM"))

4: Para hacer una interface que cree estructuras dinamicametne, como lo que propones, es otro sistema completo, pero tu muy facil en DW, manejando el sitema de etiquetas remplazables, lo puedes hacer y sobreescribir la estrucura actual que tengas, así, la pagina que presenta las noticias, siempre las va a presentar usando la etructura que tu diseñaste aparte.

Espero haberme explicado mejor, dentro de todo eso, hay mucho que investigar y programar, pero el algoritmo principal ahi lo tienes.

Suerte!!