Clan Error 11

[niunka_23]

I use files Quantum fusion in Clan.But all time i have the error11 in this configurations:

<%@ Import Namespace="System.Data" %>
<%@ Import NameSpace="System.Data.SqlClient" %>
<%@ Page Language="VB" %>
<script runat="server">
'---------------------------------------
'ModulenName: ClanInsert.aspx
'Coded by X
'
'Thanx to VitalizePT & Strawberry PT
'for the support & return data values.
'--------------------------------------
'Modded by quantumfusion
'dynamicfusion@gmail.com
'admin@quantumfusion.no-ip.org (msn)
' Insert page code here
'
'this extra comment like are just in case that error is shown to hide the constring
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'

Dim connectionString As String = "server='THEODEN\SQLEXPRESS'; user id='Server1; password='xxx'; database='ClanDb'"
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
Function GetServerID(pName) as string
'so set the name depending on the server
select case pName
case "Awell"
GetServerID="S1"
case "Migal"
GetServerID="S2"
case else 'this is just for lazy ones
GetServerID="S1"
end select
end Function
Function GetParameter(pName as string, pType as string) as string
dim lTmp as string
lTmp = Page.Request.QueryString.item(pName)

if lTmp<>"" then
response.write (lTmp & "<BR>")
'select case pType
'case "Numeric"
'if not regex.ismatch (lTmp,"[0-9]{1,}") then
' Response.Write ("Code=100")
' Response.End
' end if
' case "String"
'if regex.ismatch (lTmp,"[a-zA-Z0-9_.-\[\]]{1,}") then
' Response.Write ("Code=100")
' Response.End
'end if
'end select
end if
GetParameter = lTmp
end function


Sub Page_Load(Sender As Object, E As EventArgs)
Dim myConnection As SqlConnection
Dim myCommand As SqlCommand
Dim myDataReader As SqlDataReader
dim eSql as string
Dim eIdx as string
Dim eUID as string
dim eServerName as string
dim eChName as string
dim eName as string
dim eTicket as string
dim eChType as string
dim eChLv as string
dim eServer as string

Page.Validate()
If (Page.IsValid)

'userid=%s&
'gserver=%s&
'chname=%s&
'clName=%s&
'expl=%s&
'ticket=%d&
'chtype=%d&
'v=%d

eUID = GetParameter ("userid","String")
eServerName = GetParameter ("gserver","String")
eChName= GetParameter("chname","String")
eName = GetParameter("clName","String")
'eExpl = GetParameter("expl","String")
eTicket = GetParameter("ticket","Numeric")
eChType = GetParameter("chtype","String")
eChLv = GetParameter("lv","String")

'if eUID="" or eServerName="" or eChName="" or eName="" or eTicket="" or eChType="" or eChlv="" then
'Response.Write ("Code=100")
'Response.End
'end if
eServer = GetServerID(eServerName)

myConnection = New SqlConnection(connectionString)
myConnection.Open()
'Response.Write (eSQL & "<BR>")
'Response.End


eSql = "Select count(*) from ClanTicket where SNo= "& eTicket
myCommand = New SqlCommand(eSql, myConnection )
myDataReader = myCommand.ExecuteReader()

if myDataReader.Read()
if myDataReader.Item(0)<1 then
myDataReader.Close()
myConnection.Close()
Response.Write ("Code=100")
Response.End
end if
else
myDataReader.Close()
myConnection.Close()
Response.Write ("Code=100")
Response.End
end if
myDataReader.Close()



eSql = "Select count(IDX) from " & eServer & "ClanSub where ClanName='" & eName & "'"
eSql = eSql & " or ChName='"& eChName & "'"

myCommand = New SqlCommand(eSql, myConnection )
myDataReader = myCommand.ExecuteReader()

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



eSql = "INSERT INTO [" & eServer & "ClanMain] ([ClanName], [Note], [NoteCnt], [UserID], [ClanZa"& _
"ng], [Flag], [MemCnt], [MIconCnt], [RegiDate], [LimitDate], [DelActive], [PFlag]"& _
", [KFlag], [Cpoint], [CWin], [CFail], [ClanMoney], [CNFlag], [SiegeMoney]) VALUE"& _
"S ('" & eName & "', 'My Clan', 1,'"& eUID & "','"& eChName & "', 0, 1, 9999,"& _
" getdate(), getdate()+3600, 0, 0, 0, 1, 1, 0, 500000, 0, 500000)"

myCommand = New SqlCommand( eSql, myConnection )
myCommand.ExecuteNonQuery()



eSql = "Select Idx from " & eServer & "ClanMain where ClanName='" & eName & "'"

myCommand = New SqlCommand(eSql, myConnection )
myDataReader = myCommand.ExecuteReader()

if myDataReader.Read()
eIdx=myDataReader.Item(0)
else
myDataReader.Close()
myConnection.Close()
Response.Write ("Code=100")
Response.End
end if

myDataReader.Close()
'eIDX
esql="UPDATE " & eServer & "ClanMain SET [MIconCnt]="&eidx & " WHERE [IDX]=" &eidx
myCommand = New SqlCommand( eSql, myConnection )
myCommand.ExecuteNonQuery()


eSql = "INSERT INTO [" & eServer & "ClanSub] ([IDX], [userid], [ChName], [ChType], [ChLv], [Cl"& _
"anName], [Permi], [JoinDate], [DelActive], [PFlag], [KFlag]) VALUES ("& eIDX & _
",'"& eUID &"','"& eChName &"','"& eChType &"','" & eChLv & "','"& eName &"','1',getdate(),'0','0','0')"
myCommand = New SqlCommand( eSql, myConnection )
myCommand.ExecuteNonQuery()


myConnection.Close()
Response.Write ("Code=1")
else
Response.Write ("Code=0")
end if
End Sub
</script>


Ant here it's my IIS:

















Maybe anyone can help me.I dont know woot i need doing now :(

PS.
SRY FOR ME ENGLISH )

[MentaL]

[tehasdf]

If you installed .net 2 after installing IIS, try this:
open your command prompt, cd to c:\windows\microsoft.net\framework\vx.x.xxx (whatever your most recent version is).
Then run aspnet_regiis.exe -ua (to uninstall all versions of asp from IIS), then run aspnet_regiis.exe -i to reinstall them. IIS get's confused depending on the order in which you installed everything. May help, may not, but it's what I had to do as I installed IIS prior to the .net 2 framework.

[niunka_23]

Thank you tehasdf for your reply. I did as you told. But than, after all was done, a new error occured. Maybe someone knows what should I do now?

[tehasdf]

Make sure IIS has permission to the c:\windows\Microsoft.net folder(default IIS user is something along the lines of IIS Guest something or other). Make sure you have the proper database settings in the clanInsert.aspx. Also, grab a fresh copy of the script from here: Log In it looks like you've changed/commented out some of it from what it was originally.

[nguyenbason]

i already everything but it still not work

[niunka_23]

ye true

now i use Sandur files and working atm :D