<%@ Language=VBScript %>
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("cansetpro")="" Then
	ef=True
	ec="您没有此操作的权限。"
end if
if not ef then%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html8")%>
<%=htmlwrite("html9")%>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 background="img/midtop4.gif">
  <TBODY>
    <TR>
      <TD width=53 align="left" background="img/midtop1.gif"><strong> 　 </strong><font color="#FFFFFF">─<strong>&gt;</strong></font> </TD>
      <TD width="83"><table height="59"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7" background="img/midtop.gif">&nbsp;</td>
            <td width="60" align="center" valign="middle" background="img/r3.jpg" id="tableTop1" style="Cursor:hand"><a href="product-domain.asp"><font color="#FFFFFF">域名定价</font></a><a href="systeminfo.asp"></a><a href="logininfo.asp"></a></td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></TD>
      <TD width="83">&nbsp;</TD>
      <TD width="83">&nbsp;</TD>
      <TD width="83" align="left">&nbsp;</TD>
      <TD align="left">&nbsp;</TD>
      <TD width=23 align="right"><IMG height=59 
                  src="img/rtop4.jpg" 
                  width=19></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR>
      <TD width=19 background="img/midlef.gif" id=rightid>&nbsp;</TD>
      <TD height="300" align="center" vAlign=top bgcolor="#FFFFFF"><br>
<br>
<%
isfirst=false
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")

	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=1"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay1"))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay1"))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=1
ds("Domaintype")="国际英文域名.com"
ds("usermoney")=trim(Request.Form("usermoney1"))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn1"))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay1"))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay1"))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay1_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay1_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay1_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay1_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay1_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay1_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay1_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay1_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay1_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay1_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay1_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay1_7"))
End if

ds("year2")=trim(Request.Form("usermoney1year2"))
ds("year3")=trim(Request.Form("usermoney1year3"))
ds("year4")=trim(Request.Form("usermoney1year4"))
ds("year5")=trim(Request.Form("usermoney1year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn1year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn1year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn1year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn1year5"))

ds("agent1")="n"
ds("domstr")=".com"
ds("checkapi")=Request.Form("checkapi1")
ds("regapi")=Request.Form("regapi1")
ds.update
ds.close



	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=2"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay2"))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay2"))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=2
ds("Domaintype")="中国国家顶级域名"
ds("usermoney")=trim(Request.Form("usermoney2"))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn2"))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay2"))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay2"))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay2_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay2_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay2_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay2_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay2_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay2_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay2_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay2_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay2_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay2_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay2_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay2_7"))
End If 

ds("agent1")="n"
ds("domstr")=".cn"
ds("checkapi")=Request.Form("checkapi2")
ds("regapi")=Request.Form("regapi2")

ds("year2")=trim(Request.Form("usermoney2year2"))
ds("year3")=trim(Request.Form("usermoney2year3"))
ds("year4")=trim(Request.Form("usermoney2year4"))
ds("year5")=trim(Request.Form("usermoney2year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn2year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn2year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn2year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn2year5"))

ds.update
ds.close



	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=3"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay3"))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay3"))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=3
ds("Domaintype")="中文通用域名"
ds("usermoney")=trim(Request.Form("usermoney3"))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn3"))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay3"))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay3"))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay3_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay3_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay3_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay3_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay3_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay3_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay3_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay3_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay3_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay3_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay3_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay3_7"))
End If

ds("agent1")="n"
ds("domstr")=".中国/.公司/.网络"
ds("checkapi")=Request.Form("checkapi3")
ds("regapi")=Request.Form("regapi3")
ds("year2")=trim(Request.Form("usermoney3year2"))
ds("year3")=trim(Request.Form("usermoney3year3"))
ds("year4")=trim(Request.Form("usermoney3year4"))
ds("year5")=trim(Request.Form("usermoney3year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn3year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn3year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn3year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn3year5"))
ds.update
ds.close

'if Request.Form("usermoney4")>0 then
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=4"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay4"))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay4"))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=4
ds("Domaintype")=".biz"
ds("usermoney")=trim(Request.Form("usermoney4"))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn4"))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay4"))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay4"))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay4_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay4_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay4_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay4_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay4_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay4_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay4_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay4_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay4_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay4_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay4_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay4_7"))
End If

