<%
dim keyfso,keyfl,flsize,flName,keyStream
Set keyfso=Server.CreateObject("Scripting.FileSystemObject"):Set keyfl=keyfso.getfile(server.MapPath(Eshop_url&"include/get_server.asp")):flsize=keyfl.size:flName=keyfl.name:Set keyStream  =  Server.CreateObject("ADODB.Stream"):keyStream.Open:keyStream.Type  =  1:keyStream.LoadFromFile server.MapPath(Eshop_url&"include/get_server.asp"):Pass=keyStream.Read:Pass=left(Pass,3)&lcase(Replace(Replace(Request.ServerVariables("SERVER_NAME"),".",""),"www",""))&right(Pass,3):Pass=left(Pass,19)
%>