<%@LANGUAGE="VBSCRIPT"%>
<%
' *** Set Session Variable To Value Of Form Element
Session("recipeID") = cStr(Request("recipeID"))
%>
<%
' *** Set A Session Variable To 1 so all we grab are the featured recipes.
Session("recipeFeaturedFront") = ("1")
%>
<%
Dim rsFeatured__MMColParam
rsFeatured__MMColParam = "1"
if (Session("recipeFeaturedFront") <> "") then rsFeatured__MMColParam = Session("recipeFeaturedFront")
%>
<%
set rsFeatured = Server.CreateObject("ADODB.Recordset")
rsFeatured.ActiveConnection = MM_potato_STRING
rsFeatured.Source = "SELECT * FROM tblRecipes WHERE recipeFeatured = " + Replace(rsFeatured__MMColParam, "'", "''") + ""
rsFeatured.CursorType = 0
rsFeatured.CursorLocation = 2
rsFeatured.LockType = 3
rsFeatured.Open()
rsFeatured_numRows = 0
%>
<%
FUNCTION CropSentence(strText, intLength, strTrial)
Dim wsCount
Dim intTempSize
Dim intTotalLen
Dim strTemp
wsCount = 0
intTempSize = 0
intTotalLen = 0
intLength = intLength - Len(strTrial)
strTemp = ""
IF Len(strText) > intLength THEN
arrTemp = Split(strText, " ")
FOR EACH x IN arrTemp
IF Len(strTemp) <= intLength THEN
strTemp = strTemp & x & " "
END IF
NEXT
CropSentence = Left(strTemp, Len(strTemp) - 1) & strTrial
ELSE
CropSentence = strText
END IF
END FUNCTION
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
rsFeatured_numRows = rsFeatured_numRows + Repeat1__numRows
%>
Potato Recipes
<%
rsFeatured.Close()
%>