• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 241
  • Last Modified:

Retrieving filedate with ASP

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
EasyQ
Asked:
EasyQ
  • 12
  • 7
  • 6
  • +2
1 Solution
 
carlarneCommented:
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
 
sybeCommented:
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
 
mcixCommented:
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
Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

 
MasseyMCommented:
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
 
EasyQAuthor Commented:
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
 
sybeCommented:
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
 
EasyQAuthor Commented:
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
 
sybeCommented:
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
 
MasseyMCommented:
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
 
MasseyMCommented:
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
 
EasyQAuthor Commented:
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
 
sybeCommented:
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
 
EasyQAuthor Commented:
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
 
sybeCommented:
By the way my code is "pure" ASP
0
 
EasyQAuthor Commented:
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
 
sybeCommented:
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
 
EasyQAuthor Commented:
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
 
sybeCommented:
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
 
MasseyMCommented:
<%
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
 
EasyQAuthor Commented:
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
 
MasseyMCommented:
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
 
EasyQAuthor Commented:
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
 
EasyQAuthor Commented:
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
 
EasyQAuthor Commented:
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
 
MasseyMCommented:
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
 
EasyQAuthor Commented:
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
 
mcixCommented:
Looks to me like MasseyM answered your original question.
0
 
EasyQAuthor Commented:
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
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: Ruby Fundamentals

This course will introduce you to Ruby, as well as teach you about classes, methods, variables, data structures, loops, enumerable methods, and finishing touches.

  • 12
  • 7
  • 6
  • +2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now