<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% if(Request("main_id") <> "") then Command1__send_id = Request("main_id") %> <% set Command1 = Server.CreateObject("ADODB.Command") Command1.ActiveConnection = MM_connM2_STRING Command1.CommandText = "UPDATE postMain SET num_hits = num_hits + 1 WHERE main_id = " + Replace(Command1__send_id, "'", "''") + " " Command1.CommandType = 1 Command1.CommandTimeout = 0 Command1.Prepared = true Command1.Execute() %> <% Response.Redirect("detail.asp?main_id="&Request("main_id")) %>