%@LANGUAGE="VBSCRIPT" CODEPAGE="1251"%> <% Set rs = Server.CreateObject("ADODB.Recordset") sq = "SELECT MAX(Order_Number) FROM OrderMaster" set rs=cn.execute(sq) if isNull(rs(0)) then pCode = "INVT-001" else iCode = Cint(Right(rs(0),3))+1 pCode = "INVT-" & string(3-len(iCode),"0") & iCode end if Set rs=Nothing %>