del_log_count=0
SQL = "Select id from blog where sort="& delsortid
set tempc=conn.Execute(sql)
while not tempc.eof
SQL = "delete from b_comment where logid="&tempc("log_ID")
conn.Execute(sql)
del_log_count=del_log_count+1
tempc.movenext
wend
sql= "delete from blog where id="& delsortid
conn.Execute(sql)
set tempc=nothing
sql="Delete from b_sort where sortid = " & delsortid