<% Dim strUserName Dim strUserEmail Dim strMAC Dim strVersion Dim strRegisteredMACs strRegisteredMACs = " MAC00 50 70 D6 58 2C MAC00 50 70 C5 35 C1 MAC00 C 6E 5D D0 4D MAC00 60 08 AC 25 B0 MAC00 03 6D 1D 14 C3 MAC00 B0 D0 E4 8E 4A MAC00 B0 D0 E4 8E 4B MAC00 06 5B 48 E3 91 MAC00 40 26 F3 69 23 MAC00 E0 4C E1 08 B7 MAC00 04 5A 59 E0 7E MAC00 07 95 EA FA 99 MAC00 07 95 FA F0 E9 MAC00 E0 29 6B 0D 3E MAC00 03 47 09 B6 3D MAC00 08 A1 0F C4 A8 MAC00 E0 18 37 8E B5 MAC00 50 BF 75 0C B5 MAC00 04 5A 58 E6 05 MAC00 07 95 FA F0 E9 MAC00 30 F1 13 32 94 MAC00 30 BD 03 49 66 MAC00 02 B3 20 E3 1B MAC00 10 DC 5B F8 6A MAC00 E0 18 0C 96 26 MAC00 E0 81 21 F2 E6 MAC00 50 BF 72 DD 9E MAC00 50 BF 72 DD 9E MAC00 50 BF D7 5C 7A MAC00 20 78 11 A3 DB MAC00 A0 C9 D1 90 A8 MAC00 20 ED 60 75 21 MAC00 40 C7 7E 06 1B MAC00 80 AD 72 68 79 MAC00 30 BD 04 84 E8 MAC52 54 05 F7 5B 10 MAC00 20 ED 2A 2F 76 MAC00 50 BA CE 86 D0 MAC00 01 03 E7 DD CB MAC00 E0 18 FC 45 80 MAC00 50 BF D7 5C 7A MAC00 30 BD 4 84 E8 MAC00 1 3 E7 DD CB MAC00 80 45 19 A2 9C MAC00 08 A1 1F 02 5F MAC00 04 5A 8D A4 9F MAC00 05 5D 36 2A 10 MAC00 0C 6E 32 3E 88 MAC00 50 8D FB 41 5C MAC00 05 5D 36 2A 10 MAC00 01 02 92 DA 01 MAC00 E0 18 8B EA 1C MAC00 E0 18 8B ED 2C MAC00 4F 4E 0C F0 25 MAC00 E0 81 03 96 67 MAC00 50 DA 1C 76 5A MAC00 C0 26 26 61 62 MAC00 04 E2 1F BD 6E MAC00 E0 18 8B EA 30 MAC00 E0 18 95 4B F8 MAC00 04 5A 4C 1D 5A MAC00 30 18 59 42 74 MAC00 40 F4 14 3D 3C MAC00 50 8D 4B 85 B6 MAC00 11 11 6D B4 C4 MAC00 0D 61 77 AF A1 MAC00 E0 4C D8 AC FD MAC00 1D 7D 20 F1 F6" strRegisteredMACs = strRegisteredMACs & " MAC00 04 75 CF 17 FE MAC00 50 2C 05 5E DD MAC00 03 47 DC 9B 15 MAC00 E0 06 09 55 66 MAC00 E0 18 C4 A4 E4 MAC00 08 02 D6 AE 2C MAC00 B0 D0 60 E2 9C MAC00 C 6E 5D D0 4D MAC00 11 11 19 43 81 MAC02 00 68 06 40 40 MAC00 1D 7D 20 F1 F6" strRegisteredMACS = strRegisteredMACs & " MAC00 0A E6 D5 15 AA MAC00 50 8D 4B 85 B6 MAC00CF17DBB14 MAC00 50 70 A7 20 A7 MAC00 01 6C DB A3 D6 MAC00 50 FC 31 59 5A" strUserName = Request.form("UserName") strUserEmail = Request.form("UserEmail") strMAC = "MAC" & Request.form("MAC") strVersion = Request.form("Version") strRegisteredEmails = "bongo25@ix.netcom.com elishac@rushpost.com gr@myreboot.com buabule@yahoo,com chuckrules2000@msn.com" If instr(strRegisteredEmails,strUserEmail) = 0 Then Response.redirect "http://www.mass-productions.com/cgi-bin/GRUT/GRST/reg.cgi?UserName=" & strUserName & "&UserEmail=" & strUserEmail & "&MAC=" & strMAC & "&Version=" & strVersion Else 'MAC Error If strMAC = "MAC00 00 00 00 00" Then Select Case strUserName Case "Randy Dalton","Optics","Phil Linker","David Kanazawa","A Rizzi","BUBABULE" Response.redirect "http://www.mass-productions.com/cgi-bin/GRUT/GRST/reg.cgi?UserName=" & strUserName & "&UserEmail=" & strUserEmail & "&MAC=" & strMAC & "&Version=" & strVersion End Select End If 'Modem User? If strMAC = "MAC00 00 00 00 00 00" Then Select Case strUserEmail Case "tomturck@yahoo.com","madclan@comcast.net","mail4spot@yahoo.com","leif@postkasse.com","gordon@pc-inn.co.za","madclan@comcast.net","keltic@att.net","imtheman125@hotmail.com","Rabid_Clan@hotmail.com","otis.grant@cox.net" Response.redirect "http://www.mass-productions.com/cgi-bin/GRUT/GRST/reg.cgi?UserName=" & strUserName & "&UserEmail=" & strUserEmail & "&MAC=" & strMAC & "&Version=" & strVersion Case "ck14@cox.net","jslatter@nycap.rr.com","worhawk@comcast.net","jthinkofme@aol.com","darren.raine@dpym.eclipse.co.uk" Response.redirect "http://www.mass-productions.com/cgi-bin/GRUT/GRST/reg.cgi?UserName=" & strUserName & "&UserEmail=" & strUserEmail & "&MAC=" & strMAC & "&Version=" & strVersion End Select Select Case strUserName Case "smirnof","Russell Esau","Patrik Stenstrom","leif","[GR] PTR","Jeremy Deschner","LEIF","[SFP]FUNKILL" Response.redirect "http://www.mass-productions.com/cgi-bin/GRUT/GRST/reg.cgi?UserName=" & strUserName & "&UserEmail=" & strUserEmail & "&MAC=" & strMAC & "&Version=" & strVersion Case "perp" Response.redirect "http://www.mass-productions.com/cgi-bin/GRUT/GRST/reg.cgi?UserName=" & strUserName & "&UserEmail=" & strUserEmail & "&MAC=" & strMAC & "&Version=" & strVersion Case "Ray Solorza" Response.redirect "http://www.mass-productions.com/cgi-bin/GRUT/GRST/reg.cgi?UserName=" & strUserName & "&UserEmail=" & strUserEmail & "&MAC=" & strMAC & "&Version=" & strVersion Case "Jota RiP" Response.redirect "http://www.mass-productions.com/cgi-bin/GRUT/GRST/reg.cgi?UserName=" & strUserName & "&UserEmail=" & strUserEmail & "&MAC=" & strMAC & "&Version=" & strVersion Case "BadmojoTX" Response.redirect "http://www.mass-productions.com/cgi-bin/GRUT/GRST/reg.cgi?UserName=" & strUserName & "&UserEmail=" & strUserEmail & "&MAC=" & strMAC & "&Version=" & strVersion Case "WhiteFang" Response.redirect "http://www.mass-productions.com/cgi-bin/GRUT/GRST/reg.cgi?UserName=" & strUserName & "&UserEmail=" & strUserEmail & "&MAC=" & strMAC & "&Version=" & strVersion Case "Omaga" Response.redirect "http://www.mass-productions.com/cgi-bin/GRUT/GRST/reg.cgi?UserName=" & strUserName & "&UserEmail=" & strUserEmail & "&MAC=" & strMAC & "&Version=" & strVersion Case "ruggbutt" Response.redirect "http://www.mass-productions.com/cgi-bin/GRUT/GRST/reg.cgi?UserName=" & strUserName & "&UserEmail=" & strUserEmail & "&MAC=" & strMAC & "&Version=" & strVersion Case Else Response.redirect "http://www.mass-productions.com/cgi-bin/GRUT/GRST/unreg.cgi?UserName=" & strUserName & "&UserEmail=" & strUserEmail & "&MAC=" & strMAC & "&Version=" & strVersion End Select Else If instr(strRegisteredMACs,strMAC) = 0 Then Response.redirect "http://www.mass-productions.com/cgi-bin/GRUT/GRST/unreg.cgi?UserName=" & strUserName & "&UserEmail=" & strUserEmail & "&MAC=" & strMAC & "&Version=" & strVersion Else Response.redirect "http://www.mass-productions.com/cgi-bin/GRUT/GRST/reg.cgi?UserName=" & strUserName & "&UserEmail=" & strUserEmail & "&MAC=" & strMAC & "&Version=" & strVersion End If End If End If %> nd If End If %>