Lethal Productions welcomes you

A nice place to send sms's, but only works in South Africa
Email me

If you have any javascripts for me to add to this site, please email using the address given with the rest of the links. :)

<% Dim color Dim resolution Dim rsCounter Dim adoCon Dim MyBrow Dim counter Dim temp Dim temp2 Dim totalCounter Dim filename Dim fs Dim viewOption strCounter = "" Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("counter/counter.mdb") Set MyBrow=Server.CreateObject("MSWC.BrowserType") Set rsCounter = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT count(*) as counter from counter;" rsCounter.Open strSQL, adoCon totalCounter = rsCounter("counter") rsCounter.Close strSQL = "SELECT distinct ip from counter;" rsCounter.Open strSQL, adoCon Do While(not rsCounter.Eof) counter = counter + 1 rsCounter.MoveNext Loop rsCounter.Close resolution = Request.Cookies("resolution") color = Request.Cookies("color") browser = Request.Cookies("browser") version = Left(Request.Cookies("version"),3) os = Request.Cookies("os") strSQL = "SELECT * FROM counter;" rsCounter.CursorType = 2 rsCounter.LockType = 3 rsCounter.Open strSQL, adoCon rsCounter.AddNew if(browser = "MicrosoftInternetExplorer") then browser = MyBrow.browser version = MyBrow.version End If if(browser = "Netscape" and version = "5.0") then version = version & "+" rsCounter("ip") = Request.ServerVariables("REMOTE_ADDR") if(os = "" or browser = "" or resolution = "" or color="") then else rsCounter("os") = os rsCounter("browser") = browser & " " & version rsCounter("resolution") = resolution rsCounter("color") = color & " bit" End If rsCounter("date") = date() rsCounter.Update rsCounter.Close %>

<% Set fs = CreateObject("Scripting.FileSystemObject") filename = server.mappath("counter/counter.nfo") Set readfile=fs.OpenTextFile(filename,1,False) viewOption = readfile.readline if(viewOption = "total") then temp = Len(totalCounter) temp2 = 1 Response.Write "

" Do While(temp > 0) Response.Write "" temp = temp - 1 temp2 = temp2 + 1 Loop Response.Write "

" elseif(viewOption = "totaltext") then Response.Write "

" & totalCounter & "

" elseif(viewOption = "unique") then temp = Len(counter) temp2 = 1 Response.Write "

" Do While(temp > 0) Response.Write "" temp = temp - 1 temp2 = temp2 + 1 Loop Response.Write "

" elseif(viewOption = "uniquetext") then Response.Write "

" & counter & "

" End If readfile.close set readfile=nothing %>