% 'Dimension variables Dim adorecCon 'Holds the Database Connection Object Dim rsrecmenu 'Holds the recordset for the records in the database Dim strrecSQL 'Holds the SQL query for the database 'Create an ADO connection object Set adorecCon = Server.CreateObject("ADODB.Connection") 'Set an active connection to the Connection object using DSN connection adorecCon.Open "DSN=hqs; database=kbk; UID=kbk1; PWD=sa;" 'Create an ADO recordset object Set rsrecmenu = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strrecSQL = "SELECT * FROM recipes" 'Open the recordset with the SQL query rsrecmenu.Open strrecSQL, adorecCon %>
![]() |
| Our Products | Our Values | Our Company | ||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||||