ASP query specify ID record to modify

<%
Dim Id,sql,url
Id=html_encode (Request.QueryString ("id"))
If id= "" Then
Response.Write ("The data transfer process has been modified, the server rejects the operation.")
Response.End
ElseIf not IsNumeric (Id) Then
Response.Write ("The data transfer process has been modified, the server rejects the operation.")
Response.End
Else
Call Hit (ID)
Url=request.servervariables ("Script_name")
Sql= "SELECT * from Young Where id=" &id
On Error Resume Next
Call Opendb
Set Rs=conn.execute (SQL)
If not rs.eof Then
Did=rs (0)
Pid=rs (1)
Cid=replace (Replace (Rs (2), "Script", ""), "<", "" "
%>

The principle is very simple, now we get the value of the ID OH.