%@LANGUAGE="VBSCRIPT"%>
<%
Dim Recordset1
Dim Recordset1_numRows
Dim connection
Const adOpenStatic = 3, adLockReadOnly = 1, adCmdText = &H0001
Set connection = Server.CreateObject("ADODB.Connection")
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Dim jo
jo = 1
connection.Open MM_spec_STRING
Dim str_sql
str_sql = "SELECT * FROM specs"
Recordset1.Open str_sql,connection,adOpenStatic,adLockReadOnly,adCmdText
'Recordset1.Source = "SELECT * FROM specs"
'Recordset1.CursorType = 0
'Recordset1.CursorLocation = 2
'Recordset1.LockType = 1
'Recordset1.Open()
Recordset1_numRows = 0
%>
Aaron Rocco's - Specials
 |
 |
|

.
Aaron Rocco's is now under new ownership.
It is with the heaviest of hearts that we say "farewell". We cannot tell you how much all of your support has meant to us.
We hope that you will be pleased with the new owners. They will work as hard as we have to make everyone happy. We give them our blessings!!
From the bottom of our hearts: Thank You!
Aaron and Denise
678-878-1943 |
|
|
|
| |
|
|
ss
<%
Recordset1.Close()
Set Recordset1 = Nothing
connection.Close()
Set connection = Nothing
%>