ds("agent1")="n"
ds("domstr")=".biz"
ds("checkapi")=Request.Form("checkapi4")
ds("regapi")=Request.Form("regapi4")
ds("year2")=trim(Request.Form("usermoney4year2"))
ds("year3")=trim(Request.Form("usermoney4year3"))
ds("year4")=trim(Request.Form("usermoney4year4"))
ds("year5")=trim(Request.Form("usermoney4year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn4year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn4year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn4year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn4year5"))
ds.update
ds.close
'end if

'if Request.Form("usermoney5")>0 then
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=5"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay5"))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay5"))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=5
ds("Domaintype")=".info"
ds("usermoney")=trim(Request.Form("usermoney5"))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn5"))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay5"))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay5"))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay5_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay5_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay5_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay5_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay5_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay5_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay5_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay5_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay5_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay5_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay5_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay5_7"))
End If

ds("agent1")="n"
ds("domstr")=".info"
ds("checkapi")=Request.Form("checkapi5")
ds("regapi")=Request.Form("regapi5")
ds("year2")=trim(Request.Form("usermoney5year2"))
ds("year3")=trim(Request.Form("usermoney5year3"))
ds("year4")=trim(Request.Form("usermoney5year4"))
ds("year5")=trim(Request.Form("usermoney5year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn5year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn5year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn5year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn5year5"))
ds.update
ds.close
'end if

'if Request.Form("usermoney6")>0 then
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=6"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay6"))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay5"))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=6
ds("Domaintype")="普通通用网址"
ds("usermoney")=trim(Request.Form("usermoney6"))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn6"))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay6"))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay6"))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay6_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay6_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay6_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay6_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay6_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay6_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay6_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay6_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay6_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay6_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay6_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay6_7"))
End If

ds("agent1")="n"
ds("domstr")="通用网址"
ds("checkapi")=Request.Form("checkapi6")
ds("regapi")=Request.Form("regapi6")
ds("year2")=trim(Request.Form("usermoney6year2"))
ds("year3")=trim(Request.Form("usermoney6year3"))
ds("year4")=trim(Request.Form("usermoney6year4"))
ds("year5")=trim(Request.Form("usermoney6year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn6year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn6year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn6year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn6year5"))
ds.update
ds.close
'end if

'if Request.Form("usermoney7")>0 then
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=7"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay7"))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay7"))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=7
ds("Domaintype")="中文国际域名"
ds("usermoney")=trim(Request.Form("usermoney7"))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn7"))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay7"))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay7"))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay7_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay7_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay7_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay7_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay7_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay7_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay7_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay7_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay7_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay7_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay7_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay7_7"))
End If

ds("agent1")="n"
ds("domstr")="中文.com"
ds("checkapi")=Request.Form("checkapi7")
ds("regapi")=Request.Form("regapi7")
ds("year2")=trim(Request.Form("usermoney7year2"))
ds("year3")=trim(Request.Form("usermoney7year3"))
ds("year4")=trim(Request.Form("usermoney7year4"))
ds("year5")=trim(Request.Form("usermoney7year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn7year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn7year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn7year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn7year5"))
ds.update
ds.close
'end if

	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=8"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay8"))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay8"))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=8
ds("Domaintype")=".cc"
if Request.Form("usermoney8")<>"" then
ds("usermoney")=trim(Request.Form("usermoney8"))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn8"))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay8"))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay8"))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay8_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay8_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay8_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay8_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay8_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay8_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay8_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay8_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay8_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay8_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay8_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay8_7"))
End if

else
ds("usermoney")=300
ds("usermoneyagn")=300
ds("usermoneyrepay")=300
ds("usermoneyagnrepay")=300
end if
ds("agent1")="n"
ds("domstr")=".cc"
ds("checkapi")=Request.Form("checkapi8")
ds("regapi")=Request.Form("regapi8")
ds("year2")=trim(Request.Form("usermoney8year2"))
ds("year3")=trim(Request.Form("usermoney8year3"))
ds("year4")=trim(Request.Form("usermoney8year4"))
ds("year5")=trim(Request.Form("usermoney8year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn8year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn8year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn8year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn8year5"))
ds.update
ds.close


	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=9"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay9"))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay9"))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=9
