Solved

Retrieving filedate with ASP

Posted on 1998-09-18
28
215 Views
Last Modified: 2013-12-25
I need to get the date from a file so that I can compare it to a value. Is there any easy function for this that works in  both IIS3 and 4?
(IIS4-only solution is ok too though).
0
Comment
Question by:EasyQ
  • 12
  • 7
  • 6
  • +2
28 Comments
 

Expert Comment

by:carlarne
Comment Utility
there is no objects in ASP to do this. I use an object from Stephen Genusa, www.genusa.com (I belive this is the right url) to do this. The objects called file object or genobj.
The only draw back with this is that the object cost money.
But it's realy good.
Carl
0
 
LVL 28

Expert Comment

by:sybe
Comment Utility
You could try it using perlscript in ASP, I think perl has some more possibilities to access the filesystem. Perlscript will only run in ASP when you have perl installed.

0
 
LVL 4

Expert Comment

by:mcix
Comment Utility
If you want to get the create or last modified date of a file you could use the FileSystemObject from VBScript.

Take a look @:

http://www.microsoft.com/iis/support/iishelp/vbscript/htm/vbs400.htm
0
 
LVL 10

Expert Comment

by:MasseyM
Comment Utility
This is how you do it...

<%
On Error Resume Next
Set fs = Server.CreateObject("Scripting.FileSystemObject")
      If NOT fs.FileExists(TheDataBase) then
            TheDatabase = "D:\208.201.45.77\crm\index.asp"
      End If
Set database = fs.GetFile(TheDatabase)
thisfiledate = date()
thisfiletime = time()
%>


YOu will need to know the physical path of the file.  If you do not, you can do two things.
1) ask the ISp for the phsical path to your files
2) use the MapPath method to find it your self....\
0
 

Author Comment

by:EasyQ
Comment Utility
MasseyM

You must have missed something... by setting thisfiledate = date() you just assign the value of the current date from the server. Nothing that has to do with the file...

0
 
LVL 28

Expert Comment

by:sybe
Comment Utility
EasyQ, then reject MasseyM's answer...

The answer of mcix will put you on the right track.
If you have rejected MasseyM's question I can provide you with working code.

0
 

Author Comment

by:EasyQ
Comment Utility
There you go sybe
I need it to work in ASP. Is there a function to do this without an extra (and expensive) object?

I could use a code in VB though I would very much preffer to have it in ASP since I want to be able to use the value in the ASP code.
0
 
LVL 28

Expert Comment

by:sybe
Comment Utility
Ok, here you go:

<SCRIPT RUNAT="SERVER" LANGUAGE="VBSCRIPT">
Function FileDate(filespec)
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set f = fs.GetFile(filespec)
   s = f.DateCreated
   FileDate = s
End Function
</SCRIPT>



<%
strFile = "C:\autoexec.bat"
dtFiledate = FileDate(strFile)
Response.write dtFiledate & "<br>"
%>

0
 
LVL 10

Expert Comment

by:MasseyM
Comment Utility
TAlk about stealing someones answer Sybe... What is your problem?  You say that I always steal yours...

BTW, the variable "Database" is the varisble that holds the "time/date" values...

so if you had <% =database %> it would print the "last modified" values for the file...  

Learn to read your code...

0
 
LVL 10

Expert Comment

by:MasseyM
Comment Utility
TAlk about stealing someones answer Sybe... What is your problem?  You say that I always steal yours...

BTW, the variable "Database" is the varisble that holds the "time/date" values...

so if you had <% =database %> it would print the "last modified" values for the file...  

Learn to read your code...

0
 

Author Comment

by:EasyQ
Comment Utility
MasseyM:
I'm really sorry for letting sybe answer. He kinda tricked me I think. Anyway, I still would preffer to have it in pure ASP, not an "exta" VB-code. And I think that's what you are trying to do for me.
There was no reason shouting at me... besides, i can't get anything out of the database it's epty it seems. To get this to work propperly, do I need IIS4? Or should it work with IIS3 too? If I need IIS4 then we've found the problem... anyway, if that is what's missing, I'll wait til I have installed IIS4 and seen that it works. Then I'll give the points to you. Otherwise I really do have to give them to sybe since he's the only one with a working code...
But I'd rather see I gave them to you since you were "first" and also, you seem to know how to make it pure ASP.

/EasyQ
0
 
LVL 28

Expert Comment

by:sybe
Comment Utility
EasyQ,

please reject my answer and give the points to MassyeM. I do not want them anymore.

