Leker lite med ett nyhetssystem som finns här på Pellesoft: http://www.pellesoft.se/communicate/userprogram/program.aspx?tid=15 Det finns ju en del i koden som går att städa upp... En del av koden är till exempel helt onödig...Problem med layer
    
    
Systemet presenterar data i en scroll och "klipper" efter 80 tecken.
Skulle vilja öka värdet på antal tecken som presenteras. Hur?
Eftersom jag inte har en aning om var i koden dessa parametrar ligger klipper jag in hela sidan:
---------------------------------------
<script LANGUAGE="javascript">
function openNewsAdd () { 
 	var wNewsAdd = open("news_add.asp" ,"Visitkort","scrollbars=0,resizable,left=10,top=10,height=250,width=300");
 	document.isUnloading = false;
}
</script>
  <table border="0" width="100" height="100">
    <tr>
      <td width="100" height="90">
<script language="JavaScript1.2">
<!-- Dimensions of the scroll box, height, length etc. --->
var scrollerwidth=100; 
var scrollerheight=90;
var scrollerbgcolor='#FFFFFF';
//configure the below variable to change the contents of the scroller
var messages=new Array();
<%
	Set Connection = Server.CreateObject("ADODB.Connection")
	Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb")
	Set RS = Server.CreateObject("ADODB.Recordset")
	RS.Open "SELECT Format(dteDate,'dd-mmm hh:mm') AS dteDateConv, * FROM tblNews WHERE blnShow = TRUE ORDER BY intOrder, dteDate", Connection, 1
	rad=0
	if RS.EOF then
		response.write "messages[0]=" & Chr(34) & Chr(34) & ";" & vbCrLf
		response.write "messages[1]=" & Chr(34) & Chr(34) & ";" & vbCrLf
	end if
	While not RS.EOF
		newsText=Server.HTMLEncode(RS("strNews")) '& Server.HTMLEncode("<b>")
		newsText=Replace(newsText, Server.HTMLEncode("<b>"), "<b>")
		newsText=Replace(newsText, Server.HTMLEncode("</b>"), "</b>")
		newsText=Replace(newsText, vbCrLf, "<br>")
		if Len(RS("strLink"))>0 then
			response.write "messages[" & rad & "]=" & Chr(34) & "<font face='Verdana' size='1'><b>" & RS("dteDateConv") & "</b><br>" & newsText & "</font>" & Chr(34) & ";" & vbCrLf
		else
			response.write "messages[" & rad & "]=" & Chr(34) & "<font face='Verdana' size='1'><b>" & RS("dteDateConv") & "</b><br>" & newsText & "</font>" & Chr(34) & ";" & vbCrLf
		end if
		RS.movenext
		rad=rad+1
	WEND
	if rad=1 then
		response.write "messages[1]=" & Chr(34) & Chr(34) & ";" & vbCrLf
	end if
	response.write "messages[" & rad & "]=" & Chr(34) & Chr(34) & ";" & vbCrLf
	RS.Close
	Connection.Close
	Set RS=Nothing
	Set Connection=Nothing
