%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsttcount
Dim rsttcount_numRows
Set rsttcount = Server.CreateObject("ADODB.Recordset")
rsttcount.ActiveConnection = MM_connTIF_STRING
rsttcount.Source = "SELECT count(CustomerTTID) FROM TTuesday"
rsttcount.CursorType = 0
rsttcount.CursorLocation = 2
rsttcount.LockType = 1
rsttcount.Open()
rsttcount_numRows = 0
%>
<%
dim amount, rate, value
amount = (rsttcount.Fields.Item("Expr1000").Value)
rate = "16.5"
value = amount * rate
%>
Fun Stuff
|

|

Encouraging meat-free meals once a week
|
|
|
<%
rsttcount.Close()
Set rsttcount = Nothing
%>