| |
|
| |
| Clients | Personal |
|
Rally in the Rockies A site that work on for The Four Corners Rally in the Rockies motorcycle rally. This site is now link to by Harley Davidson. :) See it here. AzCom Paging, Inc. A web page that I made for work. See it here. Attitudes in Action This site is for a sports photographer. See it here. I customized LINPHA for her and I will be adding a shopping cart. She had over 1,000 photos to put on this site. I REALLY did not want to manually resize a 1,000 photos fresh from 3-5 mega-pixel digital cameras, and I could not find a suitable piece of software to do it. So, I made a program do to it for me. Get my FREE PicResizer program. Pueblo Perfect Pets These people wanted a simple and cute website. OK! They put their web address on their "rolling billboard" SUV and their inquiries have doubled or tripled. I am always amazed what a difference even the simplest website can do for a business. See it here. Very cute Pek a Poo puppies! |
Mousespud The www done old school. This page looked terrible on the old computers at the community college that I used to go to. So, I went old school and designed a webpage using ONLY 16 colors (4 bit color). I think it looks rather nice despite the limitations. See it here. Christi and Darrell Believe it or not, there is a bunch of tweaking on Xoops in this page. I found that some Xoops modules were lacking in eye appeal. See it here. Javalounge I thought I was getting into a design rut, so I wanted something a little loud and fun. SO... See it here. Marine Corp League of Colorado My community service project. I help these guys maintain their site. I added a webmail program, site search, and a form so people can join. See it here. |
I got tired of typing in the javascript to hide email addresses from spam bots, so I made NukeEmail to do it for me. |
|
I couldn't find a free asp counter with stats that was even close to what I needed so I made one. I am not a big fan of asp. Here's the code: |
|
<%
'change the base path to suit your needs
'make sure it is writable by the web server
'files will be named in this format:
'3-letter-month and year . txt
'example jun2004.txt
'Enjoy Darrell
basepath = "C:\wwwroot\webstats\"
mnth = Lcase(MonthName(Month(Now), true))
yr = Year(Now)
countname = mnth & yr & "count.txt"
statsname = mnth & yr & ".txt"
Set countFSO = Server.CreateObject("Scripting.FileSystemObject")
Set countFile = countFSO.OpenTextFile(basepath & countname,1,true)
if countFile.AtEndOfStream <> true then
oldNo = CLng(countFile.ReadLine)
end if
countFile.Close
newNo = oldNo + 1
Set countFile = countFSO.OpenTextFile(basepath & countname,2,true)
countFile.WriteLine(newNo)
countFile.Close
'write the count to the page
Response.Write newNo
Set statsFSO = Server.CreateObject("Scripting.FileSystemObject")
Set statsFile = countFSO.OpenTextFile(basepath & statsname,8,true)
vip = Request.ServerVariables("REMOTE_ADDR")
vpage = Request.ServerVariables("PATH_INFO")
vref = Request.ServerVariables("HTTP_REFERER")
wrtStr = newNo & vbTab & Date & vbTab & time & vbTab & vip & vbTab & vpage & vbTab & vref
statsFile.WriteLine(wrtStr)
statsFile.Close
%> | |
|
You might to wrap this in a function or what ever. This counter resets monthly. The text file is tab delimited so it is an easy import into Excel. And by the way, whats up with these windows guys charging for code? Its only a counter. Get over yourself! | |
| Will code HTML for Beer! If you are a friend, that is. If you are not a friend, then I charge web work. I don't care if it is database with php or asp, or just straight up html. for a quote | |