<%@ LANGUAGE="VBScript" %>
<!--#include file="Inc/Conn.asp" -->
<!--#include file="Inc/Function.asp"-->
<%
OrderNum= Request("OrderNum")
IF Session("UserName")="" Then
 response.redirect "userserver.asp"
Else
set Rs3 = Server.CreateObject("ADODB.recordset")
sql3="select * from OrderList where OrderNum='"&OrderNum&"'"
rs3.open sql3,conn,1,1
IF  rs3.RecordCount >=1  then
IF Session("UserName")=rs3("UserName") Then
%>
<html>
<head>
<title>客户询价详细信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="mt_style.css" rel="stylesheet" type="text/css">
</head>
<%
id=Form_Id
set rs=server.createobject("adodb.recordset")
sqltext="select * from OrderList where OrderNum='"&OrderNum&"'"
rs.open sqltext,conn,1,1
%>

<body>
<br>    <div align="center">
<center>

  <TABLE cellSpacing=1 cellPadding=4 width=530 bgColor=#006699>
    <TBODY>
      <TR bgColor=#eeeeee> 
        <TD height="32"  colSpan=2><div align="center"><font color="#000000"><strong>客户询价详细资料</strong></font></div></TD>
      </TR>
      <TR> 
        <TD  width=127 bgColor=#DBDBDB height=12 align="right"><font color="#000000">询价号：</font></TD>
        <TD  width=402 height=12 bgcolor="#eeeeee">&nbsp; <%=rs("OrderNum")%></TD>
      </TR>
      <TR> 
        <TD bgColor=#DBDBDB height=12 align="right">公司名称<font color="#000000">：</font></TD>
        <TD  width=402 height=12 bgcolor="#eeeeee">&nbsp; <%=rs("CompanyName")%></TD>
      </TR>
      <tr> 
        <TD  width=127 bgColor=#DBDBDB height=25 align="right"><font color="#000000">联系人：</font></TD>
        <TD  width=402 height=25 bgcolor="#eeeeee">&nbsp; <%=rs("Receiver")%></TD>
      </TR>
      <tr> 
        <TD  width=127 bgColor=#DBDBDB height=25 align="right"><font color="#000000">公司地址：</font></TD>
        <TD  width=402 height=25 bgcolor="#eeeeee">&nbsp; <%=rs("Add")%></TD>
      </tr>
      <tr> 
        <TD  width=127 bgColor=#DBDBDB height=12 align="right"><font color="#000000">联系电话：</font></TD>
        <TD  width=402 height=12 bgcolor="#eeeeee">&nbsp; <%=rs("Phone")%></TD>
      </tr>
      <tr> 
        <TD bgColor=#DBDBDB height=12 align="right">联系传真<font color="#000000">：</font></TD>
        <TD  width=402 height=12 bgcolor="#eeeeee">&nbsp; <%=rs("Fax")%></TD>
      </tr>
      <tr> 
        <TD  width=127 bgColor=#DBDBDB height=25 align="right"><font color="#000000">电子信箱：</font></TD>
        <TD  width=402 height=25 bgcolor="#eeeeee">&nbsp; <%=rs("EMail")%></TD>
      </tr>
       <tr> 
        <TD  width=127 height=25 align="right" bgColor=#DBDBDB><font color="#000000">标题:</font></TD>
        <TD  width=402 height=25 bgcolor="#eeeeee">&nbsp; <%=rs("subject")%></TD>
      </tr>
      <tr> 
        <TD  width=127 height=25 align="right" bgColor=#DBDBDB><font color="#000000">内容:</font></TD>
        <TD  width=402 height=80 bgcolor="#eeeeee">&nbsp; <%=rs("Notes")%></TD>
      </tr>
      <tr> 
        <TD  width=127 height=25 align="right" bgColor=#DBDBDB><font color="#000000">管理员回复:</font></TD>
        <TD  width=402 height=80 bgcolor="#eeeeee">&nbsp; <%=rs("Memo")%></TD>
      </tr>
      <tr> 
        <TD  width=127 bgColor=#DBDBDB height=24 align="right"><font color="#000000">询价日期：</font></TD>
        <TD  width=402 height=24 bgcolor="#eeeeee">&nbsp; <%=rs("OrderTime")%></TD>
      </tr>
      <tr> 
        <TD  width=127 bgColor=#DBDBDB height=25 align="right"><font color="#000000">询价是否已经处理：</font></TD>
        <TD  width=402 height=25 bgcolor="#eeeeee">&nbsp;  <%If rs("Flag")="Yes" Then%>
                                          已处理
                                          <%else%>
                                          <font color="#FF0000"> 未处理</font> 
                                          <%End If%> </TD>
      </tr>
      <TR> 
        <TD height="31"  colSpan=2 bgcolor="#eeeeee"> <p align="center"><font color="#000000">产品</font>列表</p></TD>
      </TR>
      <%
set rs2=server.createobject("adodb.recordset")
sqltext2 = "select A.Product_Id,A.OrderNum,A.ProductUnit,C.Title,C.Price,C.BigClassName,C.SmallClassName from OrderDetail A,Product C where A.OrderNum='"&OrderNum&"' and A.Product_Id=C.Product_Id"

'sqltext2="select * from OrderDetail where OrderNum='"&OrderNum&"'"
rs2.open sqltext2,conn,1,1
%>
      <TR> 
        <TD height="15"  colSpan=2 valign="top" bgcolor="#eeeeee"> <div align="center"> 
            <table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolorlight="#006699" bordercolordark="#eeeeee"  height="66">
              <tr> 
                <td width="18%" bgcolor="#DBDBDB" height="21" align="center"><font color="#000000">产品编号</font></td>
                <td width="27%" bgcolor="#DBDBDB" height="21" align="center"><font color="#000000">产品名称</font></td>
                <td width="30%" bgcolor="#DBDBDB" height="21" align="center"><font color="#000000">产品类别</font></td>
              </tr>
              <%			 
While Not rs2.EOF     
	   '计算总金额%>
              <tr> 
                <td width="18%" align="center" height="22"><%=rs2("Product_Id")%></td>
                <td width="27%" align="center" height="22"><%=rs2("Title")%></td>
                <td width="30%" align="center" height="22"><%=rs2("BigClassName")%> => <%=rs2("SmallClassName")%></td>
              </tr>
              <%
rs2.MoveNext
Wend
%>
            </table>
          </div></TD>
      </TR><center>
    <TR> 
      <TD height="25"  colSpan=2 bgcolor="#eeeeee"> <p align="center"> 
          <input name="close" type="button" id="close" onClick="javascript:window.close()" value="关闭">
      </TD>
    </TR>
  </TABLE>
</div>
</form>

<p>
<%
Else
errmsg=errmsg+"<li>您不能查看不属于您的询价号，请重新输入您自己的询价号！</li>"
call WriteErrMsg()
End If
Else
errmsg=errmsg+"<li>您输入的询价号不存在或格式不正确，请重新输入！</li>"
call WriteErrMsg()
End IF
End if
rs3.close
conn.close
%>

</body>
</html>