ASP Getting Started Tutorial-reading database information and updating

<!--#include file= "conn.asp"
<%
Dim id
Dim Rs,sql
id = Replace (Trim (request.querystring "id"), "'", "")
If session ("id" &id) <> "Then
 set Rs = Server.CreateObject (" ADODB. Recordset ")
 sql =" SELECT * from News Where id= "&id
 rs.open sql,conn,3,3
 if rs.eof and R S.bof Then
  Response.Write ("NoData")
 else
  Response.Write ("Dig")
  Response.Write (",")
  Response.Write (rs ("Dig"))
 end If
Else
 set Rs = Server.CreateObject ("ADODB.") Recordset ")
 sql =" SELECT * from News Where id= "&id
 rs.open sql,conn,3,3
 if rs.eof and R S.bof Then
  Response.Write ("NoData")
 else
  Dim Dig
  Dig =rs ("Dig")
  Dig = Dig + 1
  Rs ("Dig") = Dig
  rs.update
  rs.close
  Set Rs = Nothing
  Sessi On ("id" &id) = ID
  Response.Write (Dig)
 end If
End If
%>