%@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
 |
 |
|

.
Giancarlo’s Pizza & Pasta
1197 Peachtree Rd., N.E.
Suite 518
Atlanta, GA 30361
Ph: 404-892-8002 Cell: 678-878-1943
Aaron Rocco’s Bistro
1197 Peachtree Rd., N.E.
Suite 504
Atlanta, GA 30361
Ph: 404-879-0339 Fax: 404-879-0744
|
|
|
|
| |
|
|
ss
<%
Recordset1.Close()
Set Recordset1 = Nothing
connection.Close()
Set connection = Nothing
%>