contact.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!--#include file="conn.asp" -->
<!--#include file="inc/check.asp"-->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: contact.asp
'Version:2.0
'UpdateTime: 2004-10-3 20:17:30
'Script Written by www.aspease.com 
'=========================================================
sellerid=fval(rst("sellerid"))
aucid=FVal(rst("aucid"))
buyerid=FVal(rst("buyerid"))
if rst("t")="contactseller" then
	if buyerid<>userid then
	err_msg="<B><LI>"&easecontacterr1&"</b>"   
	aspease_err
	footer
	response.end
	end if
stats=easecontactstats1
header
activeonline
sql="select * from users,gets where regid=get_sellerid and get_BuyerID="&sqlval(buyerid)&" and get_sellerid="&sqlVal(sellerid)&" and get_ItemID="&sqlVal(aucid)
set rs=conn.execute(sql)
if rs.eof then
err_msg="<B><LI>"&easeerrpage&"</b>"   
aspease_err
footer
response.end
else
response.Write("<table border=""0"" width=""500"" align=""center"">")
response.Write("  <tr>")
response.Write("    <td width=""33%"" align=""left"">" & easecontactseller & "</td>")
response.Write("    <td width=""33%"" align=""left"">" & rs("reguserName") & "　</td>")
response.Write("  </tr>")
response.Write("  <tr>")
response.Write("    <td width=""33%"" align=""left"">" & easecontactsellername & "</td>")
response.Write("    <td width=""33%"" align=""left"">" & rs("regName") & "</td>")
response.Write("  </tr>")
response.Write("  <tr>")
response.Write("    <td width=""33%"" align=""left"">" & easecontactemail & "</td>")
response.Write("    <td width=""33%"" align=""left"">" & rs("regEmail") & "</td>")
response.Write("  </tr>")
response.Write("  <tr>")
response.Write("    <td width=""33%"" align=""left"">" & easecontactaddr1 & "</td>")
response.Write("    <td width=""33%"" align=""left"">" & rs("regCountry") & "," & rs("regState") & "," & rs("regCity") & "," & rs("regAddress1") & "</td>")
response.Write("  </tr>")
response.Write("  <tr>")
response.Write("    <td width=""33%"" align=""left"">" & easecontactaddr2 & "</td>")
response.Write("    <td width=""33%"" align=""left"">" & rs("regAddress2") & "</td>")
response.Write("  </tr>")
response.Write("  <tr>")
response.Write("    <td width=""33%"" align=""left"">" & easecontacttel & "</td>")
response.Write("    <td width=""33%"" align=""left"">" & rs("regTel") & "　</td>")
response.Write("  </tr>")
response.Write("</table>")
footer
end if
else
	if sellerid<>userid then
	err_msg="<B><LI>"&easecontacterr2&"</b>"   
	aspease_err
	footer
	response.end
	end if
stats=easecontactstats2
header
sql="select * from users,gets where regid=get_buyerid and get_BuyerID="&SQLVal(buyerid)&" and get_sellerid="&SQLVal(sellerid)&" and get_ItemID="&SQLVal(aucid)
set rs=conn.execute(sql)
if rs.eof then
err_msg="<B><LI>"&easeerrpage&"</b>"   
aspease_err
footer
response.end
else
response.Write("<table border=""0"" width=""500"" align=""center"">")
response.Write("  <tr>")
response.Write("    <td width=""33%"" align=""left"">" & easecontactbuyer & "</td>")
response.Write("    <td width=""33%"" align=""left"">" & rs("reguserName") & "　</td>")
response.Write("  </tr>")
response.Write("  <tr>")
response.Write("    <td width=""33%"" align=""left"">" & easecontactbuyername & "</td>")
response.Write("    <td width=""33%"" align=""left"">" & rs("regName") & "</td>")
response.Write("  </tr>")
response.Write("  <tr>")
response.Write("    <td width=""33%"" align=""left"">" & easecontactemail & "</td>")
response.Write("    <td width=""33%"" align=""left"">" & rs("regEmail") & "</td>")
response.Write("  </tr>")
response.Write("  <tr>")
response.Write("    <td width=""33%"" align=""left"">" & easecontactaddr1 & "</td>")
response.Write("    <td width=""33%"" align=""left"">" & rs("regCountry") & "," & rs("regState") & "," & rs("regCity") & "," & rs("regAddress1") & "</td>")
response.Write("  </tr>")
response.Write("  <tr>")
response.Write("    <td width=""33%"" align=""left"">" & easecontactaddr2 & "</td>")
response.Write("    <td width=""33%"" align=""left"">" & rs("regAddress2") & "</td>")
response.Write("  </tr>")
response.Write("  <tr>")
response.Write("    <td width=""33%"" align=""left"">" & easecontacttel & "</td>")
response.Write("    <td width=""33%"" align=""left"">" & rs("regTel") & "　</td>")
response.Write("  </tr>")
response.Write("</table>")
footer
end if
end if
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: contact.asp
'Version:2.0
'UpdateTime: 2004-10-3 20:17:30
'Script Written by www.aspease.com 
'=========================================================%>