I don't want to have such discussions here. And I really do not want to be accused of "tricking".
0
 

Author Comment

by:EasyQ
Comment Utility
Actually, sybes answer didn't work either. Al I need is a working code, didn't think I'd end up in some rivatly betwen the two of you.

I'll give the points to the one whoever can give me a working code.
If both does that, then I'll give it to the one with "pure" ASP.
And if both do even that I'll give it to MasseyM since he WAS the first one to help me.
0
 
LVL 28

Expert Comment

by:sybe
Comment Utility
By the way my code is "pure" ASP
0
Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

 

Author Comment

by:EasyQ
Comment Utility
Sybe: No It ain't you have a VB script at the top, can't you see that?
I don't know how it works around here, I figured getting a working code was of main importance. But it seems like you are more after points since you tell me to dump MasseyM and then your code doesn't work either.
As I said, I don't really care who gives me the code, asklong as it works. But, I'm well aware of the fact that MasseyM was first.

0
 
LVL 28

Expert Comment

by:sybe
Comment Utility
EasyQ:

1. In ASP it is also allowed to use the code exactly as I wrote it. You can just copy and paste it to get valid ASP code. In fact this is the only way that global.asa accepts code.
A good thing about writing code in this way, is that you can switch languages in one ASP page. The restriction for one language only counts for the code between <% and %>.

2. You are right that the code does not work on IIS3. I am sorry, but I tested it on IIS4 and PWS (that is where it works). I guessed that when it works on PWS it should work on IIS3 too.

3. MasseyM was first to answer your question. I do not question that. I am not only here to get the points, but I don't like it when someone else gets the points for my answer (and that has happened a number of times) and I certainly do not like to be accused of "tricking".

0
 

Author Comment

by:EasyQ
Comment Utility
Thanx for your quick reply Sybe. I did not mean as much as you think with "tricking" and I'm truly sorry I used that word. I have to wait til I install IIS4 (hopefully tomorrow) before I can come back and If MasseyM hasn't come up with a just as good working answer you'll recieve the points.

I did not get what you said about the code? Part of it was VB code right? Or is ASP and VB the same thing? Can I f.i. call an ASP funktion from VB and vice.versa? Can I excahnge the "<Script language etc.." with "<%"? or do I need to have it as "standalone"?

Once again, I'm sorry for calling you a trickster and I really aprecciate your quick replies.
0
 
LVL 28

Expert Comment

by:sybe
Comment Utility
There are some differences between VB, VBA and VBS. ASP uses VBS.  But it is possible to define functions and subs in VBS just like in VB and VBA.

You can exchange the <% and <SCRIPT LANGUAGE=...> quite freely, but again there are some differences, for example:

<%
Response.write "<script>alert('hello')</script>
%>

is valid code

but
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
Response.write "<script>alert('hello')</script>
</SCRIPT>

Returns an error


0
 
LVL 10

Accepted Solution

by:
MasseyM earned 50 total points
Comment Utility
<%
On Error Resume Next
Set fs = Server.CreateObject("Scripting.FileSystemObject")
      If NOT fs.FileExists(TheDataBase) then
            TheFile = "physical path to a known file ie c:\internet\index.asp"
      End If
Set FileDT = fs.GetFile(TheFile)
%>

<% =FileDT.DateLastModified %><!-- This will disply the date and time -->


Save this as something like datatime.inc and then use this code to call it:

<% TheFile = "the file you want to get date & time" %>
<!-- #Include Virtual="pathto\datetime.inc" -->


0
 

Author Comment

by:EasyQ
Comment Utility
MasseyM:
You didn't mention: If your code is IIS4 only? If so I can't test it until I get the new server running.. hopefully today or tomorrow.
I'll try all the code's I've got then and see which ones works.

Thanx both of you. I'll get back to you when I've been able to try the codes out.
0
 
LVL 10

Expert Comment

by:MasseyM
Comment Utility
I am not sure if it runs on IIS3.0 or not... I use IIS4 and PWS on my machine here at home...

Sorry.

0
 

Author Comment

by:EasyQ
Comment Utility
This is the code I got it to work with...
<%
On Error Resume Next
Set fs = Server.CreateObject("Scripting.FileSystemObject")
TheFile = "G:\intranet\public\vCard\vCard.vcf"
Set FileDT = fs.GetFile(TheFile)%>
<%="*"&FileDT.DateLastModified&"*" %>
(After installing IIS4)
Does this function get folders too?
I am planning to use it like this (Have tried it with files-only)
I want it to check a library, see if any of the files/folders are changed within last 24 hours. If it finds a folder it should go into it and check the files/folders there too.
At this point I have got it to check the date of all files in a specific folder with the getFile and "for each/for all items".
0
 

