Database

Dim rowCount as object
SQLQuery = "SELECT COUNT(ID) FROM Log"
value = OBJdbConnection.ExecuteScalar(SQLQuery)
if not value is dbnull.value then 
  'Make sure you didn't receive a Null from the database. 
  'If not it should be an int or int32. Can't remember which one is actually returned.
  Response.Write(value.tostring)
end if

<br />
SQLQuery = "SELECT * FROM Log" <br />
Set RS = OBJdbConnection.Execute(SQLQuery)<br />
<br />
While (Not RS.EOF)<br />
sTotalpages = sTotalpages + 1<br />
RS.MoveNext<br />
Wend

<br />
dim sTotalpages<br />
SQLQuery = "SELECT COUNT(ID) FROM Log"<br />
sTotalpages = OBJdbConnection.ExecuteScalar(SQLQuery)   'Line 12 - the error point<br />
Response.Write(sTotalpages)

Dim cn As New System.Data.SqlClient.SqlConnection(_connectString)
    Dim value As Object
    Dim cmd As New System.Data.SqlClient.SqlCommand("Select count(SampleID) from tblSamplesSample")
    cmd.Connection = cn
    cn.Open()
    value = cmd.ExecuteScalar
    Response.Write(value)

set rs = OBJdbConnection.execute("SELECT count(ID) as total from Log")<br />
sTotalpages = rs("total")

SQLQuery = "SELECT * FROM Log WHERE Log.ID BETWEEN " & (((sCurrentpage-1)*5)+1) & " AND " & (sCurrentpage*5) & " ORDER BY ID DESC"

USE db;
GO

SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES
WHERE TABLE_TYPE = 'BASE TABLE';

GRANT CREATE TABLE TO public