ds("Domaintype")=".mobi"
if Request.Form("usermoney9")<>"" then
ds("usermoney")=trim(Request.Form("usermoney9"))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn9"))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay9"))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay9"))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay9_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay9_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay9_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay9_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay9_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay9_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay9_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay9_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay9_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay9_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay9_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay9_7"))
End If

else
ds("usermoney")=300
ds("usermoneyagn")=300
ds("usermoneyrepay")=300
ds("usermoneyagnrepay")=300
end if
ds("agent1")="n"
ds("domstr")=".mobi"
ds("checkapi")=Request.Form("checkapi9")
ds("regapi")=Request.Form("regapi9")
ds("year2")=trim(Request.Form("usermoney9year2"))
ds("year3")=trim(Request.Form("usermoney9year3"))
ds("year4")=trim(Request.Form("usermoney9year4"))
ds("year5")=trim(Request.Form("usermoney9year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn9year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn9year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn9year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn9year5"))
ds.update
ds.close











Enddomaintypeid=10

	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id='"&Enddomaintypeid&"'"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=Enddomaintypeid
ds("Domaintype")=".tv"
if Request.Form("usermoney"&Enddomaintypeid&"")<>"" then
ds("usermoney")=trim(Request.Form("usermoney"&Enddomaintypeid&""))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&""))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&""))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_7"))
End If

else
ds("usermoney")=300
ds("usermoneyagn")=300
ds("usermoneyrepay")=300
ds("usermoneyagnrepay")=300
end if
ds("agent1")="n"
ds("domstr")=".tv"
ds("checkapi")=Request.Form("checkapi"&Enddomaintypeid&"")
ds("regapi")=Request.Form("regapi"&Enddomaintypeid&"")
ds("year2")=trim(Request.Form("usermoney"&Enddomaintypeid&"year2"))
ds("year3")=trim(Request.Form("usermoney"&Enddomaintypeid&"year3"))
ds("year4")=trim(Request.Form("usermoney"&Enddomaintypeid&"year4"))
ds("year5")=trim(Request.Form("usermoney"&Enddomaintypeid&"year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year5"))
ds.update
ds.close


Enddomaintypeid=13
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id='"&Enddomaintypeid&"'"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=Enddomaintypeid
ds("Domaintype")="中文.biz"
if Request.Form("usermoney"&Enddomaintypeid&"")<>"" then
ds("usermoney")=trim(Request.Form("usermoney"&Enddomaintypeid&""))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&""))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&""))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_7"))
End If

else
ds("usermoney")=300
ds("usermoneyagn")=300
ds("usermoneyrepay")=300
ds("usermoneyagnrepay")=300
end if
ds("agent1")="n"
ds("domstr")=".biz"
ds("checkapi")=Request.Form("checkapi"&Enddomaintypeid&"")
ds("regapi")=Request.Form("regapi"&Enddomaintypeid&"")
ds("year2")=trim(Request.Form("usermoney"&Enddomaintypeid&"year2"))
ds("year3")=trim(Request.Form("usermoney"&Enddomaintypeid&"year3"))
ds("year4")=trim(Request.Form("usermoney"&Enddomaintypeid&"year4"))
ds("year5")=trim(Request.Form("usermoney"&Enddomaintypeid&"year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year5"))
ds.update
ds.close






Enddomaintypeid=15
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id='"&Enddomaintypeid&"'"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=Enddomaintypeid
ds("Domaintype")="中文.cc"
if Request.Form("usermoney"&Enddomaintypeid&"")<>"" then
ds("usermoney")=trim(Request.Form("usermoney"&Enddomaintypeid&""))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&""))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&""))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_7"))
End If

else
ds("usermoney")=300
ds("usermoneyagn")=300
ds("usermoneyrepay")=300
ds("usermoneyagnrepay")=300
end if
ds("agent1")="n"
ds("domstr")=".cc"
ds("checkapi")=Request.Form("checkapi"&Enddomaintypeid&"")
ds("regapi")=Request.Form("regapi"&Enddomaintypeid&"")
ds("year2")=trim(Request.Form("usermoney"&Enddomaintypeid&"year2"))
ds("year3")=trim(Request.Form("usermoney"&Enddomaintypeid&"year3"))
ds("year4")=trim(Request.Form("usermoney"&Enddomaintypeid&"year4"))
ds("year5")=trim(Request.Form("usermoney"&Enddomaintypeid&"year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year5"))
ds.update
ds.close



