news=Trim(Request("mid"))

if news="" or not isNumeric(news) then

response.redirect "error.asp"

response.End

end if

set rs= Server.CreateObject("ADODB.RecordSet")

sql="select uy_tur,uy_name,uy_cont,uy_mez,uy_time from [uy_news] where uy_id="&news&" "

rs.open sql,conn,1,1

if rs.eof then

response.redirect "error.asp"

response.End

end if

sql="update uy_news set uy_cont=uy_cont+1 where uy_id="&news

conn.execute(sql)

tur=rs("uy_tur")

mmurl=rs("uy_pic")%>