<%
SQL = "sp_UpdateMemberInfoAdmin"
dbstart
cmd.Parameters.Append cmd.CreateParameter("UserName", adVarChar, adParamInput, 40, Mid(request("UserName"), 1, 40))
cmd.Parameters.Append cmd.CreateParameter("password", adVarChar, adParamInput, 40, Mid(request("password"), 1, 40))
cmd.Parameters.Append cmd.CreateParameter("CallSign", adVarChar, adParamInput, 40, Mid(request("CallSign"), 1, 40))
cmd.Parameters.Append cmd.CreateParameter("RankID", adInteger,adParamInput , , request("RankID"))
cmd.Parameters.Append cmd.CreateParameter("DepartmentID", adInteger,adParamInput , , request("Dept_Application"))
cmd.Parameters.Append cmd.CreateParameter("DivisionID", adInteger,adParamInput , , request("Division"))
if request("Name") = "" then
Name = "N/A"
else
Name = request("Name")
end if
cmd.Parameters.Append cmd.CreateParameter("Name", adVarChar, adParamInput, 40, Mid(request("RealName"), 1, 40))
if request("Age") = "" then
Age = 0
else
Age = request("Age")
end if
cmd.Parameters.Append cmd.CreateParameter("Age", adInteger,adParamInput , , Age)
cmd.Parameters.Append cmd.CreateParameter("Gender", adInteger,adParamInput , , request("Gender"))
if request("HomePage") = "" then
Homepage = "N/A"
else
Homepage = request("Homepage")
end if
cmd.Parameters.Append cmd.CreateParameter("Homepage", adVarChar, adParamInput, 150, Mid(Homepage, 1, 150))
cmd.Parameters.Append cmd.CreateParameter("Email", adVarChar, adParamInput, 150, Mid(request("Email"), 1, 150))
if request("ICQ") = "" then
ICQ = -1
else
ICQ = request("ICQ")
end if
cmd.Parameters.Append cmd.CreateParameter("ICQ", adInteger,adParamInput , , ICQ)
if request("PicURL") = "" then
PicURL = "N/A"
else
PicURL = request("PicURL")
end if
cmd.Parameters.Append cmd.CreateParameter("PicURL", adVarChar, adParamInput, 255, Mid(PicURL, 1, 255))
cmd.Parameters.Append cmd.CreateParameter("GamingExperience", adInteger,adParamInput , , request("Experience"))
cmd.Parameters.Append cmd.CreateParameter("Comments", adVarChar, adParamInput, 150, Mid(request("Comments"), 1, 150))
if request("AdminTeam") = 1 then
AdminTeam = 1
else
AdminTeam = 0
end if
cmd.Parameters.Append cmd.CreateParameter("AdminTeam", adInteger,adParamInput , , AdminTeam)
cmd.Parameters.Append cmd.CreateParameter("ID", adInteger,adParamInput , , request("ID"))
cmd.execute
'SQL = "UPDATE MemberInfo SET UserName = '" & request("UserName") & "', Password = '" & request("password") & "', Callsign = '" & request("CallSign") & "', RankID = " & request("RankID") & ", DepartmentID = " & request("DepartmentID") & ", DivisionID = " & request("DivisionID") & ", Name = '" & request("RealName") & "', Age = " & request("Age") & ", Gender = " & request("Gender") & ", HomePage = '" & request("Homepage") & "', EMail = '" & request("Email") & "', ICQ = " & request("ICQ") & ", PicURL = '" & request("PicURL") & "', GamingExperience = " & request("Experience") & " WHERE id = " & request("ID")
'Response.Write SQL
'Conn.execute(SQL)
'dbclose
'SQL = "sp_UpdateComments"
'dbstart
'cmd("@Comments") = request("Comments")
'cmd("@ID") = request("ID")
'cmd.execute
dbclose
Response.Write "Thankyou for Updating this Members Info"
%>