progenic
01-27-2010, 06:38 AM
Hello. I recently get the irc service "X" as used for undernet, and modify the pages to asp for windows. Anyway, i get this error:
Microsoft VBScript runtime error- Error '800a01b6'
Object doesn't support this property or method: 'isuk'
/live/newuser.asp, line 80
This is the whole page source:
<!--#include file="incl1.asp"-->
<html><head><title>.</title>
<style type="text/css">
<!--
a:link { font-family: arial,helvetica; color: #60659c; }
a:visited { font-family: arial,helvetica; color: #60659c; }
a:hover { font-family: arial,helvetica; color: #ff7700; }
//-->
</style></head><body onload="document.forms[0].password.focus();" alink="#ff7700" bgcolor="#aaafe4" link="#60659c" text="#000000" vlink="#60659c">
<%
if getlg(request.cookies("xcluser"),request.cookies("xclpass"),1) <> "" then
response.redirect "uinfo.asp"
end if
%>
<font face="arial,helvetica" size=-1>
<%
dim ru,r13,rmail,rq,ra,crip
ru = request("regu")
rmail = request("regemail")
r13 = request("ruser_age")
rq = request("rverq")
ra = request("verificationdata")
crip = LCase(Request.ServerVariables("REMOTE_ADDR"))
initdb
r1.open "select * from cfg where cfgname like 'ureg'",dbconn,2,3
if r1.eof = false then
if r1.fields("cfgdata") = "1" then
response.write "<center><h2>Sorry, You can't register new users at the moment.</font></h2></center>"
response.end
end if
end if
r1.close
if crip <> "127.0.0.1" then
r1.open "select * from ipreg where regip like '" & crip & "'",dbconn,2,3
if r1.eof = false then
response.write "<center><h2>This IP has already registered a username.</font></h2></center>"
response.end
end if
r1.close
end if
r1.open "select * from users where username like '" & ru & "'",dbconn,2,3
if r1.eof = false then
response.write "<center><h2>This Username already exists.</font></h2></center>"
response.end
end if
r1.close
r1.open "select * from users where email like '" & rmail & "'",dbconn,2,3
if r1.eof = false then
response.write "<center><h2>A username with this email address already exists</font></h2></center>"
response.end
end if
r1.close
r1.open "select * from block where '" & crip & "' like bhost",dbconn,2,3
if r1.eof = false then
if r1.fields("bureg") = "1" then
response.write "</center><h1>Due to repeated abuse this domain is blocked from registering new usernames.</h1>"
response.end
end if
end if
r1.close
dim mmp1
mmp1 = 1 %><center><%
if ru <> "" then
if r13 <> "1" then
response.write "<p><font color=#ff0000>You must be 13 years old or more in order to process your request.</p></font>"
mmp1 = 0
end if
if len(ru) > 12 then
mmp1 = 0
response.write "<p><font color=#ff0000>Invalid Username</p></font></p>"
end if
if func1.isuk(request("regu")) = false then
mmp1 = 0
response.write "<p><font color=#ff0000>Invalid Username</p></font></p>"
end if
if is_mail_ok(rmail) = false then
mmp1 = 0
response.write "<p><font color=#ff0000>You must supply a valid e-mail address in order to process your request.</p></font>"
end if
r1.open "select * from block where '" & rmail & "' like bmail",dbconn,2,3
if r1.eof = false then
if r1.fields("bureg") = "1" then
mmp1 = 0
response.write "<p><font color=#ff0000>You cannot register a username with this email: " & rmail & "</p></font>"
end if
end if
r1.close
if rq <> "1" and rq <> "2" and rq <> "3" then
mmp1 = 0
response.write "<p><font color=#ff0000>You must choose a question in order to process your request.</p></font>"
end if
if ra = "" then
mmp1 = 0
response.write "<p><font color=#ff0000>You must answer to the question you picked up.</p>"
end if
if ra = rmail then
mmp1 = 0
response.write "<p><font color=#ff0000>Your answer must be different than your email address.</p>"
end if
if ra = ru then
mmp1 = 0
response.write "<p><font color=#ff0000>Your answer must be different than your username.</p>"
end if
if len(ra) < 4 then
mmp1 = 0
response.write "<p><font color=#ff0000>Your answer must be at least 4 chars long.</p>"
end if
if mmp1 = 1 then
r1.open "select * from pusers where puser like '" & ru & "'",dbconn,2,3
if r1.eof = false then
mmp1 = 0
response.write "<h2>Someone has already begun to register that username</h2>"
end if
r1.close
end if
if mmp1 = 1 then
dim cook1
r1.open "select * from pusers",dbconn,2,3
r1.addnew
r1.fields("puser") = ru
cook1 = md5(crd & "-" & ru)
r1.fields("pcookie") = cook1
r1.fields("pmail") = rmail
r1.fields("pip") = crip
r1.fields("pverq") = rq
r1.fields("pvera") = ra
r1.fields("pexp") = crd + 86400
r1.update
r1.close
r1.open "select * from ipreg",dbconn,2,3
r1.addnew
r1.fields("regip") = crip
r1.fields("reguser") = ru
r1.update
r1.close
dim msend1
set msend1 = Server.CreateObject("CDONTS.NewMail")
msend1.from = mfrom & " <" & madd & ">"
msend1.mailformat = 0
msend1.bodyformat = 0
msend1.to = rmail
msend1.subject = "Network Channel Service Account"
msend1.body = "<html>To continue the registration process go to <a href=" & mwebadd & "confirm.asp?cookie=" & cook1 & ">" & mwebadd & "confirm.asp?cookie=" & cook1 & "</a></html>"
msend1.importance = 2
msend1.send
set msend1 = nothing
response.Write("<p>Your registration email has been sent. Please wait to receive it, and then follow the instructions it contains to continue</p>")
response.End()
end if
end if
%>
Can you give me a clue for this ?
Microsoft VBScript runtime error- Error '800a01b6'
Object doesn't support this property or method: 'isuk'
/live/newuser.asp, line 80
This is the whole page source:
<!--#include file="incl1.asp"-->
<html><head><title>.</title>
<style type="text/css">
<!--
a:link { font-family: arial,helvetica; color: #60659c; }
a:visited { font-family: arial,helvetica; color: #60659c; }
a:hover { font-family: arial,helvetica; color: #ff7700; }
//-->
</style></head><body onload="document.forms[0].password.focus();" alink="#ff7700" bgcolor="#aaafe4" link="#60659c" text="#000000" vlink="#60659c">
<%
if getlg(request.cookies("xcluser"),request.cookies("xclpass"),1) <> "" then
response.redirect "uinfo.asp"
end if
%>
<font face="arial,helvetica" size=-1>
<%
dim ru,r13,rmail,rq,ra,crip
ru = request("regu")
rmail = request("regemail")
r13 = request("ruser_age")
rq = request("rverq")
ra = request("verificationdata")
crip = LCase(Request.ServerVariables("REMOTE_ADDR"))
initdb
r1.open "select * from cfg where cfgname like 'ureg'",dbconn,2,3
if r1.eof = false then
if r1.fields("cfgdata") = "1" then
response.write "<center><h2>Sorry, You can't register new users at the moment.</font></h2></center>"
response.end
end if
end if
r1.close
if crip <> "127.0.0.1" then
r1.open "select * from ipreg where regip like '" & crip & "'",dbconn,2,3
if r1.eof = false then
response.write "<center><h2>This IP has already registered a username.</font></h2></center>"
response.end
end if
r1.close
end if
r1.open "select * from users where username like '" & ru & "'",dbconn,2,3
if r1.eof = false then
response.write "<center><h2>This Username already exists.</font></h2></center>"
response.end
end if
r1.close
r1.open "select * from users where email like '" & rmail & "'",dbconn,2,3
if r1.eof = false then
response.write "<center><h2>A username with this email address already exists</font></h2></center>"
response.end
end if
r1.close
r1.open "select * from block where '" & crip & "' like bhost",dbconn,2,3
if r1.eof = false then
if r1.fields("bureg") = "1" then
response.write "</center><h1>Due to repeated abuse this domain is blocked from registering new usernames.</h1>"
response.end
end if
end if
r1.close
dim mmp1
mmp1 = 1 %><center><%
if ru <> "" then
if r13 <> "1" then
response.write "<p><font color=#ff0000>You must be 13 years old or more in order to process your request.</p></font>"
mmp1 = 0
end if
if len(ru) > 12 then
mmp1 = 0
response.write "<p><font color=#ff0000>Invalid Username</p></font></p>"
end if
if func1.isuk(request("regu")) = false then
mmp1 = 0
response.write "<p><font color=#ff0000>Invalid Username</p></font></p>"
end if
if is_mail_ok(rmail) = false then
mmp1 = 0
response.write "<p><font color=#ff0000>You must supply a valid e-mail address in order to process your request.</p></font>"
end if
r1.open "select * from block where '" & rmail & "' like bmail",dbconn,2,3
if r1.eof = false then
if r1.fields("bureg") = "1" then
mmp1 = 0
response.write "<p><font color=#ff0000>You cannot register a username with this email: " & rmail & "</p></font>"
end if
end if
r1.close
if rq <> "1" and rq <> "2" and rq <> "3" then
mmp1 = 0
response.write "<p><font color=#ff0000>You must choose a question in order to process your request.</p></font>"
end if
if ra = "" then
mmp1 = 0
response.write "<p><font color=#ff0000>You must answer to the question you picked up.</p>"
end if
if ra = rmail then
mmp1 = 0
response.write "<p><font color=#ff0000>Your answer must be different than your email address.</p>"
end if
if ra = ru then
mmp1 = 0
response.write "<p><font color=#ff0000>Your answer must be different than your username.</p>"
end if
if len(ra) < 4 then
mmp1 = 0
response.write "<p><font color=#ff0000>Your answer must be at least 4 chars long.</p>"
end if
if mmp1 = 1 then
r1.open "select * from pusers where puser like '" & ru & "'",dbconn,2,3
if r1.eof = false then
mmp1 = 0
response.write "<h2>Someone has already begun to register that username</h2>"
end if
r1.close
end if
if mmp1 = 1 then
dim cook1
r1.open "select * from pusers",dbconn,2,3
r1.addnew
r1.fields("puser") = ru
cook1 = md5(crd & "-" & ru)
r1.fields("pcookie") = cook1
r1.fields("pmail") = rmail
r1.fields("pip") = crip
r1.fields("pverq") = rq
r1.fields("pvera") = ra
r1.fields("pexp") = crd + 86400
r1.update
r1.close
r1.open "select * from ipreg",dbconn,2,3
r1.addnew
r1.fields("regip") = crip
r1.fields("reguser") = ru
r1.update
r1.close
dim msend1
set msend1 = Server.CreateObject("CDONTS.NewMail")
msend1.from = mfrom & " <" & madd & ">"
msend1.mailformat = 0
msend1.bodyformat = 0
msend1.to = rmail
msend1.subject = "Network Channel Service Account"
msend1.body = "<html>To continue the registration process go to <a href=" & mwebadd & "confirm.asp?cookie=" & cook1 & ">" & mwebadd & "confirm.asp?cookie=" & cook1 & "</a></html>"
msend1.importance = 2
msend1.send
set msend1 = nothing
response.Write("<p>Your registration email has been sent. Please wait to receive it, and then follow the instructions it contains to continue</p>")
response.End()
end if
end if
%>
Can you give me a clue for this ?