<!-- #include file ="common.inc" -->
<%
'---------------------------------------
'ModulenName: clanRemove.asp
'Coded by X
'
'Thanx to VitalizePT & Strawberry PT
'for the support & return data values.
'
'Modified by OperZ
'--------------------------------------
'
' This file is to dismiss a clan
'
dim eSql
dim eUID
dim eChName
dim eServerName
dim eName
dim eTicket
dim eServer
on error resume next
'userid=%s&
'gserver=%s
'&chname=%s
'&clName=%s
'&ticket=%d
eUID = GetParameter ("userid","String")
eChName= GetParameter("chname","String")
eServerName = GetParameter ("gserver","String")
eName = GetParameter("clName","String")
eTicket = GetParameter("ticket","Numeric")
OpenDBConnection
eServer = GetServerID(eServerName)
eSql = "Select count(*) from ClanTicket where SNo= "& val(eTicket)
eRs.Open eSql, eDb
AbortOnError
AbortOnEmptyCursor
if eRs(0) < 1 then 'Wrong ticket
Response.Write "Code=100"
Response.End
end if
eRs.close
' check the clan existance
eSql ="Select count(IDX), min(IDX), min(ClanZang) from " & eServer & "ClanMain where ClanName = '" & eName & "'"
eRs.Open eSql, eDb
AbortOnError
AbortOnEmptyCursor
if eRs(0) < 1 then 'Clan not existent
Response.Write "Code=0"
Response.End
end if
'check that userid = leader
if eChName<>eRs(2).value then
Response.Write "Code=0"
Response.End
end if
eRs.close
' -------- Copy data to ClanMainDeleted -------- '
eSql = "INSERT INTO ClanMainDeleted "
eSql = eSql & "("
eSql = eSql & "IDX, MIDX, ClanName, "
eSql = eSql & "Userid, ClanZang, Flag, "
eSql = eSql & "MemCnt, MIconCnt, RegiDate, "
eSql = eSql & "LimitDate, DelDate, DelActive, "
eSql = eSql & "PFlag, KFlag, DelState, "
eSql = eSql & "DelCase, Server"
eSql = eSql & ") "
eSql = eSql & "SELECT "
eSql = eSql & "A.IDX, B.MIDX, "
eSql = eSql & "A.ClanName, A.Userid, "
eSql = eSql & "A.ClanZang, A.Flag, "
eSql = eSql & "A.MemCnt, A.MIconCnt, "
eSql = eSql & "A.RegiDate, A.LimitDate, "
eSql = eSql & "GETDATE(), A.DelActive, "
eSql = eSql & "A.PFlag, A.KFlag, "
eSql = eSql & "'1', '1', "
eSql = eSql & "'1'"
eSql = eSql & "FROM "& eServer &"ClanMain A, "& eServer &"ClanSub B "
eSql = eSql & "WHERE A.ClanName='" & eName & "' "
eSql = eSql & "AND B.userid='" & eUID & "'"
eRs.Open eSql, eDb
eRs.close
' -------- Delete data from ClanMain -------- '
eSql = "DELETE "& eServer & "ClanMain WHERE ClanName = '" & eName & "'"
eRs.Open eSql, eDb
eRs.close
' -------- Copy data to ClanSubDeleted -------- '
eSql = "INSERT INTO ClanSubDeleted "
eSql = eSql & "("
eSql = eSql & "IDX, MIDX, "
eSql = eSql & "userid, ChName, "
eSql = eSql & "ChType, ChLv, "
eSql = eSql & "ClanName, Permi, "
eSql = eSql & "JoinDate, DelActive, "
eSql = eSql & "PFlag, KFlag, "
eSql = eSql & "DelDate, DelState, "
eSql = eSql & "DelCase, Server"
eSql = eSql & ") "
eSql = eSql & "SELECT "
eSql = eSql & "IDX, MIDX, "
eSql = eSql & "userid, ChName, "
eSql = eSql & "ChType, ChLv, "
eSql = eSql & "ClanName, Permi, "
eSql = eSql & "JoinDate, DelActive, "
eSql = eSql & "PFlag, KFlag, "
eSql = eSql & "GETDATE(), '1', "
eSql = eSql & "'1', '1' "
eSql = eSql & "FROM "& eServer &"ClanSub "
eSql = eSql & "WHERE ClanName='" & eName & "' "
eRs.Open eSql, eDb
eRs.close
' -------- Delete data from ClanSub -------- '
eSql = "DELETE "& eServer & "ClanSub WHERE ClanName = '" & eName & "'"
eRs.Open eSql, eDb
eRs.close
response.Write "Code=1"
CloseDBConnection
%>