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 IfEnd 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