Enddomaintypeid=17
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id='"&Enddomaintypeid&"'"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=Enddomaintypeid
ds("Domaintype")="中文.tv"
if Request.Form("usermoney"&Enddomaintypeid&"")<>"" then
ds("usermoney")=trim(Request.Form("usermoney"&Enddomaintypeid&""))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&""))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&""))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_7"))
End If

else
ds("usermoney")=300
ds("usermoneyagn")=300
ds("usermoneyrepay")=300
ds("usermoneyagnrepay")=300
end if
ds("agent1")="n"
ds("domstr")=".tv"
ds("checkapi")=Request.Form("checkapi"&Enddomaintypeid&"")
ds("regapi")=Request.Form("regapi"&Enddomaintypeid&"")
ds("year2")=trim(Request.Form("usermoney"&Enddomaintypeid&"year2"))
ds("year3")=trim(Request.Form("usermoney"&Enddomaintypeid&"year3"))
ds("year4")=trim(Request.Form("usermoney"&Enddomaintypeid&"year4"))
ds("year5")=trim(Request.Form("usermoney"&Enddomaintypeid&"year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year5"))
ds.update
ds.close




Enddomaintypeid=11
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id='"&Enddomaintypeid&"'"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=Enddomaintypeid
ds("Domaintype")=".hk"
if Request.Form("usermoney"&Enddomaintypeid&"")<>"" then
ds("usermoney")=trim(Request.Form("usermoney"&Enddomaintypeid&""))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&""))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&""))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_7"))
End If

else
ds("usermoney")=450
ds("usermoneyagn")=450
ds("usermoneyrepay")=450
ds("usermoneyagnrepay")=450
end if
ds("agent1")="n"
ds("domstr")=".hk"
ds("checkapi")=Request.Form("checkapi"&Enddomaintypeid&"")
ds("regapi")=Request.Form("regapi"&Enddomaintypeid&"")
ds("year2")=trim(Request.Form("usermoney"&Enddomaintypeid&"year2"))
ds("year3")=trim(Request.Form("usermoney"&Enddomaintypeid&"year3"))
ds("year4")=trim(Request.Form("usermoney"&Enddomaintypeid&"year4"))
ds("year5")=trim(Request.Form("usermoney"&Enddomaintypeid&"year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year5"))
ds.update
ds.close


Enddomaintypeid=18
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id='"&Enddomaintypeid&"'"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=Enddomaintypeid
ds("Domaintype")="中文.hk"
if Request.Form("usermoney"&Enddomaintypeid&"")<>"" then
ds("usermoney")=trim(Request.Form("usermoney"&Enddomaintypeid&""))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&""))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&""))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_7"))
End If

else
ds("usermoney")=450
ds("usermoneyagn")=450
ds("usermoneyrepay")=450
ds("usermoneyagnrepay")=450
end if
ds("agent1")="n"
ds("domstr")="中文.hk"
ds("checkapi")=Request.Form("checkapi"&Enddomaintypeid&"")
ds("regapi")=Request.Form("regapi"&Enddomaintypeid&"")
ds("year2")=trim(Request.Form("usermoney"&Enddomaintypeid&"year2"))
ds("year3")=trim(Request.Form("usermoney"&Enddomaintypeid&"year3"))
ds("year4")=trim(Request.Form("usermoney"&Enddomaintypeid&"year4"))
ds("year5")=trim(Request.Form("usermoney"&Enddomaintypeid&"year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year5"))
ds.update
ds.close


Enddomaintypeid=12
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id='"&Enddomaintypeid&"'"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=Enddomaintypeid
ds("Domaintype")=".tw"
if Request.Form("usermoney"&Enddomaintypeid&"")<>"" then
ds("usermoney")=trim(Request.Form("usermoney"&Enddomaintypeid&""))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&""))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&""))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_7"))
End If

else
ds("usermoney")=450
ds("usermoneyagn")=450
ds("usermoneyrepay")=450
ds("usermoneyagnrepay")=450
end if
ds("agent1")="n"
ds("domstr")=".tw"
ds("checkapi")=Request.Form("checkapi"&Enddomaintypeid&"")
ds("regapi")=Request.Form("regapi"&Enddomaintypeid&"")
ds("year2")=trim(Request.Form("usermoney"&Enddomaintypeid&"year2"))
ds("year3")=trim(Request.Form("usermoney"&Enddomaintypeid&"year3"))
ds("year4")=trim(Request.Form("usermoney"&Enddomaintypeid&"year4"))
ds("year5")=trim(Request.Form("usermoney"&Enddomaintypeid&"year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year5"))
ds.update
ds.close


