<% Response.Buffer = False DIM strContactID DIM intDate DIM intTime Response.Write Date() & " date
" intDate = FormatNumber(Date(),0,0,0,0) Response.Write intDate & " number formatted date
" Response.Write Time() & " time
" intTime = FormatNumber(Time(),6,0,0,0) Response.Write intTime & " number formatted time
" strContactID = Left((intDate & Left(intTime * 1000000, 5) & "0000"), 10) & "9" Response.Write strContactID & "
" %>