<!--#include file="../Inc/Conn.asp" -->
<!--#include file="../Inc/SK.Session.asp" -->
<!--#include file="../Inc/SK.Funtion.asp" -->
<%
Response.ContentType = "text/html"
Response.Charset = "gb2312"
set rs=server.CreateObject("adodb.recordset")
sql="select * from SK_Product where SK_ProTm='"&F("S_Tm")&"'"
rs.open sql,conn,1,1
If rs.eof Then
Else

set RsCategory=server.createobject("adodb.recordset")
SqlCategory="select * from SK_SystemCategory where SK_Di=161 and CategoryID="&Rs("SK_Unit")&""
RsCategory.open SqlCategory,conn,1,1
iUnit=RsCategory("SK_Name")
RsCategory.close
set RsCategory=Nothing

response.write rs("SK_ProName")&"|"&rs("ProID")&"|"&rs("SK_Price1")
response.end

End If
rs.close
set rs=Nothing
%>
