Database

Private ConnectionString As String
' Sets the filename of the database to open
'
' IN
' dbFileName - the filename of the database
Public Sub SetDatabaseFilename(dbFileName As String)
    ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + dbFileName
End Sub

' Opens the database
'
' IN
' OUT - a connection to the database - close with Connection.Close
Public Function OpenDatabase() As ADODB.Connection
    Dim adoconn As New ADODB.Connection
    
    ' DEBUG ONLY
    SetDatabaseFilename "C:\Documents and Settings\Administrator\My Documents\Main.mdb" 
    ' END DEBUG ONLY
    
    adoconn.Open ConnectionString
    Set OpenDatabase = adoconn
End Function

' Removes a customers's record from the database
'
' IN
' ID - ID of the customer record to be deleted
'
' OUT - success?
Public Function RemoveCustomer(ID As Integer) As Boolean
On Error GoTo Fail
    Dim adoconn As New ADODB.Connection
    Set adoconn = OpenDatabase
    
    adoconn.Execute "DELETE * FROM tblClients WHERE ID=" & ID
    
    adoconn.Close
    
    RemoveCustomer = True
    Exit Function
    
Fail:
    RemoveCustomer = False
    If IsObject(adoconn) Then
        adoconn.Close
    End If
End Function

if (Request.QueryString("TransactionID").Count)
	strTransactionID = Request("TransactionID");
else
	// abort action ...

SELECT Client.ClientID, Transaction.TransactionType, Transaction.TransactionData0, "+
	"Transaction.TransactionData1, Transaction.TransactionData2, Transaction.ProductID, "+
	"Product.NumberOfLicenses "+
	"FROM (Client INNER JOIN Product ON Client.ClientID = Product.ClientID) " +
	"INNER JOIN [Transaction] ON Product.ProductID = Transaction.ProductID";