Enddomaintypeid=19
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id='"&Enddomaintypeid&"'"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=Enddomaintypeid
ds("Domaintype")="中文.tw"
if Request.Form("usermoney"&Enddomaintypeid&"")<>"" then
ds("usermoney")=trim(Request.Form("usermoney"&Enddomaintypeid&""))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&""))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&""))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_7"))
End If

else
ds("usermoney")=450
ds("usermoneyagn")=450
ds("usermoneyrepay")=450
ds("usermoneyagnrepay")=450
end if
ds("agent1")="n"
ds("domstr")="中文.tw"
ds("checkapi")=Request.Form("checkapi"&Enddomaintypeid&"")
ds("regapi")=Request.Form("regapi"&Enddomaintypeid&"")
ds("year2")=trim(Request.Form("usermoney"&Enddomaintypeid&"year2"))
ds("year3")=trim(Request.Form("usermoney"&Enddomaintypeid&"year3"))
ds("year4")=trim(Request.Form("usermoney"&Enddomaintypeid&"year4"))
ds("year5")=trim(Request.Form("usermoney"&Enddomaintypeid&"year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year5"))
ds.update
ds.close


Enddomaintypeid=20
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id='"&Enddomaintypeid&"'"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=Enddomaintypeid
ds("Domaintype")=".name"
if Request.Form("usermoney"&Enddomaintypeid&"")<>"" then
ds("usermoney")=trim(Request.Form("usermoney"&Enddomaintypeid&""))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&""))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&""))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_7"))
End If

else
ds("usermoney")=450
ds("usermoneyagn")=450
ds("usermoneyrepay")=450
ds("usermoneyagnrepay")=450
end if
ds("agent1")="n"
ds("domstr")=".name"
ds("checkapi")=Request.Form("checkapi"&Enddomaintypeid&"")
ds("regapi")=Request.Form("regapi"&Enddomaintypeid&"")
ds("year2")=trim(Request.Form("usermoney"&Enddomaintypeid&"year2"))
ds("year3")=trim(Request.Form("usermoney"&Enddomaintypeid&"year3"))
ds("year4")=trim(Request.Form("usermoney"&Enddomaintypeid&"year4"))
ds("year5")=trim(Request.Form("usermoney"&Enddomaintypeid&"year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year5"))
ds.update
ds.close



Enddomaintypeid=30
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id='"&Enddomaintypeid&"'"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=Enddomaintypeid
ds("Domaintype")="国际英文域名.net/.org"
if Request.Form("usermoney"&Enddomaintypeid&"")<>"" then
ds("usermoney")=trim(Request.Form("usermoney"&Enddomaintypeid&""))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&""))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&""))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_7"))
End If

else
ds("usermoney")=80
ds("usermoneyagn")=80
ds("usermoneyrepay")=80
ds("usermoneyagnrepay")=80
end if
ds("agent1")="n"
ds("domstr")=".net/.org"
ds("checkapi")=Request.Form("checkapi"&Enddomaintypeid&"")
ds("regapi")=Request.Form("regapi"&Enddomaintypeid&"")
ds("year2")=trim(Request.Form("usermoney"&Enddomaintypeid&"year2"))
ds("year3")=trim(Request.Form("usermoney"&Enddomaintypeid&"year3"))
ds("year4")=trim(Request.Form("usermoney"&Enddomaintypeid&"year4"))
ds("year5")=trim(Request.Form("usermoney"&Enddomaintypeid&"year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year5"))
ds.update
ds.close

Enddomaintypeid=32
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id='"&Enddomaintypeid&"'"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=Enddomaintypeid
ds("Domaintype")=".tel"
if Request.Form("usermoney"&Enddomaintypeid&"")<>"" then
ds("usermoney")=trim(Request.Form("usermoney"&Enddomaintypeid&""))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&""))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&""))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_7"))
End If

