Простейший пример работы с базой данных

<script runat='server'>
 
' строка подключения к базе данных
'
Dim connectionString As String = _
    'server='server1' user id='sa' password='qwe' database='mis''
 
function SStr(v as Object) As String
    if v is DBNull.Value then
        SStr = ''
    else
        Sstr = CStr(v)
    end if
end function
 
function GetUserName() As String
    GetUserName = Request.ServerVariables('REMOTE_USER')
end function
 
function SEnv() As String
    SEnv = ''
    dim sv as Object
    for each sv in Request.ServerVariables
        SEnv = SEnv & (sv & '=' & Request.ServerVariables(sv) & '
 
')
    next
end function
 
Function GetUserInfo(ByVal username As String) As System.Data.DataSet
    Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)
 
    Dim queryString As String = 'SELECT [users].* FROM [users] WHERE ([users].[username] = @username)'
    Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
    dbCommand.CommandText = queryString
    dbCommand.Connection = dbConnection
 
    Dim dbParam_username As System.Data.IDataParameter = _
        New System.Data.SqlClient.SqlParameter
    dbParam_username.ParameterName = '@username'
    dbParam_username.Value = username
    dbParam_username.DbType = System.Data.DbType.String
    dbCommand.Parameters.Add(dbParam_username)
 
    Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter
    dataAdapter.SelectCommand = dbCommand
    Dim dataSet As System.Data.DataSet = New System.Data.DataSet
    dataAdapter.Fill(dataSet)
 
    Return dataSet
End Function
 
Function UpdateUserInfo(ByVal username As String, ByVal firstname As String, ByVal lastname As String, ByVal middlename As String, ByVal email As String) As Integer
    Dim connectionString As String = 'server='(local)' user id='sa' password='q' database='mis''
    Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)
 
    Dim queryString As String = 'UPDATE [users] SET [firstname]=@firstname, [lastname]=@lastname, [middlename]=@mi'& _
    'ddlename, [email]=@email WHERE ([users].[username] = @username)'
    Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
    dbCommand.CommandText = queryString
    dbCommand.Connection = dbConnection
 
    Dim dbParam_username As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
    dbParam_username.ParameterName = '@username'
    dbParam_username.Value = username
    dbParam_username.DbType = System.Data.DbType.String
    dbCommand.Parameters.Add(dbParam_username)
    Dim dbParam_firstname As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
    dbParam_firstname.ParameterName = '@firstname'
    dbParam_firstname.Value = firstname
    dbParam_firstname.DbType = System.Data.DbType.String
    dbCommand.Parameters.Add(dbParam_firstname)
    Dim dbParam_lastname As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
    dbParam_lastname.ParameterName = '@lastname'
    dbParam_lastname.Value = lastname
    dbParam_lastname.DbType = System.Data.DbType.String
    dbCommand.Parameters.Add(dbParam_lastname)
    Dim dbParam_middlename As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
    dbParam_middlename.ParameterName = '@middlename'
    dbParam_midd