Min pictures.asp er en jeg har lavet udfra den der hedder selcolor.htm som er til at ændre farverne. Men jeg har endnu ikke ændret mine arr ... jeg ved ikke hvad den skal ændre stil. Check denne for at se hvad jeg har:
http://www.havneparken1vejle.dk/iArrangementsudvalg/Editor/index.htmHer er min pictures.asp
<HTML>
<HEAD>
<TITLE>Vælg et billed</TITLE>
<STYLE TYPE="text/css">
BODY {margin-left:10; font-family:Verdana; font-size:12; background:menu}
BUTTON {width:5em}
P {text-align:center}
TABLE {cursor:hand}
</STYLE>
<SCRIPT LANGUAGE=JavaScript FOR=ColorTable EVENT=onclick>
<!--
SelColor.value = event.srcElement.title;
// -->
</SCRIPT>
<SCRIPT LANGUAGE=JavaScript FOR=ColorTable EVENT=onmouseover>
<!--
text = event.srcElement.title;
if ( text != event.srcElement.bgColor )
text += " (" + event.srcElement.bgColor + ")";
RGB.innerText = text;
// -->
</SCRIPT>
<SCRIPT LANGUAGE=JavaScript FOR=ColorTable EVENT=onmouseout>
<!--
RGB.innerText = " ";
// -->
</SCRIPT>
<SCRIPT LANGUAGE=JavaScript FOR=Ok EVENT=onclick>
<!--
window.returnValue = SelColor.value;
window.close();
// -->
</SCRIPT>
</HEAD>
<BODY onload="SelColor.focus()">
<DIV> </DIV>
<P>
<TABLE ID=ColorTable
BORDER=1
BORDERCOLOR=SILVER
BORDERCOLORLIGHT=WHITE
BORDERCOLORDARK=BLACK
CELLSPACING=0
CELLPADDING=0>
<TR>
<% strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
For Each objFileItem in objFolderContents
Response.Write("<TD TITLE=http://www.havneparken1vejle.dk/iArrangementsudvalg/Pics/" & objFileItem.Name & ">" & objFileItem.Name )
Response.Write"<TR>"
Next %>
</TABLE>
<P>
<LABEL FOR=SelColor>Billed:</LABEL>
<INPUT TYPE=TEXT SIZE=70 ID=SelColor>
<BR>
<SPAN ID=RGB> </SPAN>
<P>
<BUTTON ID=Ok TYPE=SUBMIT>OK</BUTTON>
<BUTTON ONCLICK="window.close();">Luk</BUTTON>
</BODY>
</HTML>