[Sharing] Working Sandurr's Clan System Version 2.0

what error 11 ?

Quote:

---

Originally Posted by bbchamps2000

Look at this.

Thanks

---

Bump.

thanks

what's error 11? having problem with that as well... do we need to index IDX & MIDX?

i think error 11 = reinstall microst net framework

this is "New" rs... for you see, the flag off your char in sod rankin...
see IMAGE1
for use this... you use this file : functions.rar (IMG folder and database.asp)
for this folder:
C:\Inetpub\wwwroot\functions
and you configure the database.asp of your pc... DbHost, login, sql name =D and work =D

and for "Data and Time" of sod rank... use this sodpersonal.rar (sodpersonal.asp)
for C:\Inetpub\wwwroot\functions no need configure =D

Here error (24) fixed

Open clanremove.asp in wwwroot\servermain

copy and paste =D

<!-- #include file ="settings.asp" -->
<%
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Version 2.0 NOVEMBER 2006

' Assign Global Variables
Dim dbhost, dbuser, dbpass, dbname, userid, gserver, chname, clName

FillSettings()

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

' Parameter Variables
' clanRemove (userid, gserver, chname, clName)
userid = Trim(Request("userid"))
gserver = Trim(Request("gserver"))
chname = Trim(Request("chname"))
clName = Trim(Request("clName"))


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

Dim QUERY, RS, objConn

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=SQLOLEDB; Data Source=" & dbhost & "; Initial Catalog=" & dbname & "; User ID=" & dbuser & "; Password=" & dbpass

Set RS = Server.CreateObject("ADODB.Recordset")


QUERY = "SELECT ClanZang FROM CL WHERE ClanName='" & clName & "'"
RS.Open QUERY, objConn, 3, 1

Dim strReturn

if Not RS.RecordCount >= 1 Then
strReturn = "Code=0" & strSplit

RS.Close
Set RS = Nothing
objConn.Close
Set objConn = Nothing

Response.Write(strReturn)
Response.End
End if

Dim ClanLeader
ClanLeader = RS("ClanZang").Value

if Not chName = ClanLeader Then
strReturn = "Code=0" & strSplit

RS.Close
Set RS = Nothing
objConn.Close
Set objConn = Nothing

Response.Write(strReturn)
Response.End
End if

RS.Close

QUERY = "DELETE FROM CL WHERE ClanName='" & clName & "'"
RS.Open QUERY, objConn, 3, 1

strReturn = "Code=1" & strSplit

QUERY = "DELETE FROM UL WHERE ClanName='" & clName & "'"
RS.Open QUERY, objConn, 3, 1

Set RS = Nothing
objConn.Close
Set objConn = Nothing
Response.Write(strReturn)
%>

AND... ERROR (52) FIXED...

OPEN CLANINSERTCLANWON.ASP IN WWWROOT\SERVERMAIN

COPY AND PASTE =D

<!-- #include file ="settings.asp" -->
<%
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Version 2.0 NOVEMBER 2006

' Assign Global Variables
Dim dbhost, dbuser, dbpass, dbname, userid, gserver, chname, clName, clwon, clwonUserid, lv, chtype, chlv, chipflag

FillSettings()

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

' Parameter Variables
' clanInsertClanWon (userid, gserver, chname, clName, clwon, clwonUserid, lv, chtype, chlv, chipflag)
userid = Trim(Request("userid")) 'Userid of Leader
gserver = Trim(Request("gserver"))
chname = Trim(Request("chname")) 'Char name of Leader
clName = Trim(Request("clName"))
clwon = Trim(Request("clwon")) 'Char name of invited player
clwonUserid = Trim(Request("clwonUserid")) 'Userid of invited player
lv = Trim(Request("lv")) 'unimportant
chtype = Trim(Request("chtype"))
chlv = Trim(Request("chlv"))
chipflag = Trim(Request("chipflag")) 'char IP flag ? unimportant


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

Dim QUERY, RS, objConn

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=SQLOLEDB; Data Source=" & dbhost & "; Initial Catalog=" & dbname & "; User ID=" & dbuser & "; Password=" & dbpass

Set RS = Server.CreateObject("ADODB.Recordset")


