Tom Curran, Inet+, webmaster
tel. (802) 893-2503
info@websitedesignsofvt.com
or
Use our handy contact form.
At Website Designs of Vermont we understand that "YOU" decide how your website should look.
Whether creating a web design for a large corporation or for a small family business in Vermont's Green Mountains, our website designs reflect the wishes of our clients. During our free consultation we will discuss the nature and character you desire for your website design as well as its features and functionality. Once you are satisfied with a theme for your web design, we will handle the technicalities of establishing its presence on the net, arranging for hosting , media and animations, e-commerce, search engine submission and any other features you desire.
Website Designs of Vermont utilizes the latest in professional web design software and is trained in:
Adobe Photoshop™ |
Microsoft Frontpage™ |
Macromedia Dreamweaver™ |
Flash™ |
Freehand™ |
Fireworks™ |
C++ |
Visual Basic |
ASP |
PHP |
Java Script |
SQL Databases for
Access™, MySql™, and SQL Server™ |
webmaster Tom Curran is also CompTIA iNet+ certified |
||
Website Designs of Vermont can also handle all your digital photography needs, graphics and logo design. Photos can be prepared for publication or optimized for fast loading on the web or for e-mail newsletters.
If you are a small business and would like to have a web design including e-commerce, but thought it was too expensive or feared its technicalities, Website Designs of Vermont can show you just how easy and affordable it is. For example we can set you up through Microsoft's bCentral™ Commerce Manager with a product catalog, on-line ordering, shopping carts and credit card processing for as little as a couple of hundred dollars!
Please contact us at Website Designs of Vermont for all your website or graphics design needs.
Thank you.
info@websitedesignsofvt.com
<%
'*******************************************************
'* ASP 101 Sample Code - http://www.asp101.com/ *
'* *
'* This code is made available as a service to our *
'* visitors and is provided strictly for the *
'* purpose of illustration. *
'* *
'* http://www.asp101.com/samples/license.asp *
'* *
'* Please direct all inquiries to webmaster@asp101.com *
'*******************************************************
%>
<%
' Declare our vaiables
Dim objFSO, objCountFile ' object vars for FSO and File
Dim strCountFileName ' filename of count text file
Dim iCount ' count variable
Dim bUseImages ' boolean whether or not to use images
Dim I ' standard looping var
' Determine whether we use images or plain text
' You could just set this to True or False instead
bUseImages = CBool(Request.QueryString("images"))
' Compute our count file's filename
' This is based on the file from which you call count.asp
' It basically takes that name and appends a .cnt so I don't
' accidently overwrite any files. If for some reason you have
' a file named script_name.asp.cnt then change this or watch out!
strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".cnt")
' Create FileSystemObject to deal with file access
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Open the file as a text stream (1 = ForReading, True = Create)
Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
' Read the current count from the file
If Not objCountFile.AtEndOfStream Then
' Set value to contents of the file
iCount = CLng(objCountFile.ReadAll)
Else
' If no file exists or it's empty start at 0
iCount = 0
End If
' Close the file and destroy the object
objCountFile.Close
Set objCountFile = Nothing
' Increment the count
iCount = iCount + 1
' Overwrite existing file and get a text stream to new one
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
' Write updated count
objCountFile.Write iCount
' Close the file and destroy the object
objCountFile.Close
Set objCountFile = Nothing
' Destroy the FSO object
Set objFSO = Nothing
' We're all done with the hard part
' All that's left is to display the results
If bUseImages Then
' Loop through the count integer showing each digit
' You can grab the images one at a time or get the zip
' http://www.asp101.com/samples/download/counter_imgs.zip
For I = 1 to Len(iCount)
' Output the IMG tag using the right digit
Response.Write ""
Next 'I
Else
' No image wanted just show the variable
Response.Write (iCount)
End If
%>