Condition/Paging in listing using vb.net

I try to put this condition inside gridview..but it didn't work, but if I if I just use the way as below it worked well. But the problem is if I didn't use Gridview, I can't display the paging and total records. Help me. Thanks in advance.

dataSql.SelectData(connectionString, rs, strSql, Nothing)

Response.Write("")

If rs.HasRows() Then

Do While rs.Read()

If Not Convert.IsDBNull(rs("SubjectCd")) Then

SubjectCd = Trim(rs("SubjectCd"))

End If

For i = 0 To arraySubjCd.Count - 1

If SubjectCd = arraySubjCd(i) Then

flag = 1

End If

Next

For i = 0 To subjFail.Count - 1

If SubjectCd = subjFail(i) And examYear = FailYear(i) Then

flag = 9

End If

Next

If flag = 1 Then

If FlagSedia = "Kesedian" Or viewExit = True Then

Response.Write("")

Response.Write("")

Else

Response.Write("")

Response.Write("")

End If

Else

Response.Write("") Response.Write("")

End If

End If

Loop

End If