<% dim sql, sql1, ID, Errh, rs, URL, ErrFlag ID = ReqNum(Request.QueryString("ID")) ErrFlag = false ' §ó·sÂI¾\¼Æ if ID <> "" then sql = "update ML_News set N_Count=(select N_Count from ML_News where NewsID =" & ID & ")+1 where NewsID =" & ID sql1="select NewsUrl from ML_News where NewsID=" & ID else Response.Redirect "/main.asp" REsponse.End end if Errh = DoCommand( sql ) if Errh <> 0 then ErrFlag = true else Set rs = GetRecordset( sql1 ) If Not rs.EOF Then URL = rs(0).value else ErrFlag = true End If rs.close end if Set rs = Nothing if ErrFlag then %> <% else Response.Redirect URL end if %>