Class for running SQL statements on a specified database

<%
'Class for running SQL statements on the specified database
'Usage:
'Dim runs
'Set runs = new runsql
'Runs. setdbn = database name
'If runs. ifok then
'Response. write runs. errs
'Response. end
'End if
'Runs. setsql = SQL
'Runs. run
'If runs. ifok then
'Response. write runs. errs
'Response. end
'Else
'Response. write "execution successful"
'End if
On error resume next
Class runsql
Private dbname' database name
Private SQL 'SQL statement to be executed
Private ifsure 'is used to save the success flag. If the success value is false, the failure value is true, and the initial value is true.
Private errstr 'Save the incorrect description text
'Get the ifsure value
Property get ifok ()
Ifok = ifsure
End property
'Get errstr value
Property get errs ()
Errs = errstr
End property
'
Private sub class_initialize ()
'Set the initial values of ifsure and errstr
Ifsure = true
Errstr = "execute SQL statements on the pointing database"
End sub
'Assign a value to dbname
Property let setdbn (dbn)
Dbname = dbn
Ifexistdb dbn
End property
'Assign a value to SQL
Property let setsql (s)
SQL = s
End property
'Execute the operation
Public sub run ()
'Restore class status
Class_initialize
'Check whether the parameters are complete
If isnull (dbname) or isempty (dbname) or cstr (dbname) = "" then
Errstr = "dbname cannot be blank"
Exit sub
End if
If isnull (SQL) or isempty (SQL) or cstr (SQL) = "" then
Errstr = "SQL cannot be blank"
Exit sub
End if
Dim Conn' connection database object
Set conn = Server. CreateObject ("adodb. connection ")
If err. number <> 0 then
Errstr = "an error occurred while establishing the adodb. connection object ."
Set objcreate = nothing
Exit sub
End if
Errstr = "cannot connect to database"
'Connect to the database
Conn. connectionstring = "provider = microsoft. jet. oledb.4.0; data source =" + server. mappath (dbname)
Conn. open
Errstr = "an error occurred while executing the SQL statement"
'Execute SQL statements