<%
' April 20,2003 VP-ASP 6.50
Sub Getlkeystring(istr, url)
dim ordernumber 
dim prefix
url=request.servervariables("SERVER_NAME")
url=lcase(url)
url=replace(url,"http://","")
url=replace(url,"https://","")
prefix=left(url,4)
if prefix="www." then
   length=len(url)-4
   url=right(url,length)
end if
If url="127.0.0.1" then url="localhost"
Ordernumber=xordernumber
istr="oid=" & ordernumber & " url=" & url
end sub
'
Sub ValidateCliKey (istr,url,  result)
dim words(10),wordcount, i
dim prefix,hashkey
Result="No"
hashkey=calcMD5(istr)
If Getconfig("Xlicensekey")="" then
   if lcase(url)="localhost" or url="127.0.0.1" then 
      result="Yes"
   else    
      If xlicensekey="Demo" then
        result="Yes"
      end if
   end if   
else
  if lcase(url)="localhost" or url="127.0.0.1" then 
    result="Yes"
  else
   parserecord getconfig("xlicensekey"), words, wordcount, " "
   for i=0 to wordcount-1 
     If words(i)=hashkey then 
       result="Yes"
       exit for
     end if 
   next 
  end if 
end if 
setconfig shoplcname,result
end sub
%>