Source:*www.asp-dev.com/main.asp?page=60
There is a simple function that allows you to create a GUID that uses the Windows API to guarantee it's unique.
<%
Function createGuid()
Set TypeLib = Server.CreateObject("Scriptlet.TypeLib")
tg = TypeLib.Guid
createGuid = left(tg, len(tg)-2)
Set TypeLib = Nothing
End Function
%>