<!--#include file="conn.asp"-->
<%
dim id
id=usb(request("id"))
if id="" or IsNumeric(id) = False then
id=myid
  end if
'id=usb(request.QueryString("id"))
%>
<%


call head()
Call saycarda("推荐成功")
%>
<!--#INCLUDE file="../bbs/sy1.asp"-->


<%
if session("pp")="" and myid<>clng(id) and myid<>0 then%>
<%sql="update Users set rm=rm+1 Where id="&id
  conn.Execute(sql)%>
推荐成功<br/>
<a href='tdp.asp?sid=<%=sid%>&amp;id=<%=id%>'>回到商店</a><br/>
<%else%>
失败,您今天已经推荐过一个商店了,或者您未登录或者这是您自己的店!<br/>

<%end if%>
<!--#include file="fanhui.asp"-->
<%
call headsay()
%>
