<%@ Language=VBScript %> <% Dim actionstr action = Request.QueryString("action") pics = Request.QueryString("pics") strStore = Request.QueryString("s") strCP = Request.QueryString("cp") %> <% Response.Buffer = true Response.Clear Response.Expires = 0 ' response.end %> <% Dim strTos Dim strCat Dim strType Dim strleftcolor Dim strbackground Dim strweather Session("FDUserEmail") = "" Dim rsType Dim rsTos Dim StrBypass Dim strdef Dim strwords dim strextrabutton dim kbplid ' dim pl_id strdef = "Y" strbypass = "Temp" strwords = "Sample Business Website" strwords2 = "Best Business in Town" 'Session("chain_id") = 281063 pl_id = "lipvcfence" ' Response.Write "PL-id1:" & session("pl_id") ' response.end ' If Instr(1, Request.ServerVariables("HTTP_HOST"), ".") <> 0 Then pl_id = Left(Request.ServerVariables("HTTP_HOST"), Instr(1, Request.ServerVariables("HTTP_HOST"), ".") - 1) pl_id = "deliciouspizza" ' if pl_id <> Session("pl_id") then ' respone.write "ss:" & session("pl_id") ' pl_id = "lionsclub" Dim ConnHead 'Database ADO Connecrtion object Dim rsChainHead 'Database ADO Recordset object Dim CmdHead 'Database ADO Command object Dim rsStoreHead Set ConnHead = Server.CreateObject("ADODB.Connection") ConnHead.ConnectionString = Session("ConnectionString") ConnHead.Open Set CmdHead = CreateObject("ADODB.Command") Set rsChainHead = CreateObject("ADODB.Recordset") rsChainHead.CursorType = adOpenStatic CmdHead.ActiveConnection = ConnHead ' pl_id = "fdbaseball" CmdHead.CommandText = "exec usp_chain_select NULL, '" & padQuotes(pl_id) & "'" ' Response.Write "HELLO:" & CmdHead.CommandText Set rsChainHead = CmdHead.Execute() ' response.write "aaa chain:" & session("chain_id") ' response.end If Not (rsChainHead.EOF And rsChainHead.BOF) Then Session("pl_id") = pl_id ' response.write "bbb chainrs: " & Trim("" & rsChainHead("chain_id")) ' response.write Session("pl_id") ' response.end Session("chain_id") = Trim("" & rsChainHead("chain_id")) Session("chain_name") = Trim("" & rsChainHead("chain_name")) Session("chain_type_id") = Trim("" & rsChainHead("chain_type_id")) Session("chain_pl_url") = Trim("" & rsChainHead("pl_url")) Session("chain_home_url") = Trim("" & rsChainHead("chain_home_url")) Session("chain_home_url_desc") = Trim("" & rsChainHead("chain_home_url_desc")) Session("chain_intranet_assoc") = Trim("" & rsChainHead("chain_intranet_assoc")) Session("Chain_Telephone") = Trim("" & rsChainHead("chain_tel1")) If Trim("" & rsChainHead("chain_logo")) = "" Then Session("chain_img_logo_src") = "images/fd/logos/fdlogo_small.jpg" Else If Trim("" & rsChainHead("chain_type_id")) = "R" Or Trim("" & rsChainHead("chain_type_id")) = "RA" Then Session("chain_img_logo_src") = "images/stores/logos/" & Trim("" & rsChainHead("chain_logo")) Else Session("chain_img_logo_src") = "images/supplier/logos/" & Trim("" & rsChainHead("chain_logo")) End If End If end if ' end if ' end if ' ' Dim Counter1 strChain = Session("chain_id") strChainType = Session("chain_type_id") strChainName = Session("chain_name") strHomeUrl = Session("chain_home_url") ' response.write "HELLOOOOO" & strhomeurl ' response.end strHomeUrlDesc = Session("chain_home_url_desc") if strhomeurl = "shepard.kpsearch.com" then strwords = "Shepard Motor Sports" strwords2 = "The only place to go for all your Hobby Motor Sport Needs " end if if strhomeurl = "Sbarros-Roos.kpsearch.com" then strwords = "Sbarro's Italian Eatery" strwords2 = "For The Best Italian Specialties In Town" end if counter1 = 0 ThisDay = 0 Dim rsEvent11 'Database ADO Recordset object Set Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionString = Session("ConnectionString") Conn.Open Set Cmd = CreateObject("ADODB.Command") Cmd.ActiveConnection = Conn Set rsEvent1 = CreateObject("ADODB.Recordset") rsEvent1.CursorType = adOpenStatic ' Set the Month and Year parameters to e ' qual the current values if they do not e ' xist. If (Request.QueryString("Month") = "") Then ThisMonthYear = Now() ThisMonth = Month(Now()) ThisYear = Year(Now()) Else ThisMonth = Request.QueryString("Month") ThisYear = Request.QueryString("Year") End If If (Request.QueryString("Day") = "") Then CurrDay = Day(Now()) Else CurrDay = Day(CDate(ThisMonth & "/" & Request.QueryString("Day") & "/" & ThisYear)) End If ''''Response.Write CurrDay ' Determine the Last/Next Month and Year ' If (ThisMonth = 12) Then LastMonth = 11 LastYear = ThisYear NextMonth = 1 NextYear = ThisYear + 1 Else If (ThisMonth = 1) Then LastMonth = 12 LastYear = ThisYear - 1 NextMonth = ThisMonth + 1 NextYear = ThisYear Else LastMonth = ThisMonth - 1 LastYear = ThisYear NextMonth = ThisMonth + 1 NextYear = ThisYear End If End If ' Get the day of the week of the first d ' ay in This Month FirstDay = WeekDay(cdate(ThisMonth & "/01/" & ThisYear), vbSunday) DaysInMonth = Day(cdate(NextMonth & "/01/" & NextYear) - 1) ' Dim PrevDayDate, FrwdDayDate PrevDayDate = DateAdd("d", 0, CDate(ThisMonth & "/" & CurrDay & "/" & ThisYear)) FrwdDayDate = DateAdd("d", 14, CDate(ThisMonth & "/" & CurrDay & "/" & ThisYear)) strCalRefFile = "default_assoc.asp" If Request.QueryString("src") = "ss" Then strTOS = Request.QueryString("tos") strCat = Request.QueryString("cat") strType = Request.QueryString("type") strZip = Request.QueryString("zip") strSS = Request.QueryString("ss") Else strTOS = Request.QueryString("tos") strCat = Request.QueryString("cat") strType = Request.QueryString("type") strZip = Request.QueryString("zip") strSS = Request.QueryString("ss") End If Dim Conn 'Database ADO Connecrtion object Dim Rs 'Database ADO Recordset object Dim Cmd 'Database ADO Command object Dim SqlStr Dim rsCat Dim rsemp Set Cmd = CreateObject("ADODB.RecordSet") Set Conn = Server.CreateObject("ADODB.Connection") 'Response.Write Session("ConnectionString") Conn.ConnectionString = Session("ConnectionString") Conn.Open Set Cmd = CreateObject("ADODB.Command") Cmd.ActiveConnection = Conn strChainViewType = "" strChainBannerImage = "" strItem1BGColor = "" strItem1BGImage = "" strItem1Heading = "" strItem1SubHeading = "" strItem1Text = "" strItem1Html = "" strItem1Image = "" strItem1Url1 = "" strItem1Url1Desc = "" strItem1Url2 = "" strItem1Url2Desc = "" strItem1Url3 = "" strItem1Url3Desc = "" strItem1Url4 = "" strItem1Url4Desc = "" strItem1Url5 = "" strItem1Url5Desc = "" strItem2BGColor = "" strItem2BGImage = "" strItem2Heading = "" strItem2SubHeading = "" strItem2Text = "" strItem2Html = "" strItem2Image = "" strItem2Url1 = "" strItem2Url1Desc = "" strItem2Url2 = "" strItem2Url2Desc = "" strItem2Url3 = "" strItem2Url3Desc = "" strItem2Url4 = "" strItem2Url4Desc = "" strItem2Url5 = "" strItem2Url5Desc = "" strItem3BGColor = "" strItem3BGImage = "" strItem3Heading = "" strItem3SubHeading = "" strItem3Text = "" strItem3Html = "" strItem3Image = "" strItem3Url1 = "" strItem3Url1Desc = "" strItem3Url2 = "" strItem3Url2Desc = "" strItem3Url3 = "" strItem3Url3Desc = "" strItem3Url4 = "" strItem3Url4Desc = "" strItem3Url5 = "" strItem3Url5Desc = "" strteamphotoaddress = "" strJobSearchCaption = "Job Search" strVendorSearchCaption = "Business Search" strProductSearchCaption = "Product Search" strCouponSearchCaption = "Coupon Search" strdocuments = "" strChain = Session("chain_id") strChainType = Session("chain_type_id") strchaintype = "S" strChainName = Session("chain_name") strHomeUrl = Session("chain_home_url") strHomeUrlDesc = Session("chain_home_url_desc") strImgLogoSrc = GetRootRelativePath & Session("chain_img_logo_src") Cmd.CommandText = "exec usp_service_pak_select_for_assoc " & strChain Set rsCat = Cmd.Execute() Cmd.CommandText = "exec usp_chain_employee_select " & strChain Set rsEmp = Cmd.Execute() Cmd.CommandText = "exec usp_chain_select " & strChain Set rsChain = Cmd.Execute() If Not(rsChain.EOF And rsChain.BOF) Then strWeatherZip = Trim("" & rsChain("chain_zip1")) End If rsChain.Close Cmd.CommandText = "exec usp_chain_view_select " & strChain Set rsChainView = Cmd.Execute() ' if strhomeurl = "smrest.kpsearch.com" then ' end if If Not(rsChainView.EOF And rsChainView.BOF) Then strChainViewType = Trim("" & rsChainView("chain_view_type")) strChainBannerImage = Trim("" & rsChainView("chain_banner_image")) ' response.write strhomeurl & strchainbannerimage ' response.end strItem1BGColor = Trim("" & rsChainView("item1_bgcolor")) If strItem1BGColor = "" Then strItem1BGColor = "#FFFFFF" End If strItem1BGImage = Trim("" & rsChainView("item1_bgimage")) strItem1Heading = Trim("" & rsChainView("item1_heading")) strItem1SubHeading = Trim("" & rsChainView("item1_sub_heading")) strItem1Text = Trim("" & rsChainView("item1_text")) strItem1Html = Trim("" & rsChainView("item1_html")) strItem1Image = Trim("" & rsChainView("item1_image")) strItem1Url1 = Trim("" & rsChainView("item1_url1")) strItem1Url1Desc = Trim("" & rsChainView("item1_url1_desc")) strItem1Url2 = Trim("" & rsChainView("item1_url2")) strItem1Url2Desc = Trim("" & rsChainView("item1_url2_desc")) strItem1Url3 = Trim("" & rsChainView("item1_url3")) strItem1Url3Desc = Trim("" & rsChainView("item1_url3_desc")) strItem1Url4 = Trim("" & rsChainView("item1_url4")) strItem1Url4Desc = Trim("" & rsChainView("item1_url4_desc")) strItem1Url5 = Trim("" & rsChainView("item1_url5")) strItem1Url5Desc = Trim("" & rsChainView("item1_url5_desc")) strItem2BGColor = Trim("" & rsChainView("item2_bgcolor")) If strItem2BGColor = "" Then strItem2BGColor = "#FFFFFF" End If strItem2BGImage = Trim("" & rsChainView("item2_bgimage")) strItem2Heading = Trim("" & rsChainView("item2_heading")) strItem2SubHeading = Trim("" & rsChainView("item2_sub_heading")) strItem2Text = Trim("" & rsChainView("item2_text")) strItem2Html = Trim("" & rsChainView("item2_html")) strItem2Image = Trim("" & rsChainView("item2_image")) strItem2Url1 = Trim("" & rsChainView("item2_url1")) strItem2Url1Desc = Trim("" & rsChainView("item2_url1_desc")) strItem2Url2 = Trim("" & rsChainView("item2_url2")) strItem2Url2Desc = Trim("" & rsChainView("item2_url2_desc")) strItem2Url3 = Trim("" & rsChainView("item2_url3")) strItem2Url3Desc = Trim("" & rsChainView("item2_url3_desc")) strItem2Url4 = Trim("" & rsChainView("item2_url4")) strItem2Url4Desc = Trim("" & rsChainView("item2_url4_desc")) strItem2Url5 = Trim("" & rsChainView("item2_url5")) strItem2Url5Desc = Trim("" & rsChainView("item2_url5_desc")) strItem3BGColor = Trim("" & rsChainView("item3_bgcolor")) If strItem3BGColor = "" Then strItem3BGColor = "#FFFFFF" End If strItem3BGImage = Trim("" & rsChainView("item3_bgimage")) strItem3Heading = Trim("" & rsChainView("item3_heading")) strItem3SubHeading = Trim("" & rsChainView("item3_sub_heading")) strItem3Text = Trim("" & rsChainView("item3_text")) strItem3Html = Trim("" & rsChainView("item3_html")) strItem3Image = Trim("" & rsChainView("item3_image")) strItem3Url1 = Trim("" & rsChainView("item3_url1")) strItem3Url1Desc = Trim("" & rsChainView("item3_url1_desc")) strItem3Url2 = Trim("" & rsChainView("item3_url2")) strItem3Url2Desc = Trim("" & rsChainView("item3_url2_desc")) strItem3Url3 = Trim("" & rsChainView("item3_url3")) strItem3Url3Desc = Trim("" & rsChainView("item3_url3_desc")) strItem3Url4 = Trim("" & rsChainView("item3_url4")) strItem3Url4Desc = Trim("" & rsChainView("item3_url4_desc")) strItem3Url5 = Trim("" & rsChainView("item3_url5")) strItem3Url5Desc = Trim("" & rsChainView("item3_url5_desc")) strdocuments = Trim("" & rsChainView("document_address")) strextrabutton = Trim("" & rsChainView("document_address")) ' strextrabutton = Trim("" & rsChainView("product_search_caption")) If Trim("" & rsChainView("job_search_caption")) <> "" Then strJobSearchCaption = Trim("" & rsChainView("job_search_caption")) End If If Trim("" & rsChainView("vendor_search_caption")) <> "" Then strVendorSearchCaption = Trim("" & rsChainView("vendor_search_caption")) End If If Trim("" & rsChainView("product_search_caption")) <> "" Then strProductSearchCaption = Trim("" & rsChainView("product_search_caption")) End If If Trim("" & rsChainView("coupon_search_caption")) <> "" Then strCouponSearchCaption = Trim("" & rsChainView("coupon_search_caption")) End If strteamphotoAddress = Trim("" & rsChainview("team_photo_address")) End If rsChainView.Close ' End If %> "> "> <%=Trim("" & rsChainHead("chain_web_title"))%>
Home  |  Menus  |  Catering Menus  |  Wings & Things  |  Specials  |  Contact Us  |  ORDER ONLINE 
<%if action <> "coupons" then %> <%end if%>
<%if action = "menu" then %> <%end if%> <%if action = "specials" then %> <%end if%> <%if action = "specialtymenu" then %> <%end if%> <%if action = "partyroom" then %> <%end if%> <%if action = "brunch" then %> <%end if%> <%if action = "cateringmenu" then %> <%end if%> <%if action = "inhousecatering" then %> <%end if%> <%if action = "photos" then %> <%end if%> <%if action = "contact" then %> <%end if%> <%if action = "wings" then %> <%end if%> <%if action = "loyalty" then %> <%end if%> <%if pics = "" and action = "" then %>
<%If Not(strItem1Image = "" and strItem1Heading = "" and strItem1SubHeading = "" and strItem1Text = "" And strItem1Html = "") Then%> <%End If%>
 

 

