WRITINGS BY PETER BYERS

If you, the web designer, want to create Unique references, for any reason, the ASP (Active Server Page) shown below will maybe give some ideas.

If you want to see it working click here - when the page appears, simply keep pressing the refresh/reload button on your browser.

<%

 Application("countnumber") = Application("countnumber") + 1
 Secdef = DateDiff("s",#1/1/2002#,Now)
 If Secdef <> Application("Secdef") Then
       Application("countnumber") = 1
 End If
 BigSec = Secdef * 100
 UniqueKey = BigSec + Application("countnumber")

%>

<HTML>
<HEAD>
<TITLE>UNIQUE REFERENCES</TITLE>
</HEAD>
<BODY>
The unique reference is <% =UniqueKey %>
</BODY>
</HTML>

Now there - aint that simple !!