<%
on error resume next
response.buffer=false
%>
<!--#include virtual="/incs/config.asp"-->
<!--#include virtual="/incs/web_top.asp"-->
<%
gid=SafeRequest("proid")
if gid="" then
   call errorpage(-2,"对不起，请选择产品！")
end if
query="select * from v_pdtlst  where g_prd='"&gid&"'"
rs.open query,conn,1,1
if rs.eof then
    call errorpage(-2,"对不起，产品未找到！")
end if
pdttpenme=trim(rs("pt_nme"))
pdtclsnme=trim(Rs("pc_nme"))
pcid=rs("pc_id")
rs.close
%>  
      <table cellspacing=0 cellpadding=0 width="100%" border=0>
        <tbody> 
        <tr> 
          <td colspan=2><img height=3 
            src="/imgs/spacer.gif" width=3></td>
        </tr>
        <tr> 
          <td width=438 
          background=/imgs/bg_inside_pages_link.jpg 
          height=30><img height=11 
            src="/imgs/aword_square.gif" width=11 
            align=absMiddle> <a href="/">首 页</a> <strong>&gt;</strong> <a href="/pdtshw/ot4shw/index.asp"><%=pdttpenme%></a> 
            <strong>&gt;</strong> <%=pdtclsnme%></td>
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td colspan=2><img height=10 
            src="/imgs/shadow_inside_pages.jpg" 
        width=438></td>
        </tr>
        </tbody> 
      </table>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY> 
        <TR> 
          <TD vAlign=top width=180 bgColor=#f3f3f3> 
            <!--#include file="menu.asp"-->
          </TD>
          <TD vAlign=top width=10 
          background=/imgs/bg_inside_pages_block.jpg><IMG 
            height=1 src="/imgs/bg_inside_pages_block.jpg" 
            width=10></TD>
          <TD vAlign=top align=center> <br>
            <div align="center"><font color="#007ACC"><br>
              <br>
              <br>
              <br>
              <br>
              <br>
              </font> </div>
            <table cellspacing='0' cellpadding='2' style='font-size:9pt;' width="349">
              <tr> 
                <td style='border-width:1px; border-style: groove;'><img id='subokk' src="/imgs/submitimg.gif" border='0' width='398' height='4'></td>
              </tr>
              <tr> 
                <td style='border-width:0px;' align='center' height='10'></td>
              </tr>
              <tr> 
                <td style='border-width:0px; font-family:宋体; font-size: 9pt;' align='center' height="25"><b>进程处理中，请勿关闭浏览器……</b></td>
              </tr>
            </table>
            <br>
            <br>
            <br>
            <br>
            <br>
            <br>
          </TD>
        </TR>
        </TBODY> 
      </TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY> 
        <TR> 
          <TD bgColor=#cccccc><IMG height=1 
            src="/imgs/spacer.gif" 
      width=1></TD>
        </TR>
        </TBODY> 
      </TABLE>
      <!--#include virtual="/incs/web_bottom.asp"-->


<%


   substrContent = "entryclass:ot4_odr"&Vend
   substrContent =substrContent& "entrytype:pay"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
    substrContent =substrContent& "agentname:"&agentname&Vend
    substrContent =substrContent& "agentpass:"&agentpass&Vend
   substrContent = substrContent & "proid:" & trim(SafeRequestform("s_prd")) & Vend
   substrContent = substrContent & "bmode:3" & Vend
   substrContent = substrContent & "s_nme:" & trim(SafeRequestform("s_nme")) & Vend
   substrContent = substrContent & "s_prcstr:"& trim(SafeRequestform("s_prcstr")) & Vend
   substrContent = substrContent & "years:"& trim(SafeRequestform("years")) & Vend
for i=1 to 8
   substrContent = substrContent & "s_o"&i&":"& trim(SafeRequestform("s_o"&i)) & Vend
next
   substrContent = substrContent & "s_copnme_cn:" & trim(SafeRequestform("s_copnme_cn")) & Vend
   substrContent = substrContent & "s_prv_cn:" & trim(SafeRequestform("s_prv_cn")) & Vend
   substrContent = substrContent & "s_ctt_cn:" & trim(SafeRequestform("s_ctt_cn")) & Vend
   substrContent = substrContent & "s_adr_cn:" & trim(SafeRequestform("s_adr_cn")) & Vend
   substrContent = substrContent & "s_cde:" & trim(SafeRequestform("s_cde"))& Vend
   substrContent = substrContent & "s_tel:" & trim(SafeRequestform("s_tel")) & Vend
   substrContent = substrContent & "s_fax:" & trim(SafeRequestform("s_fax")) & Vend
   substrContent = substrContent & "s_eml:" & trim(SafeRequestform("s_eml")) & Vend
   substrContent = substrContent & "." & Vend
   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
     
   If left5= "10000" Then
   session("ot4_doresult")=doresult
            ''''''''''''''''''''''''''''邮件发送  		
   %>
      <!--#include file="ot4_snd.asp"-->
	  <%
''''''''''''''''''''''''''''''''''''''''''''
   
   
   
   
	Response.Write "<script language='javascript'>"
	Response.Write "location='ot4_rez_ok.asp';"
	Response.Write "</script>"
   Else
      call errorpage(-2,doresult)
   end if

%>