<%response.buffer=true%>
<!--#include file=../database/connection.inc-->
<%
a=trim(ReQuest.form("ma"))
b=trim(ReQuest.form("cd"))
c=trim(ReQuest.form("tws"))
d=trim(ReQuest.form("dc"))
e=trim(request.form("mn"))

Randomize
RD = trim(Int((6 * Rnd) + 1))
bk=trim(Int((4 * Rnd) + 3))
m=trim(Int((5 * Rnd) + 2))
m1=trim(Int((2 * Rnd) + 7))
m2=trim(Int((7 * Rnd) + 1))
m3=trim(Int((10 * Rnd) + 4))
m4=trim(Int((9 * Rnd) + 1))
m5= trim(Int((100 * Rnd) + 100))
m6= Int((10 * Rnd) + 100)
m7= Int((100 * Rnd) + 10)
m8=trim(m6+m7)


%>
<%
s="select *from chude_ws where machude='"+b+"';"
	rs.open s,conn
conn.close
set conn=nothing	
%>
<%response.buffer=true%>
<!--#include file=../database/connection.inc-->
<%
sqlstr="select *from website where link='"+d+"';"
	rs.open sqlstr,conn
	if rs.bof and rs.eof then
   session ("ndc")=false
   sqlthem="INSERT INTO website VALUES('"+bk+""+m+""+m1+""+m2+""+m3+""+m4+""+m5+""+m8+"','"+b+"','"+c+"','"+d+"')"
     conn.execute sqlthem
     if e="yy" then
     s="INSERT INTO wb VALUES('"+bk+""+m+""+m1+""+m2+""+m3+""+m4+""+m5+""+m8+"','"+c+"','"+e+"','"+e+"')"
     conn.execute s
         response.redirect "addnew_DC.asp"
		else
       session ("ndc")=true
       response.redirect "anew_ER.asp"
RS.CLOSE
     CONN.CLOSE
     SET RS=NOTHING
     SET CONN=NOTHING
end if
end if
%>