<%Option Explicit
if session("Logged") <> true then
response.redirect "Logon.asp"
end if
session.lcid=2057
%>
Pyramid Score System
<%
dim userid, firstname, surname, password, cpassword, email
dim role, status, rs, sql, action, newnum, phone, location, playpref
action=request.querystring("action")
If action="S" then
'this is were we actually save the details
userid=lcase(request("userid"))
firstname=request("firstname")
surname=request("surname")
password=request("password1")
cpassword=request("password2")
email=request("email")
playpref=request("playpref")
phone=request("phone")
location=request("location")
role=request("role")
set rs = server.CreateObject("adodb.recordset")
rs.CursorLocation = 3
rs.open "users", conn, 2,2
'save all records
with rs
.addnew
.fields("userid") = userid
.fields("firstname") = firstname
.fields("surname") = surname
.fields("password") = password
.fields("email") = email
.fields("phone") = phone
.fields("playing_days") = playpref
.fields("location") = location
.fields("role") = role
.update
end with
rs.Close
set rs=nothing
response.redirect "amenduser.asp?action=F&userid=" & userid
end if
%>
Add User