Author Comment

by:EasyQ
Comment Utility
This is my program thisfar... evrything works fine, the only problem is that I cannot find a way to get the names of subfolders...

<html>
<table>
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("X:\xxxxx\xxxx\xxx")
Set fc = f.Files
Response.write "<tr><td><b>Folder:</b>"&f.name&"</td><td>"&f.DateLastModified &
"</td></tr>"
For each f1 in fc
Response.write "<tr><td>"&f1.name&"</td><td>"&f1.DateLastModified & "</td></tr>"
Next
%>
</table>
</html>
0
 

Author Comment

by:EasyQ
Comment Utility
I have almost got it working... the final touch is to set a variable each time I call the sub. Is that possible? Something like this:

<%
Sub changed(BaseFolder)

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(BaseFolder)
Set sf = f.SubFolders

For each f1 in sf
      Set f = fs.GetFolder(f1)
      Set fc = f.Files
      For each item in fc
      If item.DateLastModified > DateSerial(Year(Date()),Month(Date()),Day(Date()-1)) then
      DiD=1
      End If
      Next
Next
End Sub
%>
<%
DiD = ""
Call changed("X:xxx\xxx")
anmalningslistor = DiD
DiD = ""
Call changed("X:\xxx\xxx")
vCard = DiD
DiD = ""
%>
0
 
LVL 10

Expert Comment

by:MasseyM
Comment Utility
Here is a program that I use to search my hard drive and view images as backgrounds:

go2.asp
--------------------------------------------------
<html>
<head><title></title></head>
<body>

<STYLE>
TH      {
      color:Black;
      background:Silver;
      }

</STYLE>

<% SG = Request.QueryString("SG") %>

<%

Set fs = CreateObject("Scripting.FileSystemObject")       'Create the FileSystemObject
Set fold = fs.GetFolder(Request.QueryString("F"))
Response.Write ("<TABLE WIDTH='100%'>")
Response.Write ("<TR><TD>")

 Response.Write ("      <TABLE BORDER WIDTH='100%'>")
 Response.Write ("            <TH>" & fold.Path & "</TH>")                  'and path
 Response.Write ("      </TABLE>")            
 Response.Write ("</TD></TR>")

response.Write "<TABLE WIDTH='100%'><TR><TD VALIGn=TOP>"
Response.Write "<TABLE WIDTH='100%'>"
 Set foldCol = fold.SubFolders                              'Create a SubFolders collection
 For Each Y in foldCol                                    'Iterate through it
  Response.Write "<TR>"                              
  Response.Write "<TD><IMG SRC='/GRAPHICS/Folder.Gif'><A HREF=go2.asp?F=" & Y.Path
  If SG = "1" then Response.Write "&SG=1"
  Response.Write ">" &Y.Name & "</A>"
  Response.Write "</TD>"
  Response.Write "</TR>"
 Next
  Response.Write "</TABLE>"

Response.Write "</TD><TD>"

response.Write "<TABLE WIDTH='100%'>"
 Set foldCol2 = fold.Files                              'Create a Files collection
 For Each Y in foldCol2
 Cur = Cur + 1                                    'Iterate through it
  If Cur >= 6  then Response.Write "<tr>"      
  Response.Write "<td WIDTH='20%'>"
  If SG = "1" then
      If Right(Y.Path,3) = "gif" or Right(Y.Path,3) = "jpg" Then Response.Write "<IMG WIDTH =50 HEIGHT=50  SRC=" & Y.Path &" ><BR>"

  End If
  Response.Write "<A HREF=ViewasBG.asp?G=" & Y.Path
  If SG = "1" then Response.Write "&SG=1"
  Response.Write ">" &Y.Name & "</A>"            'Print the files name

  Response.Write "</td>"
  If Cur >= 5 then
      Response.Write "</tr>"
      Cur = 0
  End If
 Next                                                      
 Response.Write "</table>"
 For Each Y in foldCol                                    'Now lets iterate through the folder collection again
 Next
Response.Write "</TABLE>"
Response.Write "</TD></TR></TABLE>"

%>


SAMPLE.ASP
----------------------------------------------------------
<HTML>
<HEAD>
<TITLE>Sample Graphic Viewing Page</TITLE>
</HEAD>

<%
If ML = "" then ML = 0
%>

