<% dim Personnum dim i dim Numstring dim Ima set counter1=Server.CreateObject("MSWC.Counters") Personnum=Cstr(Counter1.Get("ujob")) if Personnum="0" then Counter1.Set "ujob",2118003 end if Counter1.InCrement("ujob") Personnum=Cstr(Counter1.Get("ujob")) Numstring = cstr(Personnum) for i = 1 to 7-len(Numstring) Numstring= "0" & Numstring next for i=1 to len(Numstring) ima= "" Response.Write "document.write('" & ima & "');" next %>