%>
<!--- *********************** THER IS ONLY ONE THING EDITABLE BELOW THIS LINE  *********************** -->
<!-- to set the speed of the scroller, change all the values maked 2000,  (2000 flows, 100 no pause,  press F3 and search for <!-- editable -->  --->
if (messages.length>1)
	i=2;
else
	i=0;
function move1(whichlayer){
	tlayer=eval(whichlayer);
	if (tlayer.top>0&&tlayer.top<=1){
		tlayer.top=0;
		setTimeout("move1(tlayer)",2500); <!-- editable -->
		setTimeout("move2(document.main.document.second)",2500);<!-- editable -->
		return;
	}
	if (tlayer.top>=tlayer.document.height*-1){
		tlayer.top-=1;
		setTimeout("move1(tlayer)",20);
	} else{
		tlayer.top=scrollerheight;
		tlayer.document.write(messages[i]);
		tlayer.document.close();
		if (i==messages.length-1)
			i=0;
		else
			i++;
	}
}
function move2(whichlayer){
	tlayer2=eval(whichlayer);
	if (tlayer2.top>0&&tlayer2.top<=1){
		tlayer2.top=0;
		setTimeout("move2(tlayer2)",2500);<!-- editable -->
		setTimeout("move1(document.main.document.first)",2500);<!-- editable -->
		return;
	}
	if (tlayer2.top>=tlayer2.document.height*-1){
		tlayer2.top-=1;
		setTimeout("move2(tlayer2)",20);
	}  else {
		tlayer2.top=scrollerheight;
		tlayer2.document.write(messages[i]);
		tlayer2.document.close();
		if (i==messages.length-1)
			i=0;
		else
			i++;
	}
}
function move3(whichdiv) {
	tdiv=eval(whichdiv);
	if (tdiv.style.pixelTop>0&&tdiv.style.pixelTop<=1){
		tdiv.style.pixelTop=0;
		setTimeout("move3(tdiv)",2500);<!-- editable -->
		setTimeout("move4(second2)",2500);<!-- editable -->
		return;
	}
	if (tdiv.style.pixelTop>=tdiv.offsetHeight*-1) {
		tdiv.style.pixelTop-=1;
		setTimeout("move3(tdiv)",20);
	}  else {
		tdiv.style.pixelTop=scrollerheight;
		tdiv.innerHTML=messages[i];
		if (i==messages.length-1)
			i=0;
		else
			i++;
	}
}
function move4(whichdiv){
	tdiv2=eval(whichdiv);
	if (tdiv2.style.pixelTop>0&&tdiv2.style.pixelTop<=1){
		tdiv2.style.pixelTop=0;
		setTimeout("move4(tdiv2)",2500);<!-- editable -->
		setTimeout("move3(first2)",2500);<!-- editable -->
		return;
	}
	if (tdiv2.style.pixelTop>=tdiv2.offsetHeight*-1){
		tdiv2.style.pixelTop-=1;
		setTimeout("move4(second2)",20);
	}  else  {
		tdiv2.style.pixelTop=scrollerheight;
		tdiv2.innerHTML=messages[i];
	if (i==messages.length-1)
		i=0;
	else
		i++;
	}
}
function startscroll(){
	if (document.all){
		move3(first2);
		second2.style.top=scrollerheight;
	}  else if (document.layers){
		move1(document.main.document.first);
		document.main.document.second.top=scrollerheight+5;
		document.main.document.second.visibility='show';
	}
}
window.onload=startscroll
</script>
<ilayer id="main" width=&{scrollerwidth}; height=&{scrollerheight}; bgColor=&{scrollerbgcolor};>
<layer id="first" left=0 top=1 width=&{scrollerwidth};>
<script language="JavaScript1.2">
if (document.layers)
	document.write(messages[0]);
</script>
</layer>
<layer id="second" left=0 top=0 width=&{scrollerwidth}; visibility=hide>
<script language="JavaScript1.2">
if (document.layers)
	document.write(messages[1]);
</script>
</layer>
</ilayer>
<script language="JavaScript1.2">
if (document.all){
	document.writeln('<span id="main2" style="position:relative;width:'+scrollerwidth+';height:'+scrollerheight+';overflow:hiden;background-color:'+scrollerbgcolor+'">');
	document.writeln('<div style="position:absolute;width:'+scrollerwidth+';height:'+scrollerheight+';clip:rect(0 '+scrollerwidth+' '+scrollerheight+' 0);left:0;top:0">');
	document.writeln('<div id="first2" style="position:absolute;width:'+scrollerwidth+';left:0;top:1;">');
	document.write(messages[0]);
	document.writeln('</div>');
	document.writeln('<div id="second2" style="position:absolute;width:'+scrollerwidth+';left:0;top:0">');
	document.write(messages[1]);
	document.writeln('</div>');
	document.writeln('</div>');
	document.writeln('</span>');
}
</script>
      </td>
    </tr>
    <tr>
      <td width="100" height="10"><p align=right>Skapa nyhet</p>
      </td>
    </tr>
  </table>
---------------------------------------Sv: Problem med layer
    
    
Jag kan inte se att det finns någonting i koden som kortar av någon text. På vilket sätt klipps texten av? Är du säker på att den inte kortas av när den lagras i databasen?