%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Import Namespace="System.IO" %>
")
End If
'Catch
' Response.Write("")
'End Try
End Function
Function CheckEof(Sqltxt As String)
abc.Open()
Sql = New OleDbCommand(Sqltxt, abc)
rs = Sql.ExecuteReader
If rs.Read = True
rs.Close:abc.close()
Return True
Else
rs.Close:abc.close()
Return False
End If
End Function