Unikt ID på Microdatorns webshopp

Jag håller på att labba med microdatorns webshop, och är inte nöjd med deras "unika" SessionsessionID som jag inte får att fungera bra.
Därför så tänkte jag att det unika numeret får bli såhär:

Första delen dagens datum + "-" och "1001" som då skall räknas upp får varje beställare.
Tabellen heter Kunder, fält bl a SessionID och Datum. Session id:s datatyp är text, datum är datum/tid.
Jag försöker så här:

'FUNKTION FÖR ATT FÅ TILL ETT NYTT ANVÄNDARID
MAX = "SELECT MAX(SessionId) FROM KUNDER"
SET mx = Connection.Execute(MAX)

Dat = "SELECT MAX(Datum) FROM KUNDER"
SET dt = Connection.Execute(Dat)

'***
Ar=year(date())
'om månaden bara har en siffra(t ex 3)
if LEN(month(date())) = 1 THEN
Man= 0 & month(date())
ELSE
Man = month(date())
End If
'om dagen bara har en siffra(t ex 3)
if LEN(day(date())) = 1 THEN
Dag= 0 & day(date())
ELSE
Dag = day(date())
End If
'***

strNr=Cint(Right(mx(0),4))

If dt(0) <> date () Then

AnvID = Ar & Man & Dag & "-" & "1001"
Else
AnvID = Ar & Man & Dag & "-" & strNr + 1

End If

Session("AnvId") = AnvId

Teoretiskt set så borde det fungera, men den vill inte räkna upp talet(1001)

Informationen om Session("AnvID") läggs in med denna SQL när någonting har beställts:

SQLStmt = SQLStmt & "VALUES('" & Session("AnvId") & "', '" & Request.Form("Namn") & "', '" & Request.Form("Adress") & "', '" & Request.Form("Postnummer") & "', '" & Request.Form("Ort") & "', '" & Request.Form("Tel") & "', '" & Request.Form("Epost") & "', '" & Request.Form("Ordermarkning") & "' , '" & Request.Form("Refferens") & "', '" & date() &"')"

Någon som har ett bättre förslag???

------------------
saw
__
saw@songer.com
www.saw.songer.com
__