<% ' Contact your provider for support, NOT flicks software ' ---------------------------------------------------------------------- ' AuthentiX ASP interface for ATS Membership Services ' Tim Rider, 5/29/98 ' ---------------------------------------------------------------------- 'Set the group name in Authentix to your merchant ID: (eg 12345) Then install 'this ASP in a directory that has permission set to execute. Once you've done 'that, email me back with the virtual path to this ASP, plus the virtual path 'to the members directory. Thanks. 'Toby A. Rider 'Head of Technical Support 'Automated Transaction Services, Inc. 'support@atsbank.com ' change this value if you are using AuthentiX ISP usingAuthentiXStandard = true if (usingAuthentiXStandard) then Set auth = Server.CreateObject("AUTHXOCX.AuthXOCXCtrl.1") else Set auth = Server.CreateObject("AUTHXISP.AuthXOCXCtrl.1") ' use this line to automatically set the domain to be the requesting IP protectedDomain = Request.ServerVariables("LOCAL_ADDR") ' use this alternative if you are protecting by host header, ' set protectedDomain to be -your- host header 'protectedDomain = "hostheader.com" auth.SetVirtualDomain protectedDomain, Request.ServerVariables("SCRIPT_NAME") ' check with your isp for your password, initially it is empty auth.SetVirtualDomainPassword("") end if Set sys_pass = Request.Form("sys_pass") Set action = Request.Form("action") Set username = Request.Form("username") Set password = Request.Form("password") Set notes = Request.Form("notes") Set expires = Request.Form("expires") Set groupname = Request.Form("site") if (isnull(groupname) or (groupname = "")) then Set groupname = Request.Form("sitename") end if if (isnull(groupname) or (groupname = "")) then Set groupname = Request.Form("siteid") end if if (not IsDate(expires)) then expires = 0 end if if (not isnull(action)) then action = trim(ucase(action)) if (sys_pass <> "bhu7356") then Response.Write("Unauthorized access prohibited.") elseif (isnull(groupname)) or (groupname = "") then Response.Write("*failed*

empty site name") elseif (username = "") Then Response.Write("*failed*

empty username") elseif (action = "ADD") then if (auth.UserAdd(username, password, notes, expires) <> 0) then %> *failed*

User could not be added
username: <%= username %>
password: <%= password %>
<% else if (auth.GroupAddUser(groupname, username) <> 0) then %> *failed*

User could not be added to group <%= groupname %>
username: <%= username %>
password: <%= password %>
<% else Response.Write("*success*") end if end if elseif (action = "EXISTS") then if (auth.UserLookup(username) = 0) then Response.Write("*success*") else Response.Write("*failed*") end if elseif (action = "DELETE") then if (auth.UserDelete(username) = 0) then Response.Write("*success*") else Response.Write("*failed*") end if elseif (action = "LIST") then i = 0 s = "" Response.Write("

" + chr(13) + chr(10)) for i = 0 to (auth.UserGetCount - 1) s = auth.UserGetAt(i) Response.Write(s) Response.Write(chr(13) + chr(10)) next elseif (action = "VERSION") then Response.Write("<html><body>AuthentiX ASP interface v1.00</body></html>") else Response.Write("<html><body>*failed*<p>no command</body></html>") end if %>