QUERY = "SELECT IDX,ClanZang,MemCnt FROM CL WHERE ClanName='" & clName & "'"
RS.Open QUERY, objConn, 3, 1

Dim strReturn
Dim ClanLeader, ClanMembers, ClanSubChief, IDX
if RS.RecordCount >= 1 Then
ClanLeader = RS("ClanZang").Value
ClanMembers = CInt(RS("MemCnt").Value)
IDX = RS("IDX").Value
RS.Close
Else
Set RS = Nothing
objConn.Close
Set objConn = Nothing
strReturn = "Code=0" & strSplit
Response.Write(strReturn)
Response.End
End if

If (CInt(MemCnt) + 1) > 100 Then
Set RS=Nothing
objConn.Close
Set objConn = Nothing
strReturn = "Code=2" & strSplit
Response.Write(strReturn)
Response.End
End If

QUERY = "SELECT ChName FROM UL WHERE Permi=2 AND ClanName='" & clName & "'"
RS.Open QUERY, objConn, 3, 1

If RS.RecordCount >= 1 Then
ClanSubChief = RS("ChName").Value
Else
ClanSubChief = ""
End If

if ClanLeader <> chname And ClanSubChief <> chname Then
Set RS = Nothing
objConn.Close
Set objConn = Nothing
strReturn = "Code=0" & strSplit
Response.Write(strReturn)
Response.End
End if

RS.Close

QUERY = "SELECT ClanName FROM UL WHERE ChName='" & clwon & "'"
RS.Open QUERY, objConn, 3, 1

Dim UclName
if RS.RecordCount >= 1 Then
UclName = RS("ClanName").Value
Else
UclName = ""
End if

if Not UclName = "" Then
RS.Close
Set RS = Nothing
objConn.Close
Set objConn = Nothing
strReturn = "Code=0" & strSplit
Response.Write(strReturn)
Response.End
Else
if UclName = "" And RS.RecordCount >= 1 Then
RS.Close
QUERY = "DELETE FROM UL WHERE ChName='" & clwon & "'"
RS.Open QUERY, objConn, 3, 1
End if
End if
RS.Close

ClanMembers = ClanMembers + 1

QUERY = "UPDATE CL SET MemCnt='" & ClanMembers & "' WHERE ClanName='" & clName & "'"
RS.Open QUERY, objConn, 3, 1
QUERY = "INSERT INTO UL ([IDX],[userid],[ChName],[ClanName],[ChType],[ChLv],[Permi],[JoinDate],[DelActive],[PFlag],[KFlag],[MIconCnt]) values('" & IDX & "','" & clwonUserid & "','" & clwon & "','" & clName & "','" & chtype & "','" & chlv & "','0',getdate(),'0','0','0','0')"
RS.Open QUERY, objConn, 3, 1

strReturn = "Code=1" & strSplit
SET RS = Nothing
objConn.Close
SET objConn = Nothing

Response.Write(strReturn)
%>

we got a busy man. lol

@microamazing

http://img265.imageshack.us/img265/4...agemrg4.th.jpg

is there a way to edit the status online script?

You could replace it with this simple PHP script:

Code:

---

<?php

/*change your server's name and host*/
$server['name'] = "MyPT";
$server['host'] = "127.0.0.1";
$server['port'] = "10007";


/*no need to change the further code*/
$connection = @fsockopen($server['host'], $server['port'], $ERROR_NO, $ERROR_STR, (float)1.5);

echo "{$server['name']} PristonTale server is ";

if($connection)
{
    fclose($connection);
    echo "<font color=\"green\">online</font>";
}
else
{
    echo "<font color=\"red\">offline</font>";
}
?>

---

thx for all
working =)

everything works, except for SOD Crown..
Do you have to be in clan party of 2 fpr SOD Crown to record?
http://img265.imageshack.us/img265/546/sodmu2.jpg
http://img133.imageshack.us/img133/4575/sod2ub8.jpg
http://img413.imageshack.us/img413/549/sod3vu5.jpg

thx sagpup and sandurr it works !


<3 shagpup^^^^

Quote:

---

Originally Posted by Sasuke_chan

thx sagpup and sandurr it works !


<3 shagpup^^^^

---

how did you fix it? I think I've the same problem...