The Best Pizza in the

Landing Area Since 1965
Enjoy your favorite pizza made from the

freshest ingredients at Delicious

Pizzeria. We use hand-picked vegetable

and King Solomon meats for our famous

pizzas. Ask about our thin Sicilian and

Saverino Special pizzas!

 

FREE Fast Delivery

Service Available
All our menu items are made to order,

from our hot wings and appetizers to

our pasta dishes and entrees. We also

have gluten-free options. Call ahead for

pickup or get our FREE fast delivery

($15 minimum, 3-mile radius).
Last delivery is 15 minutes before 
closing

 

 

Convenient Catering

for Your Next Party
Whether you have a small family event

or a large office party, you can count on

our out-catering services to make

everything easier for you. We can even

cater your Giants or Jets football party

— call us for more information!

 

 
 To Join our
 TEXT CLUB
TEXT 
DELICIOUSPIZ
  to 66599 		Or Scan The QR Code With Your Phone Camera 

CLICK HERE TO JOIN

OUR EMAIL CLUB

AND

BIRTHDAY/ANNIVERSARY

CLUB

 

 

 

Delicious Pizza
60 Landing Rd
Glen Cove, NY 11542
516-759-0793
 www.deliciouspizzeria.net

HOURS
Monday 11:00am 9:00pm
Tuesday 11:00am 9:00pm
Wednesday 11:00am 9:00pm
Thursday 11:00am 9:00pm
Friday 11:00am 10:00pm
Saturday 11:00am 10:00pm
Sunday 11:00am 9:00pm

OPEN ON HOLIDAYS

Phone: (516)-759-0793
Website: www.deliciouspizzeria.net

 
<%end if%>