<BODY BACKGROUND=<%=Graphic %> STYLE="font-family: Wesley; margin-top:0; margin-left:<%=ML %>; color:blue;">
<center>

</TD></TR></TABLE>
<FONT COLOR="#FFFFFF">ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=`~!@#$%^&*()_+|[]{};':",./<>?</FONT><BR>
<FONT COLOR="#C0C0C0">ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=`~!@#$%^&*()_+|[]{};':",./<>?</FONT><BR>
<FONT COLOR="#808080">ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=`~!@#$%^&*()_+|[]{};':",./<>?</FONT><BR>
<FONT COLOR="#000000">ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=`~!@#$%^&*()_+|[]{};':",./<>?</FONT><BR>
<FONT COLOR="#8000FF">ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=`~!@#$%^&*()_+|[]{};':",./<>?</FONT><BR>
<FONT COLOR="#000080">ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=`~!@#$%^&*()_+|[]{};':",./<>?</FONT><BR>
<FONT COLOR="#008000">ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=`~!@#$%^&*()_+|[]{};':",./<>?</FONT><BR>
<FONT COLOR="#FFFF00">ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=`~!@#$%^&*()_+|[]{};':",./<>?</FONT><BR>
<FONT COLOR="#FF8000">ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=`~!@#$%^&*()_+|[]{};':",./<>?</FONT><BR>
<FONT COLOR="#FF0000">ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=`~!@#$%^&*()_+|[]{};':",./<>?</FONT><BR>

<P><BR>

