<% ' Contact your provider for support, NOT flicks software ' http://www.flicks.com/support/ ' http://www.flicks.com/authentix/intro.htm ' You may use this program freely so long as it is in conjuction with a product from Flicks Software ' 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 username = Request.Form("username") Set password = Request.Form("password") Set groupname = Request.Form("cgi_var1") Set expireDays = Request.Form("cgi_var2") Set email = Request.Form("cust_email") Set amt = Request.Form("item_price") Set birthday = Request.Form("cust_phone") Set renew = Request.Form("cgi_var3") Randomize notes = birthday action = "ADD" expires = 0 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 (action = "ADD") then if (renew = "Y") then if (auth.UserLookup(username) = 0) then auth.UserExpiration(username) = now + expireDays auth.UserPassword(username) = password subject2 = "Renewed" message_text2 = "Thank you for renewing your subscription to SuperWebSite.com" & vbCRLF & vbCRLF message_text2 = message_text2 & "Your Username is: " & username & vbCRLF & "Your Password is: " & password & vbCRLF & "Your email is: " & email & vbCRLF message_text2 = message_text2 & "The amount charged to your credit card is: $" & amt & vbCRLF & vbCRLF message_text2 = message_text2 & "Remember, sharing of accounts/passwords will result in cancellation with no refunds." & vbCRLF result = auth.SMTPSendMail("mother.mailserver.com", "info@SuperWebSite.com", "info@SuperWebSite.com", subject2, message_text2) result = auth.SMTPSendMail("mother.mailserver.com", email, "info@SuperWebSite.com", subject2, message_text2) else subject3 = "Renewal problem" message_text3 = "There was a problem renewing your account. A message has been sent to the SYSOP who will correct the problem shortly and notify you at the e-mail address below. DO NOT resubmit your request!" & vbCRLF & vbCRLF message_text3 = message_text3 & "The requested renewal Username was: " & username & vbCRLF & "The requested password was: " & password & vbCRLF & "The email address was: " & email & vbCRLF result = auth.SMTPSendMail("mother.mailserver.com", "info@SuperWebSite.com", "info@SuperWebSite.com", subject3, message_text3) result = auth.SMTPSendMail("mother.mailserver.com", email, "info@SuperWebSite.com", subject3, message_text3) end if else addResult = auth.UserAdd(username, password, notes, expires) ' user already exists While (addResult = 3) username = username + chr(65+rnd()*25) addResult = auth.UserAdd(username, password, notes, expires) Wend 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 auth.UserExpiration(username) = now + expireDays subject = "Subscribed" message_text = "Thank you for subscribing to SuperWebSite.com" & vbCRLF & vbCRLF message_text = message_text & "Your Username is: " & username & vbCRLF & "Your Password is: " & password & vbCRLF & "Your email is: " & email & vbCRLF message_text = message_text & "The amount charged to your credit card is: $" & amt & vbCRLF & vbCRLF message_text = message_text & "If your chosen username was already taken, some random uppercase characters have been added to your choice." & vbCRLF & "Remember, sharing of accounts/passwords will result in cancellation with no refunds." & vbCRLF result = auth.SMTPSendMail("mother.mailserver.com", "info@SuperWebSite.com", "info@SuperWebSite.com", subject, message_text) result = auth.SMTPSendMail("mother.mailserver.com", email, "info@SuperWebSite.com", subject, message_text) end if end if %>