Licensekey Download
ESlave Error :438 : Das Objekt unterstützt diese Eigenschaft oder Methode nicht.: 'eve.CustomerID' at Line 13 Code: edebug = true evar = setvals Function setVals ' ********************* Datenbank *************************** Set MyConnection = CreateObject ("ADODB.Connection") MyConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\HTTP\itxtools.mdb" Set erst = CreateObject("ADODB.Recordset") erst.CursorType = 3 'adOpenStatic erst.LockType = 1 '3 'adlockoptimistic sql = "select * from ensc where bez like '||||SW||Database||Kunden||" & eve.CustomerID & "||" & eve.productid & "||%' and bez not like '||||SW||Database||Kunden||" & eve.CustomerID & "||" & eve.productid & "||%||%'" erst.Open SQL, MyConnection if erst.eof = true then setVals = doerrs: exit function ' ************* Programmname ************** dvar = " " & vbcrlf erst.find "arg='||||SW||Beschreibung||Software||Programm-ID||ProgrammName'" if erst.eof = false then dvar = dvar & ""& erst("wort") & " License/Lizenz :" & eve.productid &"" & vbcrlf :prgname = erst("wort") erst.movefirst dvar = dvar & "On this page you can download your license file or the latest version of your product. You can also reassign an already registered license (e.g. in case of changing your hardware). " & vbcrlf ' ************* Lizensdaten ************** dvar = dvar & " " & vbcrlf do while erst.eof = false myspli =split(erst("arg"),"||") dVar = dvar & " " & myspli(ubound(myspli)) & ": " & vbcrlf dvar = dvar & " " & erst("wort") & "" & vbcrlf erst.movenext loop dvar = dvar & " " & vbcrlf '********** Download ************************ sql = "select * from ensc where bez like '||||SW||Database||Kunden||" & eve.CustomerID & "||" & eve.productid & "||Lizenzierung||%' " erst.close erst.Open SQL, MyConnection erst.find "arg='||||SW||Beschreibung||Software||Programm-ID||Lizenzierung||LizenzDaten'" if erst.eof=false then dvar = dvar & erst("memo") & " " dvar=dvar & "" erst.movefirst erst.find "arg='||||SW||Beschreibung||Software||Programm-ID||Lizenzierung||Lizenzkey'" if erst.eof=false then dvar = dvar & "Download License " & eve.productid & "" dvar=dvar & "" dvar = dvar & "Download latest " &prgname &" version " dvar=dvar & "" dvar = dvar & "Reassign License " & eve.productid &" Version " DVAR = Dvar & " " setvals= dvar erst.close myconnection.close set myconnection = nothing set erst = nothing end function Function DoErrs() doerrs ="error in database, please try again!" end function