Dim db As New TestDataContext

        Dim tcs = (From p In db.tblTests _
where p.site="dotnetspider" _
 Select p ).count()
        response.write(tcs)