[Sharing] Working Sandurr's Clan System Version 2.0

Quote:

---

Originally Posted by kokie

Error 3.....

we checked all files, we dit look in the troubleshooting guide. We did use the code line in that thread.

Any more options??

---

how you fixed this?

im so tired.

look

Open isCheckClanName.asp and comment these lines:

'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

got that. error 11 now. im sick of this. lol any ideas?

' if myDataReader.Read()
' if myDataReader.Item(0)>0 then
' myDataReader.Close()
' myConnection.Close()
' Response.Write ("Code=0")
' Response.End
' end if


Error 11 = Remove Microsoft.net framework (all) and install the microsoft.net framework V2 (only)

how to fix error 9?

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>

this may be a stupid question but what folder is the claninsert.aspx normally in? just to be sure mines in the right place.

clan/claninsert.aspx

yhea but is the clan folder in the iis wwwroot or in the server folder?

wwwroot.

any other ideas to fix 11?

Quote:

---

Originally Posted by 35hit

' if myDataReader.Read()
' if myDataReader.Item(0)>0 then
' myDataReader.Close()
' myConnection.Close()
' Response.Write ("Code=0")
' Response.End
' end if


Error 11 = Remove Microsoft.net framework (all) and install the microsoft.net framework V2 (only)

---

what file are those line of code located in. that way i know what to comment.

and i just tried removing Framework and install 2.0 still error 11

Open ClanInsert

and copy and paste this only chage name and pw sql !!


<%@ 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 = "here"
dbuser = "here"
dbpass = "here"
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 = "http://www.freewebs.com/massive-pristontale"

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>

still nothing. wdfisup?

u Make ODBC conection for clan?

yes. but its error 11, not 58