inquiredetail.asp

英文版全站B2B仿阿里巴巴贸易平台网站,全英文

<!--#include file="../../Inc/DBConn1.asp" -->
<LINK href="../../CSS/style.css" rel="stylesheet" type="text/css"></LINK>

<%
	set Rs=server.createobject("adodb.recordset")
	Rs.open "select * from Inquire where ID=" & request("ID"),conn,1,3
%>

<center>
	<table align="center" width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#31517B" style="border-color:#31517B;" ID="Table1">
		<tr bgcolor="#BBC2CE">
			<td height=25 colspan=2 style="padding-left:10pt;">
				<b>留言详细信息</b>
			</td>
		</tr>
		<tr bgcolor="#FFFFFF">
			<td width="35%" height=25 align="right" style="padding-right:5pt;">
				留言标题：
			</td>
			<td width="65%" style="padding-left:5pt;padding-right:10pt;">
				<%=Rs("Subject")%>
			</td>
		</tr>
		<tr bgcolor="#FFFFFF">
			<td width="35%" height=25 align="right" style="padding-right:5pt;">
				留言内容：
			</td>
			<td width="65%" style="padding-left:5pt;padding-right:10pt;padding-top:5px;padding-bottom:5px;line-height:18px;">
				<%=Rs("Message")%>
			</td>
		</tr>
		<%
			if Rs("IsPrice")=true then
				Information=Information & "Price<br>"
			end if
			if Rs("IsSpecifications")=true then
				Information=Information & "Specifications/International standards met<br>"
			end if
			if Rs("IsMinimumOrder")=true then
				Information=Information & "Minimum order quantity<br>"
			end if
			if Rs("IsDeliveryTime")=true then
				Information=Information & "Delivery time<br>"
			end if
			if Rs("IsSample")=true then
				Information=Information & "Sample availability/cost<br>"
			end if
		%>
		<tr bgcolor="#FFFFFF">
			<td width="35%" height=25 align="right" style="padding-right:5pt;">
				索取资料：
			</td>
			<td width="65%" style="padding-left:5pt;padding-right:10pt;line-height:18px;">
				<%=Information%>
			</td>
		</tr>
		<%
			Set UCRs=server.CreateObject("ADODB.Recordset")
			UCRs.Open "select * from UserCompany where UID in (0" & Rs("TOUIDS") & "0)",conn,1,1
			while not UCRs.EOF
				CompanyNameList=CompanyNameList & "<a href='../../Company/CompanyDetail.asp?UID=" & UCRs("UID") & "' target=_blank>" & UCRs("CompanyName") & "</a><BR>"
				UCRs.MoveNext
			wend
		%>
		<tr bgcolor="#FFFFFF">
			<td width="35%" height=25 align="right" style="padding-right:5pt;">
				接收企业：
			</td>
			<td width="65%" style="padding-left:5pt;padding-right:10pt;line-height:18px;">
				<%=CompanyNameList%>
			</td>
		</tr>
		<%
			if Rs("Sex")=true then
				Linkman="Mr.&nbsp;" & Rs("FirstName") & "&nbsp;" & Rs("LastName")
			else
				Linkman="Ms.&nbsp;" & Rs("FirstName") & "&nbsp;" & Rs("LastName")
			end if
		%>
		<tr bgcolor="#FFFFFF">
			<td width="35%" height=25 align="right" style="padding-right:5pt;">
				联系人：
			</td>
			<td width="65%" style="padding-left:5pt;padding-right:10pt;">
				<%=Linkman%>
			</td>
		</tr>
		<tr bgcolor="#FFFFFF">
			<td width="35%" height=25 align="right" style="padding-right:5pt;">
				联系人公司：
			</td>
			<td width="65%" style="padding-left:5pt;padding-right:10pt;">
				<%=Rs("CompanyName")%>
			</td>
		</tr>
		<%
			set CouRs=server.CreateObject("ADODB.Recordset")
			CouRs.Open "select * from Country where CountryID=" & Rs("CountryID"),conn,1,1
			if Not(CouRs.EOF and CouRs.BOF) then
				CountryName=CouRs("CountryName")
			end if
		%>
		<tr bgcolor="#FFFFFF">
			<td width="35%" height=25 align="right" style="padding-right:5pt;">
				联系人所在国家：
			</td>
			<td width="65%" style="padding-left:5pt;padding-right:10pt;">
				<%=CountryName%>
			</td>
		</tr>
		<tr bgcolor="#FFFFFF">
			<td width="35%" height=25 align="right" style="padding-right:5pt;">
				联系电话：
			</td>
			<td width="65%" style="padding-left:5pt;padding-right:10pt;">
				<%=Rs("PhoneCountry")%> - <%=Rs("PhoneArea")%> - <%=Rs("PhoneNumber")%>
			</td>
		</tr>
		<tr bgcolor="#FFFFFF">
			<td width="35%" height=25 align="right" style="padding-right:5pt;">
				传真号码：
			</td>
			<td width="65%" style="padding-left:5pt;padding-right:10pt;">
				<%=Rs("FaxCountry")%> - <%=Rs("FaxArea")%> - <%=Rs("FaxNumber")%>
			</td>
		</tr>
		<tr bgcolor="#FFFFFF">
			<td width="35%" height=25 align="right" style="padding-right:5pt;">
				E-mail：
			</td>
			<td width="65%" style="padding-left:5pt;padding-right:10pt;">
				<a href="mailto:<%=Rs("Email")%>"><font color="#0072AB"><%=Rs("Email")%></font></a>
			</td>
		</tr>
		<tr bgcolor="#FFFFFF">
			<td width="35%" height=25 align="right" style="padding-right:5pt;">
				留言时间：
			</td>
			<td width="65%" style="padding-left:5pt;padding-right:10pt;">
				<%=Rs("MDate")%>
			</td>
		</tr>
	</table>
	<table align=center width=100% border=0 cellpadding=0 cellspacing=0 ID="Table2">
		<tr>
			<td height=60 align=center><br><br><a href="javascript:window.close()" class=menu><font color="#0072AB">关闭窗口</font></a></td>
		</tr>
	</table>
</center>
<%
	UCRs.Close
	set UCRs=nothing
	CouRs.Close
	set CouRs=nothing
	Rs.Close
	set Rs=nothing
%>