-
Notifications
You must be signed in to change notification settings - Fork 0
/
install.asp
54 lines (43 loc) · 1.08 KB
/
install.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
<%
'AJLogin v4.1
'By: Adam Jarret
'RandomRavings.com
%>
<!--#INCLUDE file="inc_common.asp"-->
<% PageTitle = "Install AJLogin 4.1" %>
<!--#INCLUDE file="inc_header.asp"-->
<div class="page-stripe">
<p>Create your administrator account.</p>
</div>
<div class="ajlogin-install">
<%
Set oForm = New MemberForm
oForm.Action = ajlogin_scripturl & "install.asp"
oForm.Mode = "ADMINNEW"
Set oForm.EditMember = New Member
oForm.EditMember.InitFields
oForm.EditMember.MemberAccessLevel = 3
oForm.EditMember.MemberConfirmed = true
oForm.EditMember.MemberApproved = true
if(Request.Form("member_form_submit") <> "") then
intResult = CInt(oForm.SaveFormData)
if intResult < 0 then
%>
<div class="status">
<p>Error creating admin account.</p>
</div>
<%
else
AttemptLogin Request.Form("MemberNameUser"), Request.Form("MemberPassword"), false, true
Response.Redirect ajlogin_adminurl
end if
end if
oForm.RenderForm
%>
</div>
<!--#INCLUDE file="inc_footer.asp"-->
<%
'AJLogin v4.1
'By: Adam Jarret
'RandomRavings.com
%>