<%@ LANGUAGE="VBSCRIPT" %> <% dim title, sidebar, partnerbanner title = "Composting" 'sidebar = 1 selectedsection=1 'partnerbanner = 1 %> Medal Engraving










Advanced Engraving
3050 Washington St.
Columbus, IN 47201

Phone 812-378-4191
Cell 812-371-5191

Email





Copyright 2009
Designed by Art in the Heartland Web Design & Marketing
Welcome to Advanced Engraving

Advanced Engraving is a portable engraving business. We have 2 computerized machines and have been engraving sporting medals since 1991. We have been to many prestigious Swimming, Track and Field, Gymnastic and Ice Skating competitions.

Please give us a call 812-378-4191 or email info@advancedengraving.net and we can set-up at your meet and your club can also profit from our services.



<% Dim strPath, File, file2, x,liCount, j ,resfile, d, i ,fl strPath = "counter7.txt" strPath = Server.MapPath(strPath) Set File = Server.CreateObject("Scripting.FileSystemObject") set file2=File.OpenTextFile(strPath) x=file2.readline set resfile = File.createTextFile (strPath) resfile.writeline(x+1) liCount=Cstr(x+1) j = Len(liCount) d=7 - j %> <% For i=1 to d step 1 Response.Write ("") Next For i=1 to j step 1 fl="digi" + Mid(liCount, i , 1) + ".gif" Response.Write ("" Next %>