else
ds("usermoney")=150
ds("usermoneyagn")=150
ds("usermoneyrepay")=150
ds("usermoneyagnrepay")=150
end if
ds("agent1")="n"
ds("domstr")=".tel"
ds("checkapi")=Request.Form("checkapi"&Enddomaintypeid&"")
ds("regapi")=Request.Form("regapi"&Enddomaintypeid&"")
ds("year2")=trim(Request.Form("usermoney"&Enddomaintypeid&"year2"))
ds("year3")=trim(Request.Form("usermoney"&Enddomaintypeid&"year3"))
ds("year4")=trim(Request.Form("usermoney"&Enddomaintypeid&"year4"))
ds("year5")=trim(Request.Form("usermoney"&Enddomaintypeid&"year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year5"))
ds.update
ds.close


Enddomaintypeid=31
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id='"&Enddomaintypeid&"'"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=Enddomaintypeid
ds("Domaintype")=".me"
if Request.Form("usermoney"&Enddomaintypeid&"")<>"" then
ds("usermoney")=trim(Request.Form("usermoney"&Enddomaintypeid&""))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&""))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&""))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_7"))
End If

else
ds("usermoney")=300
ds("usermoneyagn")=300
ds("usermoneyrepay")=300
ds("usermoneyagnrepay")=300
end if
ds("agent1")="n"
ds("domstr")=".me"
ds("checkapi")=Request.Form("checkapi"&Enddomaintypeid&"")
ds("regapi")=Request.Form("regapi"&Enddomaintypeid&"")
ds("year2")=trim(Request.Form("usermoney"&Enddomaintypeid&"year2"))
ds("year3")=trim(Request.Form("usermoney"&Enddomaintypeid&"year3"))
ds("year4")=trim(Request.Form("usermoney"&Enddomaintypeid&"year4"))
ds("year5")=trim(Request.Form("usermoney"&Enddomaintypeid&"year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year5"))
ds.update
ds.close

Enddomaintypeid=21
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id='"&Enddomaintypeid&"'"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=Enddomaintypeid
ds("Domaintype")=".asia"
if Request.Form("usermoney"&Enddomaintypeid&"")<>"" then
ds("usermoney")=trim(Request.Form("usermoney"&Enddomaintypeid&""))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&""))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&""))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_7"))
End If

else
ds("usermoney")=150
ds("usermoneyagn")=150
ds("usermoneyrepay")=150
ds("usermoneyagnrepay")=150
end if
ds("agent1")="n"
ds("domstr")=".asia"
ds("checkapi")=Request.Form("checkapi"&Enddomaintypeid&"")
ds("regapi")=Request.Form("regapi"&Enddomaintypeid&"")
ds("year2")=trim(Request.Form("usermoney"&Enddomaintypeid&"year2"))
ds("year3")=trim(Request.Form("usermoney"&Enddomaintypeid&"year3"))
ds("year4")=trim(Request.Form("usermoney"&Enddomaintypeid&"year4"))
ds("year5")=trim(Request.Form("usermoney"&Enddomaintypeid&"year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year5"))
ds.update
ds.close


Enddomaintypeid=70
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id='"&Enddomaintypeid&"'"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=Enddomaintypeid
ds("Domaintype")=".gov.cn"
if Request.Form("usermoney"&Enddomaintypeid&"")<>"" then
ds("usermoney")=trim(Request.Form("usermoney"&Enddomaintypeid&""))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&""))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&""))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_7"))
End If

else
ds("usermoney")=300
ds("usermoneyagn")=300
ds("usermoneyrepay")=300
ds("usermoneyagnrepay")=300
end if
ds("agent1")="n"
ds("domstr")=".gov.cn"
ds("checkapi")=Request.Form("checkapi"&Enddomaintypeid&"")
ds("regapi")=Request.Form("regapi"&Enddomaintypeid&"")
ds("year2")=trim(Request.Form("usermoney"&Enddomaintypeid&"year2"))
ds("year3")=trim(Request.Form("usermoney"&Enddomaintypeid&"year3"))
ds("year4")=trim(Request.Form("usermoney"&Enddomaintypeid&"year4"))
ds("year5")=trim(Request.Form("usermoney"&Enddomaintypeid&"year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year5"))
ds.update
ds.close

