[Sharing] Working Sandurr's Clan System Version 2.0

Check the Sandurr 2.0 thread, someone said the answer in there.

there seem to be someing weird in these files...
it has everything automated as we can forget about useing Cnflag to enable crown but..
there is another thing that is also weird and it is.. Karina seems to have fixed score in her list .. even after deleting the score tbls and replacing by 0 it still do have the old clans in her list / the score date ..
other than flushing the score it works great

Yes, check back a few pages in this thread and someone gave a guide on how to activate it.

Hi i try the error 9 (FIX) but im still have the same error in the final of creating clan show me Error (9) and i change alredy the Claninsert.ini for the 1 posted Fahh? fixing the error anyone can help me?
And sorry for my bad english but i change alredy de SQL.dll and other thinks but how i can use the Multimannager and Sod Manager ^^.

did u hex clan.dll?

ERROR (9) FIXED

HERE IS THE CLANINSERT.ASPX
JUST CHANGE "NAME" AND "PASS"
Open notepad copy and paste...


<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<script runat="server">

Function GetParameter(pName as string, pType as string) as string
dim lTmp as string
lTmp = Page.Request.QueryString.item(pName)

GetParameter = lTmp
End Function

Sub Page_Load(Sender As Object, E As EventArgs)

Dim dbhost, dbuser, dbpass, dbname, userid, gserver, chname, clName, expl, chtype, lv

dbhost = "NAME\SQLEXPRESS"
dbuser = "sa"
dbpass = "PASS"
dbname = "ClanDB"

Dim strSplit As String
strSplit = Chr("&H" & "0D")

userid = GetParameter ("userid","String")
gserver = GetParameter ("gserver","String")
chname = GetParameter("chname","String")
clName = GetParameter("clName","String")
chtype = GetParameter("chtype","String")
lv = GetParameter("lv","String")

expl = "www.ptnoname.com"

if userid="" Or gserver="" Or chname="" Or clName="" Or chtype="" or lv="" Then
Response.Write("Code=100" & strSplit)
Response.End
End if

Dim objConn, objReader, objCommand, objQuery

Dim connectionString As String = "server='" & dbhost & "'; user id='" & dbuser & "'; password='" & dbpass & "'; database='" & dbname & "'"

objConn = New SqlConnection(connectionString)
objConn.Open()

objQuery = "SELECT ClanName FROM UL WHERE ChName='" & chname & "'"

objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()

If objReader.Read()
If objReader.Item(0) = "" Then
objReader.Close()
objQuery = "DELETE FROM UL WHERE ChName='" & chname & "'"

objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
Else
objReader.Close()
objConn.Close()
Response.Write("Code=2" & strSplit & "CMoney=0" & strSplit)
Response.End
End if
End if
objReader.Close()

objQuery = "SELECT ClanZang FROM CL WHERE ClanName='" & clName & "'"

objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()

If objReader.Read()
objReader.Close()
objConn.Close()
Response.Write("Code=3" & strSplit & "CMoney=0" & strSplit)
Response.End
End if
objReader.Close()

objQuery = "SELECT IMG FROM LI WHERE ID=1"

objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()

Dim iIMG As Integer

if objReader.Read() Then
iIMG = objReader.Item(0)
Else
iIMG = 1000000000
objReader.Close()
objQuery = "INSERT INTO LI values('" & (iIMG + 1) & "','1')"
objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
End if
objReader.Close()

iIMG = iIMG + 1

objQuery = "UPDATE LI SET IMG='" & iIMG & "' WHERE ID=1"

objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
objReader.Close()

objQuery = "INSERT INTO CL ([ClanName],[UserID],[ClanZang],[MemCnt],[Note],[MIconCnt],[RegiDate],[LimitDate],[DelActive],[PFlag],[KFlag],[Flag],[NoteCnt],[Cpoint],[CWin],[CFail],[ClanMoney],[CNFlag],[SiegeMoney]) values('" & clName & "','" & userid & "','" & chname & "','1','" & expl & "','" & iIMG & "',getdate(),getdate()+3600,'0','0','0','0','1','0 ','0','0','0','0','0')"
objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
objReader.Close()

objQuery = "SELECT IDX FROM CL WHERE ClanName='" & clName & "'"
objCommand = New SqlCommand(objQuery, objConn)

Dim IDX As String
objReader = objCommand.ExecuteReader()
If objReader.Read() Then
IDX = objReader.Item(0)
End If
objReader.Close()

objQuery = "INSERT INTO UL ([IDX],[userid],[ChName],[ClanName],[ChType],[ChLv],[Permi],[JoinDate],[DelActive],[PFlag],[KFlag],[MIconCnt]) values('" & IDX & "','" & userid & "','" & chname & "','" & clName & "','" & chtype & "','" & lv & "','0',getdate(),'0','0','0','" & iIMG & "')"
objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
objReader.Close()

objConn.Close()

Response.Write("Code=1" & strSplit & "CMoney=500000" & strSplit)
End Sub

</script>
<html>
<head>
</head>
<body>
</body>
</html>


Try this this help me and my clan work 100%

I use this alredy and dont work i still have ERROR 9 and i need hex clan.dll TOO? and about Having Ranking and Sod crown anyone have MSN for can help me ? ^^;; i really appreciate if someone can help me well my english its not too good and, im something confuse ^^ thx for all alredy

P.S: Where i need edit in clan.dll and in SQL.dll i change all i can find for account "sa" and my lan ip but i see have accountd , billingdb,etc what account i need use?

You need not to edit clan.dll.

hmm i upload my clan.dll later

Clan.rar - FileFront.com


Try this its my clan.dll !!

Sorry for double post !!!

Quote:

---

Originally Posted by LorDOfHorror

there seem to be someing weird in these files...
it has everything automated as we can forget about useing Cnflag to enable crown but..
there is another thing that is also weird and it is.. Karina seems to have fixed score in her list .. even after deleting the score tbls and replacing by 0 it still do have the old clans in her list / the score date ..
other than flushing the score it works great

---

did you run ClanSODScoreManager to update your SOD score ?

hey guys

look this

i open IIS and click right mouse buton on index.asp and click on "BROWSE" but i cant open the page... i'm using por 80 ... can anyone help me?
http://img402.imageshack.us/img402/5...tledbm7.th.jpg

error 37 :(

no remove clan member

help me :X

someone post one guide for bypass of this errors

>.<

i click in clan master but anything open oO

and in my IIS i try to browse my index.asp and dont open and then i go in my IE and digit http://127.0.0.1/index.asp and dont open oO cound anyone help me?