[layout] newsberichte

[intrix]

mensen ik heb hier dus een soort van newberichten board ..

opzich hardstikke leuk, eerst een formulier waar gebruikers leuk hun
dingetjes in kunnen voeren ..

en dan gaat het naar een databasje en dan wordt het opgehaald ..

ASP:

<% 
server.scripttimeout=15
Dim RecSet, strSQL, Somma, arrMsg, t, x
Dim duration, msgCount, secsToday, timeShown, rest, testdur, leeg
Dim titel, titelcolor, titelbgr, titelfont, titelsize, bannertop, bantoppos, bannerbot, banbotpos, msg, msgcolor, msgbgr, msgpos, msgfont, msgsize, img, imgpos, dur
Dim lineOne, LineTwo, LineThree, LineFour, LineSwitch

const ValMsgId = 0
const ValTit = 1
const ValTitCol = 2
const ValTitBgr = 3
const ValTitFon = 4
const ValTitSiz = 5
const ValBanTop = 6
const ValTopPos = 7
const ValBanBot = 8
const ValBotPos = 9
const ValMsg = 10
const ValMsgCol = 11
const ValMsgBgr = 12
const ValMsgPos = 13
const ValMsgFon = 14
const ValMsgSiz = 15
const ValImg = 16
const ValImgPos = 17
const ValDur = 18

Set RecSet = Server.CreateObject("ADODB.Recordset")
   strSQL = "SELECT * FROM Bericht, datum WHERE Bericht.id = datum.bericht_id AND bericht_datum = #" & date & "#"
    RecSet.Open strSQL, strConnect, adOpenStatic
    If Not RecSet.Eof Then arrMsg = RecSet.GetRows() Else leeg = 1 End If
    RecSet.Close
Set RecSet = Nothing

If( leeg <> 1 ) Then

'-----------------------------
'functie telt totale duur
'-----------------------------

   For x = 0 to UBound(arrMsg,2)
       duration = duration + arrMsg(ValDur,x)
   Next

'----------------------------------
'bereken alle tijden 
'om zo tot huidig bericht te komen
'----------------------------------

      msgCount = x
     secsToday = second(NOW) + (60 * minute(NOW)) + (3600 * hour(NOW))
     timeShown = int( secsToday / duration )
          rest = secsToday - (timeShown * duration)
             t = - 1

   While( rest >= testdur )  
        t = t + 1
        testdur = testdur + arrMsg(ValDur,t)
   Wend

       titel = arrMsg(ValTit,t)
  titelcolor = arrMsg(ValTitCol,t)
    titelbgr = arrMsg(ValTitBgr,t)
   titelfont = arrMsg(ValTitFon,t)
   titelsize = arrMsg(ValTitSiz,t)
   bannertop = arrMsg(ValBanTop,t)
   bantoppos = arrMsg(ValTopPos,t)
   bannerbot = arrMsg(ValBanBot,t)
   banbotpos = arrMsg(ValBotPos,t)
         msg = arrMsg(ValMsg,t)
    msgcolor = arrMsg(ValMsgCol,t)
      msgbgr = arrMsg(ValMsgBgr,t)
      msgpos = arrMsg(ValMsgPos,t)
     msgfont = arrMsg(ValMsgFon,t)
     msgsize = arrMsg(ValMsgSiz,t)
         img = arrMsg(ValImg,t)
      imgpos = arrMsg(ValImgPos,t)
         dur = arrMsg(ValDur,t)

en zaols u ziet heb ik dan een heleboel door de gebruiker ingestelde dingetjes,
zoals een achtergrond kleurtje en weet ik het niet wat nog meer ..

maar als ik dit alles in een site ga zetten kom ik niet echt tot een kunstig resultaat
het is zelfs heel erg dramatisch lelijk beetje stenen tijdperk!

wil je het zien?

.. hoe zou je het nou kunnen oplossen dat gebruikers toch nog alles in kunnen stellen .. maar dat het een wat vlottere layout krijgt dan dit 1800 n. Chr resultaat?

Ook zit ik met een probleem met betrekking tot de img's .. met asp valt er niets
te resizen zoals php dat kan .. dus images zijn wel eens VEEL te groot ..

ziet iemand een mogelijkheid tot verbetering van dit lelijkste product ooit?

[Pelle]

Ja, klik hier