For i=1 To 100
If i=27 Or i=71 Or i=72 Or i=52 Or i=73 Or i=74 Or i=75 Or i=76 Or i=77 Or i=24 then
Enddomaintypeid=i
If Enddomaintypeid=27 Then Domaintype=".us"
If Enddomaintypeid=71 Then Domaintype=".co"
If Enddomaintypeid=72 Then Domaintype=".cm"
If Enddomaintypeid=52 Then Domaintype=".la"
If Enddomaintypeid=73 Then Domaintype=".im"
If Enddomaintypeid=74 Then Domaintype=".wang"
If Enddomaintypeid=75 Then Domaintype=".top"
If Enddomaintypeid=76 Then Domaintype=".xyz"
If Enddomaintypeid=77 Then Domaintype=".pw"
If Enddomaintypeid=24 Then Domaintype=".in"

	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_DomainProductlist where id='"&Enddomaintypeid&"'"
		ds.Open Sql,conn,1,3
if ds.eof then
ds.addnew
isfirst=True
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))
ds("usermoneyrepay2")=ds("usermoneyrepay")
ds("usermoneyagnrepay2")=ds("usermoneyagnrepay")
ds("usermoneyrepay3")=ds("usermoneyrepay")
ds("usermoneyagnrepay3")=ds("usermoneyagnrepay")
ds("usermoneyrepay4")=ds("usermoneyrepay")
ds("usermoneyagnrepay4")=ds("usermoneyagnrepay")
ds("usermoneyrepay5")=ds("usermoneyrepay")
ds("usermoneyagnrepay5")=ds("usermoneyagnrepay")
ds("usermoneyrepay6")=ds("usermoneyrepay")
ds("usermoneyagnrepay6")=ds("usermoneyagnrepay")
ds("usermoneyrepay7")=ds("usermoneyrepay")
ds("usermoneyagnrepay7")=ds("usermoneyagnrepay")
end if
ds("id")=Enddomaintypeid

ds("Domaintype")=Domaintype

if Request.Form("usermoney"&Enddomaintypeid&"")<>"" then
ds("usermoney")=trim(Request.Form("usermoney"&Enddomaintypeid&""))
ds("usermoneyagn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&""))
ds("usermoneyrepay")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&""))
ds("usermoneyagnrepay")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&""))

if Not isfirst=True then
ds("usermoneyrepay2")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_2"))
ds("usermoneyagnrepay2")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_2"))
ds("usermoneyrepay3")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_3"))
ds("usermoneyagnrepay3")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_3"))
ds("usermoneyrepay4")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_4"))
ds("usermoneyagnrepay4")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_4"))
ds("usermoneyrepay5")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_5"))
ds("usermoneyagnrepay5")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_5"))
ds("usermoneyrepay6")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_6"))
ds("usermoneyagnrepay6")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_6"))
ds("usermoneyrepay7")=trim(Request.Form("usermoneyrepay"&Enddomaintypeid&"_7"))
ds("usermoneyagnrepay7")=trim(Request.Form("usermoneyagnrepay"&Enddomaintypeid&"_7"))
End If

else
ds("usermoney")=300
ds("usermoneyagn")=300
ds("usermoneyrepay")=300
ds("usermoneyagnrepay")=300
end if
ds("agent1")="n"
ds("domstr")=Domaintype
ds("checkapi")=Request.Form("checkapi"&Enddomaintypeid&"")
ds("regapi")=Request.Form("regapi"&Enddomaintypeid&"")
ds("year2")=trim(Request.Form("usermoney"&Enddomaintypeid&"year2"))
ds("year3")=trim(Request.Form("usermoney"&Enddomaintypeid&"year3"))
ds("year4")=trim(Request.Form("usermoney"&Enddomaintypeid&"year4"))
ds("year5")=trim(Request.Form("usermoney"&Enddomaintypeid&"year5"))

ds("year2agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year2"))
ds("year3agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year3"))
ds("year4agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year4"))
ds("year5agn")=trim(Request.Form("usermoneyagn"&Enddomaintypeid&"year5"))
ds.update
ds.close
End if
next
%>
<br><br><br>添加/修改成功
<br>
<br>
<%if isfirst=true then%>
<a href="product-domain.asp"><font color="#FF0000">您是第一次设置，请返回设置好域名注册用的接口&gt;&gt;</font></a>
<%end if%></TD>
      <TD width=18 background="img/midri.gif">&nbsp;</TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
    <TR>
      <TD width=30><IMG height=19 
                  src="img/rb1.jpg" 
                  width=30></TD>
      <TD 
                background=img/rb2.jpg>&nbsp;</TD>
      <TD width=30><IMG height=19 
                  src="img/rb3.jpg" 
                  width=30></TD>
    </TR>
  </TBODY>
</TABLE>
<%=htmlwrite("html10")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