<TABLE BORDER=0 cellpadding=8>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#010101" size=4>Black<br>#000000</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#191919" size=4>Black [90%]<br>#191919</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#333333" size=4>Black [80%]<br>#333333</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#4c4c4c" size=4>Black [70%]<br>#4c4c4c</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#666666" size=4>Black [60%]<br>#666666</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#7f7f7f" size=4>Black [50%]<br>#7f7f7f</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#999999" size=4>Black [40%]<br>#999999</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#b2b2b2" size=4>Black [30%]<br>#b2b2b2</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#cccccc" size=4>Black [20%]<br>#cccccc</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#e5e5e5" size=4>Black [10%]<br>#e5e5e5</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#ffffff" size=4>White<br>#ffffff</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#0000ff" size=4>Blue<br>#0000ff</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#00ffff" size=4>Cyan<br>#00ffff</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#00ff00" size=4>Green<br>#00ff00</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ffff00" size=4>Yellow<br>#ffff00</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#ff0000" size=4>Red<br>#ff0000</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ff00ff" size=4>Magenta<br>#ff00ff</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#9900cc" size=4>Purple<br>#9900cc</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ff6600" size=4>Orange<br>#ff6600</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ff99cc" size=4>Pink<br>#ff99cc</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#663333" size=4>Dark Brown<br>#663333</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ccccff" size=4>Powder Blue<br>#ccccff</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#9999ff" size=4>Pastel Blue<br>#9999ff</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#6699ff" size=4>Baby Blue<br>#6699ff</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#6666ff" size=4>Electric Blue<br>#6666ff</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#6666cc" size=4>Twilight Blue<br>#6666cc</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#003399" size=4>Navy Blue<br>#003399</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#000066" size=4>Deep Navy Blue<br>#000066</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#336699" size=4>Desert Blue<br>#336699</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#00ccff" size=4>Sky Blue<br>#00ccff</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#99ffff" size=4>Ice Blue<br>#99ffff</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#99cccc" size=4>Light BlueGreen<br>#99cccc</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#669999" size=4>Ocean Green<br>#669999</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#336666" size=4>Moss Green<br>#336666</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#003333" size=4>Dark Green<br>#003333</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#006633" size=4>Forest Green<br>#006633</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#009933" size=4>Grass Green<br>#009933</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#339966" size=4>Kentucky Green<br>#339966</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#33cc66" size=4>Light Green<br>#33cc66</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#33cc33" size=4>Spring Green<br>#33cc33</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#66ffcc" size=4>Turquoise<br>#66ffcc</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#33cc99" size=4>Sea Green<br>#33cc99</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#99cc99" size=4>Faded Green<br>#99cc99</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ccffcc" size=4>Ghost Green<br>#ccffcc</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#99ff99" size=4>Mint Green<br>#99ff99</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#669966" size=4>Army Green<br>#669966</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#669933" size=4>Avocado Green<br>#669933</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#99cc33" size=4>Martian Green<br>#99cc33</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#99cc66" size=4>Dull Green<br>#99cc66</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#99ff00" size=4>Chartreuse<br>#99ff00</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#ccff66" size=4>Moon Green<br>#ccff66</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#333300" size=4>Murky Green<br>#333300</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#666633" size=4>Olive Drab<br>#666633</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#999966" size=4>Khaki<br>#999966</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#999933" size=4>Olive<br>#999933</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#cccc33" size=4>Banana Yellow<br>#cccc33</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ffff66" size=4>Light Yellow<br>#ffff66</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ffff99" size=4>Chalk<br>#ffff99</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ffffcc" size=4>Pale Yellow<br>#ffffcc</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#996633" size=4>Brown<br>#996633</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#cc6633" size=4>Red Brown<br>#cc6633</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#cc9933" size=4>Gold<br>#cc9933</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ff6633" size=4>Autumn Orange<br>#ff6633</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ff9933" size=4>Light Orange<br>#ff9933</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ff9966" size=4>Peach<br>#ff9966</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#ffcc00" size=4>Deep Yellow<br>#ffcc00</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ffcc99" size=4>Sand<br>#ffcc99</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#663300" size=4>Walnut<br>#663300</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#990000" size=4>Ruby Red<br>#990000</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#cc3300" size=4>Brick Red<br>#cc3300</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#ff6666" size=4>Tropical Pink<br>#ff6666</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ff9999" size=4>Soft Pink<br>#ff9999</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ffcccc" size=4>Faded Pink<br>#ffcccc</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#993366" size=4>Crimson<br>#993366</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#cc3366" size=4>Regal Red<br>#cc3366</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#cc3399" size=4>Deep Rose<br>#cc3399</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ff0066" size=4>Neon Red<br>#ff0066</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ff6699" size=4>Deep Pink<br>#ff6699</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ff3399" size=4>Hot Pink<br>#ff3399</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#cc6699" size=4>Dusty Rose<br>#cc6699</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#660066" size=4>Plum<br>#660066</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#990099" size=4>Deep Violet<br>#990099</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#ff99ff" size=4>Light Violet<br>#ff99ff</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#cc66cc" size=4>Violet<br>#cc66cc</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#996699" size=4>Dusty Plum<br>#996699</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#cc99cc" size=4>Pale Purple<br>#cc99cc</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#9933cc" size=4>Majestic Purple<br>#9933cc</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#cc33ff" size=4>Neon Purple<br>#cc33ff</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#cc66ff" size=4>Light Purple<br>#cc66ff</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#9966cc" size=4>Twilight Violet<br>#9966cc</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#cc99ff" size=4>Easter Purple<br>#cc99ff</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#330066" size=4>Deep Purple<br>#330066</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#663399" size=4>Grape<br>#663399</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#9966ff" size=4>Blue Violet<br>#9966ff</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#9900ff" size=4>Blue Purple<br>#9900ff</FONT></TD>
</TR>
<TR>
<TD ALIGN=LEFT><FONT COLOR="#6600cc" size=4>Deep River<br>#6600cc</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#6633ff" size=4>Deep Azure<br>#6633ff</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#330099" size=4>Storm Blue<br>#330099</FONT></TD>
<TD ALIGN=LEFT><FONT COLOR="#3300cc" size=4>Deep Blue<br>#3300cc</FONT></TD>
</TR>
</TABLE>
</B></font></H3>

</BODY></HTML>


</BODY>
</HTML>


I am not sure if this will help you or not...

But, this is a good utility anyway.

0
 

Author Comment

by:EasyQ
Comment Utility
Well, the color-codes could come in handy sometime maybe... but anyhow, I've solved it on my own. Sybe, MassayM intressted in the code? (I don't actaully know which one of you to award the points to... I think both helpt me part of the way and then I got alot of help from my self and by visiting the page mcix told me about...
0
 
LVL 4

Expert Comment

by:mcix
Comment Utility
Looks to me like MasseyM answered your original question.
0
 

Author Comment

by:EasyQ
Comment Utility
Evrything is working fine and have some new problems but I'll post them as a seppertae Question. Thanx all of you. MassayM get's the points since he was first.. and I got a bonus-program from him :)

Sybe, you were woth them to!

Thanx all!
0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

Why do we like using grid based layouts in website design? Let's look at the live examples of websites and compare them to grid based WordPress themes.
Envision that you are chipping away at another e-business site with a team of pundit developers and designers. Everything seems, by all accounts, to be going easily.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
The viewer will learn how to dynamically set the form action using jQuery.

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now