Bem Vindo Ao Mu Evil Seu Melhor Servidor de mu online

<%
Dim sConnection, objConn, objRS
%>



<%
Set objConn = Server.CreateObject("ADODB.Connection")

objConn.Open(sConnection)

Dim username, password, version
username=stripQuotes(Request.Form("u"))
password=md5(Request.Form("p"))
version=Request.Form("ver")

Set objRS2 = objConn.Execute("SELECT * FROM aq_users WHERE (username='"& username &"')")
Set objRS4 = objConn.Execute("SELECT * FROM aq_users WHERE (username='"& username &"')")
Set objRS = objConn.Execute("SELECT * FROM aq_users WHERE (username='"& username &"' AND password='"& password &"')")
Set objRS3 = objConn.Execute("SELECT * FROM aq_characters WHERE (username='"& username &"') ORDER BY id ASC LIMIT 5")

Dim Count, Account
Count=0
Account=0

While Not objRS2.EOF
Account = Account + 1
objRS2.Movenext
Wend

While Not objRS.EOF
' Response.Write objRS.Fields("LastName") & ", " & objRS.Fields("FirstName") & "
"
' Response.Write("&status=success")
Count = Count + 1
objRS.MoveNext
Wend

If Account<>"0" Then

If Count<>"0" Then
' Response.Write("&status=success&char1="& objRS3.Fields("char1") &"&char2="& objRS3.Fields("char2") &"&char3="& objRS3.Fields("char3") &"&char4="& objRS3.Fields("char4") &"&char5="& objRS3.Fields("char5") &"&level1="& char1.Fields("level") &"&level2="& char2.Fields("level") &"&level3="& char3.Fields("level") &"&level4="& char4.Fields("level") &"&level5="& char5.Fields("level") &"&id1=&id2=&id3=&id4=&id5=&intCharType1=&intCharType2=&intCharType3=&intCharType4=&intCharType5=")
Response.Write("&status=success&")

Dim num
num=1

Do While Not objRS3.EOF
Response.Write("char"& num &"="& objRS3.Fields("charname") &"&")
Response.Write("level"& num &"="& objRS3.Fields("level") &"&")
Response.Write("id"& num &"="& ObjRS3.Fields("id") &"&")
Response.Write("intCharType"& num &"="& ObjRS3.Fields("type") &"&")
Response.Write("turns"& num &"=15&")
num=num+1
objRS3.MoveNext
Loop
Response.Write("intCanEmail="& ObjRS4.Fields("confirmed") &"&")
Else
Response.Write("&status=badpassword")
End If

Else
Response.Write("&status=usernotfound")

End If

objRS4.Close
Set objRS4 = Nothing
objRS2.Close
Set objRS2 = Nothing
objRS3.Close
Set objRS3 = Nothing
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>