<% entry_id = request.querystring("id") set conn=server.CreateObject("ADODB.connection") conn.open "DSN=nothingtoit_7051" SQL = "SELECT * FROM recipe_tbl WHERE entry_id = "& entry_id & ";" set rs=server.createObject("ADODB.recordset") rs.open SQL, CONN if not rs.eof then response.write "" while not rs.eof tempVar = rs("intro") response.write "" response.write "" if ISNULL(tempVar)=TRUE THEN response.write "" else response.write "" response.write "" end if response.write "" response.write "" response.write "" response.write "" rs.movenext wend %> " response.write "
" & rs("name") & "
  
Description: "& tempvar & "
Ingredients: "& rs("Ingredients") & "
Directions: "& rs("Directions") & "


<% 'this part selects and displays the upcoming classes... SQL = "SELECT [class_datetime_tbl].[class_datetime_id], [class_datetime_tbl].[class_datetime], " SQL = SQL &"[class_datetime_tbl].[class_capacity], [class_datetime_tbl].[class_enrolled], " SQL = SQL &"[class_datetime_tbl].[class_status], [class_series_tbl].[class_series], " SQL = SQL &"[instructor_tbl].[instructor_name], [class_tbl].[class_photo], " SQL = SQL &"[class_tbl].[class_price], [class_tbl].[class_name], " SQL = SQL &"[class_tbl].[class_prerequisite], [class_tbl].[class_note], " SQL = SQL &"[class_tbl].[class_demo], [class_tbl].[class_new], [class_tbl].[class_description]" SQL = SQL &"FROM instructor_tbl INNER JOIN ((class_series_tbl INNER JOIN class_tbl ON " SQL = SQL &"[class_series_tbl].[class_series_id] =[class_tbl].[class_series_id]) INNER JOIN " SQL = SQL &"class_datetime_tbl ON [class_tbl].[class_id] =[class_datetime_tbl].[class_id]) " SQL = SQL &"ON [instructor_tbl].[instructor_id] =[class_datetime_tbl].[instructor_id] WHERE " SQL = SQL &"[class_datetime_tbl].[class_datetime] BETWEEN #"& Cdate(NOW()) &"# AND #" & Cdate(NOW()+7) &"# " SQL = SQL &"ORDER BY [class_datetime_tbl].[class_datetime] ASC;" set rs2=server.createObject("ADODB.recordset") rs2.open SQL, CONN while not rs2.eof response.write ""&rs2("class_name")&" on " & trimseconds(rs2("class_datetime"))&"
" rs2.movenext wend response.write "

" rs2.close set rs2=nothing response.write"
" else response.write "There are no entries matching your search criteria at this time." end if rs.close set rs=nothing conn.close set conn=nothing %>