What really rocks ... is EXCEL games :) lolololol :)
Goto XL-Games:
Ahhhhh.. the old snake :)
What really rocks ... is EXCEL games :) lolololol :)
Goto XL-Games:
Ahhhhh.. the old snake :)
Actually the term or method "for-sale" cannot be a patent.
It describes common words, "for" and "sale". The word "for" indicates an object as a target or something where is aimed to. The word "sale" refers to an exchange of goods and services.
Both words, does not refer to anyhting new, or innovative, therefore, I have 100% doubts you have registered something "for-sale".
P.S.: I did not have any patent yet (takes too much time..) but I have registered several trademarks :)
Try passing vArray as an empty array...
I guess... UBound will return 0 and say it has elements...
Not sure.. have to test first...
Need something like:
iArraySize = UBound(vArray)
if iArraySize >0 then
ArrayHasElements = True
else
ArrayHasElements = False
end if
@aakoch said:
Public Function ArrayHasElements(vArray As Variant) As Boolean
Dim iArraySize As Integer
On Error GoTo ArrayHasElements_Error
iArraySize% = UBound(vArray)
ArrayHasElements = True
Exit Function
ArrayHasElements_Error:
ArrayHasElements = False
Exit Function
End Function
That's a matter of opinion...
I like to do sometimes...
if (error != false) {
show error! short code ...
} else {
OK, big code...
}
It depends on the code... If you have :
if (DeleteFile != false)
{// do stuff}
else
{// do other stuff}
Now... is DeleteFile a "positive" thing ?
@dhromed said:
Which brings me to this important pondering:
If you have a quantum computer, would an accidental infinite loop bring it down, or would it be able to finish it?
Nahhh.. it's so fast it would jump conditions and make range check errors :)
Altough, raytrace and do GI in real-time seems fun! :)
Have a small render farm at work with 12 pcs @ 3Ghz, power consumption is about 3.500 Watts, that machine would be cheaper in long term on a 24x7 enviroment!
Today we have have to reply more on power consumption than on speed...
Have you ever seen...
http://www.rocketcalc.com/index.php?loc=delta
I wonder how fast it should be...
Dreams ... dreams... :)
@sao said:
@paranoidgeek said:http://tinyurl.com/73aeb
Most people i know call those CPUs.
Oh, oh, u are SOOOOO just showing off now....
bloddy 64bit chips....
You certainly had not come to Portugal !
Portugal has so much variety that from North to South it has more 10.000 diferent meals, it's impossible to say bad things about Portuguese food.
I challenge you to come to Portugal :)
... and you will have a different picture of Europe!
:)
@Anonymous said:
<FONT size=1>I find interesting the differences between the American and European cultures, especially in regards to food and eating. I was in Europe not too long ago and was shocked at how people viewed the dining experience over there. Their portions were so small. Their drinks were small. Everything was smaller. And they didn't quite grasp the idea of an all-you-can-eat buffett. I received a lot of odd stares at a pizza shop because I was going back for my 4th, 5th, and 6th slices when most people were still nibbling on their first. Also, in some areas it is common to have a glass of wine with a meal. In the U.S. it's a glass of wine and then down the whole bottle. Another time I went to a European burger king and got their "large" coke, which equates to a super-small in the U.S. I wanted to ask for a refill but I felt so out of place doing so...so I never found out if Europe even allows them. The Europeans must view the American dining experience as "binge eating". They must think that every meal we have it has to be a feast. (Which in most cases is true.) Whilst in Europe I wanted to supersize everything. I wondered why everyone over there was so stingy with the food.
Hey Katja, what do you think about this?
</FONT>
Why I never use TRUE/FALSE, boolean fields...
First, you are always "converting" values...
Second, some SGBDs use 0/1, 0/-1 ... which messes binary operations..
Third, things are never what you think initially..
Example:
You have one field named "status", about one article.
True: article is visible.
False: article is hidden.
From my experience...
Assuming, that you are not limited to a true/false statement, now, imagine a BYTE field.
You can assume "new commands"...
0: article is visible
1: article is hidden
2: article is banned
9: article is deleted
Instead of delete imediatly, you can schedule a delete operation later..
so that your database is still "space" optimized...
Or if you still want to keep control of information... for instances, like eBay does, so that you always have the information in case of a Police request.
It's your choice...
@carfield said:
Although it sound strangle... my company don't use boolean datatype in database, we use char(1) and store 'Y' and 'N' and some internal function to return application true or false, I like to use boolean for boolean type, at least for new column definition. However my colleague think "don't fix if it not broken anything else". May be he is correct... what do you think about it? Besides, any agrument (or benefit) , for change the datatype to boolean?
ahahahahah :D
I have to laugh about this...
I guess I can believe on this.. I had a long time ago a ZX Spectrum - Timex 2048, I did also the freezer thing... but it worked properly while the temperature was low... What is good doesn't last forever :)))
My best "technique" was to hit the computer on the floor... that always gave one week without problems..
After one week... PUMM on the floor... LOL :))))
I guess the components were quite "unstable" ...
:)
@rumo said:
did the freezer thing with my external maxtor 120, runs perfectly since, 3 months or so...(and no, I don't put anything important there...)
I guess the drives are on raid stripping mode... Whichs create a huge "drive"...
@ my work we have an Canopus Edius HDV with 600 GB redudant raid (4 drives of 300GB).
We can say it is 1.2 TB on 4 drives but since it is redudant, it's only 600GB usable.
@John Smallberries said:
@slainangel said:@raiden22006 said:I have a 300 gb hard drive but i wasent able to put xp on it because it had too much space on it and xp only goes up to 160 gb
That's a bit of a low limit... I'm running XP on a 1200 GiB drive with no problems.
A 1.2 TB drive?
The largest drive I've seen is 400 GB. Is this a bunch a drives configged to create a huge logical drive?
@noe said:
But I repeat, if you want syntax highlighting, smart indentation and many more
usefull things, use emacs, SciTe or VIM.
VIM ... arrggghhhhhhhh !!!
I installed SUSE 10... just had seen linux 2 or 3 times before (Mandrake)... I took more than one hour to learn how to save on VIM... grrrrrr... ESC ESC :w ENTER
But instead I took an incredible lightning fast setup of a 3G pcmcia card (Option / Qualcomm) from TMN of 15 minutes... the ISP, told me it was not possible to setup on Linux!
Don't you hate those dumb helpdesk girls ?
LOL :D
I was just reviewing some of my old work in ASP...
I dont use ASP any longer, turned to PHP instead.
I use Delphi more often for off-line solutions.
Sorry for the big post... I am just curious :)
Actualy only global.asa is messy...
::: global.asa :::
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Function FilterDomain(s)
Dim p1, p2
p1 = InStr(1,s,"www.",0)
p2 = InStr(p1+1,s,".com",0)
If p1 = 0 Then
p1 = 1
Else
p1 = 5
End If
If p2 = 0 Then
p2 = Len(s) + 1
End If
FilterDomain = Mid(s, p1, p2 - p1)
End Function
Function RegSub(sStr, sExp, sRep)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = sExp
RegEx.IgnoreCase = True
RegEx.Global = True
RegSub = RegEx.Replace(sStr,sRep)
End Function
Sub Session_OnStart()
Dim s, sv, se
On Error Resume Next
If VarType(Application("local")) <> 8 Then
se = Request.ServerVariables("SERVER_NAME")
's = RegSub(se, "[\D]", "")
'If s = "" Then
s = FilterDomain(se)
'End If'
Application("server") = s
If ((s="pc1") or (s="localhost") or (s="127.0.0.1")) Then
sv = "local"
Application("logpath") = "c:\webroot\mylogs\"
Application("counterfile") = Application("logpath") &"counter.txt"
Application("emailsfile") = Application("logpath") &"emails.txt"
Application("errorsfile") = Application("logpath") &"errors.txt"
Application("logfile") = Application("logpath") &"log"& right(year(now),2) & right(month(now)+100,2) & right(day+100,2) &".txt"
Application("db") = "c:\webroot\db\db.mdb"
Application("dbconn") = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Application("db") &";"
Application("mailserver") = "smtp.server.TLD"
Else
sv = "server"
Application("logpath") = "c:\aweb_apache\loja24com\mylogs\"
Application("counterfile") = Application("logpath") &"counter.txt"
Application("emailsfile") = Application("logpath") &"emails.txt"
Application("errorsfile") = Application("logpath") &"errors.txt"
Application("logfile") = Application("logpath") &"log"& Year(Date) & Right(Month(Date) + 100,2) & Right(Day(Date) + 100,2) &".txt"
Application("db") = "c:\server_path\db\db.mdb"
Application("dbconn") = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Application("db") &";"
Application("mailserver") = "smtp.hostserver.TLD"
End If
Application("local") = sv
Session.Timeout = 60
End If
End sub
Sub Session_OnEnd()
Session.Contents.RemoveAll()
End sub
</SCRIPT>
::: db.asp :::
<FONT size=2>Function FastOpenDBRef(SQL, FilePath, ByRef Dados)
Dim Conn, Erro, rs
On Error Resume Next
Err.Clear
Err = 0
Erro = 0
'Response.Write "FilePath : "& FilePath &"<br>"
'Response.Write "App(""conn"") : "& Application("dbconn") &"<br>"
Set Conn = Server.CreateObject("ADODB.Connection")
If FilePath = "" Then
Conn.Open Application("dbconn")
Else
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& FilePath &";"
End If
Set rs = Conn.Execute(SQL)
If (Err <> 0) Then
'Response.Write "Erro #"& Err &" : "& Err.Description &"<br><br>"
Erro = Err
Else
If (rs.eof) Then
Erro = 1
Else
Dados = rs.GetRows
End If
End If
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
FastOpenDBRef = Erro
End Function
</FONT>
::: default.asp :::
(...)
Dim d
Dim name, img
SQL = "select f1,f2,f3,f4,f5 from table;"
<FONT size=2>If FastOpenDBRef(SQL,"",d) <> 0 Then
%>
No articles.
<%
Else
nr = UBound(d,2)
b = true
f = 0
Do While f <= nr
name = d(1,f)
img = d(2,f)
' test if is null ---> If IsNull(img) then img = ""
If b = false Then
' imagine a table with colored rows --> Response.Write " bgcolor=""#ffffff"""
Else
' imagine a table with colored rows --> Response.Write " bgcolor=""#f5f5f5"""
End If
Response.Write name & img
b = Not b
f = f + 1
Loop
<%
End If
</FONT>%>
This buffered contents seemed faster at the time, do you have used such technics ?
Or this is just one big WTF :D