Home health aides and visiting nurses of the home health care agency and visiting nurse services of New Jersey providing hospice care and in home physical therapy

<% ' Important note about true/false settings ' True=-1 False=0 ' storeFront Version (don't change this) private const pStoreFrontVersion = "3.83" ' storeFront demo mode (for testing and demo purposes) private const pStoreFrontDemoMode = -1 ' company data private const pCompany = "Print.Subaru.Com" private const pCompanyAddress = "xxx xxx" private const pCompanyZip = "19144" private const pCompanyCity = "Philadelphia" private const pCompanyStateCode = "PA" private const pCompanyCountryCode = "US" ' user can add X times products to the shopping basket private const pCartQuantityLimit = 30 ' maximum quantity that can be added to the cart for any product private const pMaxAddCartQuantity = 99999 ' this prefix will be used in front of order number private const pOrderPrefix = "R-" ' this prefix will be used in front of customer number private const pCustomerPrefix = "550" ' email address of store owner private const pEmailAdmin = "pdalal@hotmail.com" ' check that you are using an emailSender (FROM address) that can send emails through the SMTP server without Relay troubles private const pEmailSender = "pdalal@hotmail.com" ' you can use localhost or external SMTP server like mail.something.com private const pSmtpServer = "localhost" ' if your store is not sending emails set to true to display the email errors private const pDebugEmail = 0 ' emailComponent, options are Jmail, ServerObjectsASPMail1, ServerObjectsASPMail2, PersitsASPMail and CDONTS ' ServerObjectsASPMail1 is for SMTPsvg.mail component and 2 is for SMTPsvg.Mailer component private const pEmailComponent = "CDONTS" ' database (Access, SQLServer) pDataBase = "Access" ' id (only if you use several tki Store in the same hosting) private const pIdStore = "demo" ' shows stock limit availability private const pBasicStockShowLimit = -1 private const pCurrencySign = "$" private const pDecimalSign = "." ' Used to display specific date format on screen, otherwise "MM/DD/YY" private const pDateFormat = "DD/MM/YY" ' If your machine gives Data Type Mismatch error change to 0 private const pDatabaseDateMonthName = -1 ' if set to false tki will not allow separate shipping address (only billing will be used) private const pUseShippingAddress = -1 ' let user choose the password or autogenerate private const pRandomPassword = 0 ' minimum purchase total price, 0: disabled private const pMinimumPurchase = 0 ' force to select optionals before adding ' allow new customer registration at checkout time private const pAllowNewCustomer = -1 ' store URL location private const pStoreLocation = "localhost/tki" private const pForceSelectOptionals = -1 ' encryption Password for RC4. If you change the key after using tki ' all previous passwords and CC data cannot be decrypted private const pEncryptionPassword ="HGSDYGDSLWREIUCJD938439402342" ' wish lists enabled private const pWishList = -1 ' index page counter, you can disable for performance reasons private const pIndexVisitsCounter = 0 ' show the BtoB price in details and listing private const pShowBtoBPrice = -1 ' show stock in product view private const pShowStockView = -1 ' StoreNews private const pStoreNews = 0 ' Encrypted Total for gateways private const pUseEncryptedTotal = -1 ' Fraud prevention settings, options: paranoid, caution, none private const pFraudPreventionSetting = "caution" ' Random Product private const pRandomProduct = 0 ' Forgot Password private const pForgotPassword = 0 ' BestSellers private const pListBestSellers = 0 ' Related products available private const pRelatedProducts = 0 private const pGetRelatedProductsLimit = 2 ' Product reviews available private const pProductReviews = 0 ' Email to a friend private const pEmailToFriend = 0 ' Newsletter private const pNewsLetter = 0 ' Auctions private const pAuctions = 0 ' RealTime UPS private const pRealTimeUps = 0 private const pUpsDefaultFee = 60 private const pUpsDefaultServiceType = "UPS Shipment" %> <% ' if default language lost if session("language")="" then session("language")="english" end if dim dictLanguage set dictLanguage = CreateObject("Scripting.Dictionary") ' >>>>if you are installing the free multilanguage package paste from here<<<< ' english dictLanguage.Add "english_viewitem_1", "You must specify the item id." dictLanguage.Add "english_viewitem_2", "The item does not exist." dictLanguage.Add "english_viewitem_3", "Price " dictLanguage.Add "english_viewitem_4", "You save " dictLanguage.Add "english_viewitem_5", "Buy" dictLanguage.Add "english_viewitem_6", "Additional Options" dictLanguage.Add "english_viewitem_7", "No stock at the moment" dictLanguage.Add "english_viewitem_8", "Read reviews" dictLanguage.Add "english_viewitem_9", "Write a review" dictLanguage.Add "english_viewitem_10", "View also: " dictLanguage.Add "english_viewitem_11", "tki All StoreFront Package is not installed. More information at http://store.tki.com" dictLanguage.Add "english_viewitem_12", "Add to wish list" dictLanguage.Add "english_viewitem_13", "You are at " dictLanguage.Add "english_viewitem_14", "e-mail to a friend" dictLanguage.Add "english_viewitem_15", "BtoB Price" dictLanguage.Add "english_viewitem_16", "(!) This product has discounts per quantity" dictLanguage.Add "english_viewitem_17", "(!) Get this product for less. " dictLanguage.Add "english_viewitem_18", "Auctions available. " dictLanguage.Add "english_viewitem_19", "Current stock: " dictLanguage.Add "english_viewitem_20", "Rated as " dictLanguage.Add "english_viewitem_21", "Not rated yet" dictLanguage.Add "english_viewitem_22", "View also this related products" dictLanguage.Add "english_searchitem_1", "You must enter search criteria." dictLanguage.Add "english_searchitem_2", "No items to display." dictLanguage.Add "english_searchitem_3", "Search criteria: " dictLanguage.Add "english_searchitem_4", "Page " dictLanguage.Add "english_searchitem_5", " of " dictLanguage.Add "english_additem_1", "Please enable cookies in your Browser to use this system." dictLanguage.Add "english_additem_2", "Too many items in your cart. Please delete at least one in order to continue." dictLanguage.Add "english_additem_3", "The item doesn't exist in the database." dictLanguage.Add "english_additem_4", "Items options not available." dictLanguage.Add "english_additem_5", "Session lost. All data was reloaded. Please try again. If you get this message again check that you have Cookies enabled in your browser." dictLanguage.Add "english_additem_6", "You cannot add that quantity due to store settings." dictLanguage.Add "english_additem_7", "You have to select optionals prior to adding that item. Select optionals from the drop-down box." dictLanguage.Add "english_showcart_1", "Your cart is empty." dictLanguage.Add "english_showcart_2", "Please enter numbers greater than zero." dictLanguage.Add "english_showcart_3", "Your cart contains:" dictLanguage.Add "english_showcart_4", "Quantity" dictLanguage.Add "english_showcart_5", "Item #" dictLanguage.Add "english_showcart_6", "Description" dictLanguage.Add "english_showcart_7", "Options" dictLanguage.Add "english_showcart_8", "Price" dictLanguage.Add "english_showcart_9", "Actions" dictLanguage.Add "english_showcart_10", "Remove" dictLanguage.Add "english_showcart_11", "Recalculate" dictLanguage.Add "english_showcart_12", "Total: " dictLanguage.Add "english_showcart_13", "Tax not included" dictLanguage.Add "english_showcart_14", "Keep shopping click here..." dictLanguage.Add "english_showcart_15", "To checkout click here..." dictLanguage.Add "english_showcart_16", "Estimated delivery time: " dictLanguage.Add "english_showcart_17", " day/s" dictLanguage.Add "english_showcart_18", " same day" dictLanguage.Add "english_showcart_19", " undetermined" dictLanguage.Add "english_itemdetailsm_1", "On Line Price" dictLanguage.Add "english_itemdetailsm_2", " ~ You save " dictLanguage.Add "english_itemdetailsm_3", " Add" dictLanguage.Add "english_itemdetailsm_4", "BtoB Price" dictLanguage.Add "english_itemdetailsm_5", "View" dictLanguage.Add "english_checkout_1", "Your cart is empty, you cannot checkout." dictLanguage.Add "english_checkout_2", "If it's your first time in this store " dictLanguage.Add "english_checkout_3", "click here..." dictLanguage.Add "english_checkout_4", "If you are a returning buyer enter the following data" dictLanguage.Add "english_checkout_5", "Send" dictLanguage.Add "english_checkout_6", "Forgot your password?" dictLanguage.Add "english_checkout_7", "Checkout" dictLanguage.Add "english_checkout_8", "E-mail" dictLanguage.Add "english_checkout_9", "Password" dictLanguage.Add "english_checkout_10", "You can't checkout. This store has a minimum purchase of " dictLanguage.Add "english_formfirstbuy_1", "Your cart is empty, you cannot checkout." dictLanguage.Add "english_orderform_1", "Please enter your name" dictLanguage.Add "english_orderform_2", "Please enter your ID" dictLanguage.Add "english_orderform_3", "Please enter your Phone" dictLanguage.Add "english_orderform_4", "Please enter your address" dictLanguage.Add "english_orderform_5", "Please enter your City" dictLanguage.Add "english_orderform_6", "Please enter your ZIP code" dictLanguage.Add "english_orderform_7", "Please enter your country" dictLanguage.Add "english_orderform_8", "Your email is invalid" dictLanguage.Add "english_orderform_9", "Customer" dictLanguage.Add "english_orderform_10", "Name" dictLanguage.Add "english_orderform_12", "Phone #" dictLanguage.Add "english_orderform_13", "Email" dictLanguage.Add "english_orderform_14", "* you can't modify" dictLanguage.Add "english_orderform_15", "Address" dictLanguage.Add "english_orderform_16", "City" dictLanguage.Add "english_orderform_17", "State" dictLanguage.Add "english_orderform_18", "Zip" dictLanguage.Add "english_orderform_19", "Country" dictLanguage.Add "english_orderform_20", "Shipment Method" dictLanguage.Add "english_orderform_21", "Shipment type" dictLanguage.Add "english_orderform_22", "Payment" dictLanguage.Add "english_orderform_23", "Pay with" dictLanguage.Add "english_orderform_24", "TAX type" dictLanguage.Add "english_orderform_25", "Comments" dictLanguage.Add "english_orderform_26", "Comments (optional questions or comments about your order)" dictLanguage.Add "english_orderform_27", "Send" dictLanguage.Add "english_orderform_28", "Reset" dictLanguage.Add "english_orderform_29", "Customer #" dictLanguage.Add "english_orderform_30", "Apply Tax" dictLanguage.Add "english_orderform_31", "No Tax" dictLanguage.Add "english_orderform_32", "Discount Code (optional)" dictLanguage.Add "english_orderform_33", "Billing address" dictLanguage.Add "english_orderform_34", "Shipping address" dictLanguage.Add "english_orderform_36", "Use separate shipping address" dictLanguage.Add "english_orderform_37", "Last Name" dictLanguage.Add "english_orderform_38", "Another State" dictLanguage.Add "english_orderform_39", "Company" dictLanguage.Add "english_orderform_40", "Password" dictLanguage.Add "english_orderform_41", "Password is autogenerated" dictLanguage.Add "english_checkshippingaddress_1", "Shipping address" dictLanguage.Add "english_checkshippingaddress_2", "Address" dictLanguage.Add "english_checkshippingaddress_3", "City" dictLanguage.Add "english_checkshippingaddress_4", "State" dictLanguage.Add "english_checkshippingaddress_5", "ZIP code" dictLanguage.Add "english_checkshippingaddress_6", "Country" dictLanguage.Add "english_checkshippingaddress_7", "Continue" dictLanguage.Add "english_checkshippingaddress_8", "Please select a state or enter Another State" dictLanguage.Add "english_checkshippingaddress_9", "Another State" dictLanguage.Add "english_orderverify_1", "Please enter all required data." dictLanguage.Add "english_orderverify_2", "Your e-mail already exists in this store." dictLanguage.Add "english_orderverify_3", "Apply Tax: " dictLanguage.Add "english_orderverify_4", "Date: " dictLanguage.Add "english_orderverify_5", "Name: " dictLanguage.Add "english_orderverify_6", "Email: " dictLanguage.Add "english_orderverify_8", "Phone #: " dictLanguage.Add "english_orderverify_9", "Billing Address: " dictLanguage.Add "english_orderverify_10", "Comments: " dictLanguage.Add "english_orderverify_11", "Quant." dictLanguage.Add "english_orderverify_12", "Item" dictLanguage.Add "english_orderverify_13", "Options" dictLanguage.Add "english_orderverify_14", "Price" dictLanguage.Add "english_orderverify_15", "Payment type: " dictLanguage.Add "english_orderverify_16", "Shipment type: " dictLanguage.Add "english_orderverify_17", "Subtotal: " dictLanguage.Add "english_orderverify_18", "TAX: " dictLanguage.Add "english_orderverify_19", "Total: " dictLanguage.Add "english_orderverify_20", "Save order" dictLanguage.Add "english_orderverify_21", "Cancel order" dictLanguage.Add "english_orderverify_22", "Yes" dictLanguage.Add "english_orderverify_23", "No" dictLanguage.Add "english_orderverify_24", "Invalid discount code entered" dictLanguage.Add "english_orderverify_25", "Discount Code" dictLanguage.Add "english_orderverify_26", "No discount code used" dictLanguage.Add "english_orderverify_27", "Discount requirements failed" dictLanguage.Add "english_orderverify_28", "Shipping Address: " dictLanguage.Add "english_orderverify_29", "Use the same as billing" dictLanguage.Add "english_orderverify_30", "Please enter all shipping address fields or leave that section blank" dictLanguage.Add "english_orderverify_31", "Before pressing Save Order you must agree with our " dictLanguage.Add "english_orderverify_32", "General Conditions" dictLanguage.Add "english_orderverify_33", "Company" dictLanguage.Add "english_saveorder_1", "Dear" dictLanguage.Add "english_saveorder_2", "Thanks for shopping at our store" dictLanguage.Add "english_saveorder_3", "Your order details are " dictLanguage.Add "english_saveorder_4", "Your password for the store is: " dictLanguage.Add "english_saveorder_5", "Payment information: " dictLanguage.Add "english_saveorder_6", "Your order at " dictLanguage.Add "english_saveorder_7", " order #" dictLanguage.Add "english_saveorder_8", "Order total" dictLanguage.Add "english_saveorder_10", "No discounts applied." dictLanguage.Add "english_saveorder_11", "Discounts requirements failed." dictLanguage.Add "english_saveorder_12", "Options: " dictLanguage.Add "english_saveorder_13", "You will receive payment confirmation in another e-mail" dictLanguage.Add "english_saveorder_14", "tki generated" dictLanguage.Add "english_saveorder_15", "Session lost due to long inactivity. Please start again with purchase process." dictLanguage.Add "english_orderconfirmation_1", "Thanks for shopping at " dictLanguage.Add "english_orderconfirmation_2", "Your order number is: #" dictLanguage.Add "english_orderconfirmation_3", "If you have any concerns write to " dictLanguage.Add "english_orderconfirmation_4", "Your payment has been rejected." dictLanguage.Add "english_login_1", "Please enter all the fields." dictLanguage.Add "english_login_2", "Your password is wrong." dictLanguage.Add "english_supporterror_1", "There are temporary errors in this store." dictLanguage.Add "english_supporterror_2", "Technical Support was notified." dictLanguage.Add "english_supporterror_3", "Thanks for your patience." dictLanguage.Add "english_supporterror_4", "You can find free technical assistance at http://forum.tki.com" dictLanguage.Add "english_supporterror_5", "Temporary Errors" dictLanguage.Add "english_supporterror_6", "If you want to obtain free technical assistance" dictLanguage.Add "english_supporterror_7", "click here" dictLanguage.Add "english_cartremove_1", "Please enter an item to delete." dictLanguage.Add "english_cartrecalculate_1", "Your cart is empty." dictLanguage.Add "english_cartrecalculate_2", "You cannot add that quantity due to store settings." dictLanguage.Add "english_changelanguage_1", "You must specify a valid language." dictLanguage.Add "english_changelanguage_2", "Store language now is english." dictLanguage.Add "english_changelanguage_3", "The store already was in english." dictLanguage.Add "english_ssl_1", "The order " dictLanguage.Add "english_ssl_2", " has been saved." dictLanguage.Add "english_ssl_3", "At this point you have to be redirectioned to your SSL. For this demo is disabled. If you havent an" dictLanguage.Add "english_ssl_4", "SSL certificate, take a look at profesional SSL service of tki." dictLanguage.Add "english_ssl_5", "More info in http://store.tki.com" dictLanguage.Add "english_ssl_6", "Attention" dictLanguage.Add "english_listhotdealsproducts_1", "There are no hot deals defined right now." dictLanguage.Add "english_listhotdealsproducts_2", "Hot Deals" dictLanguage.Add "english_listhotdealsproducts_3", "Page " dictLanguage.Add "english_listhotdealsproducts_4", " of " dictLanguage.Add "english_bringrandomproduct_1", "There are no products available." dictLanguage.Add "english_bringrandomproduct_2", "View details here..." dictLanguage.Add "english_listbestsellers_1", "Not enough info to display best sellers list." dictLanguage.Add "english_listbestsellers_2", "Best Sellers" dictLanguage.Add "english_listcategoriesandproducts_1", "No active categories in this store" dictLanguage.Add "english_listcategoriesandproducts_2", "You are at " dictLanguage.Add "english_listcategoriesandproducts_3", "Products inside " dictLanguage.Add "english_listcategoriesandproducts_4", "No products inside " dictLanguage.Add "english_listcategoriesandproducts_5", "Categories " dictLanguage.Add "english_listcategoriesandproducts_6", "The category is not valid." dictLanguage.Add "english_listproductsbysupplier_1", "You must specify a supplier." dictLanguage.Add "english_listproductsbysupplier_2", "There are no products for that supplier." dictLanguage.Add "english_listproductsbysupplier_3", "Supplier: " dictLanguage.Add "english_listproductsbysupplier_4", "Page " dictLanguage.Add "english_listproductsbysupplier_5", " of " dictLanguage.Add "english_customershoworders_1", "Please enter all required data." dictLanguage.Add "english_customershoworders_2", "You have no orders in this store." dictLanguage.Add "english_customershoworders_3", "In Progress" dictLanguage.Add "english_customershoworders_4", "Delivered" dictLanguage.Add "english_customershoworders_5", "Cancelled" dictLanguage.Add "english_customershoworders_6", "Order Tracking" dictLanguage.Add "english_customershoworders_7", "Paid" dictLanguage.Add "english_customershoworders_8", "Date of order" dictLanguage.Add "english_customershoworders_9", "Order #" dictLanguage.Add "english_customershoworders_10", "Total Cost" dictLanguage.Add "english_customershoworders_11", "Status" dictLanguage.Add "english_customershoworderdetails_1", "Please enter an idOrder." dictLanguage.Add "english_customershoworderdetails_2", "IdOrder is invalid." dictLanguage.Add "english_customershoworderdetails_3", "Order Details" dictLanguage.Add "english_customershoworderdetails_4", "Order number" dictLanguage.Add "english_customershoworderdetails_5", "Date" dictLanguage.Add "english_customershoworderdetails_6", "Name" dictLanguage.Add "english_customershoworderdetails_7", "Email" dictLanguage.Add "english_customershoworderdetails_8", "Phone" dictLanguage.Add "english_customershoworderdetails_9", "Address" dictLanguage.Add "english_customershoworderdetails_10", "Shipping Address" dictLanguage.Add "english_customershoworderdetails_11", "Details" dictLanguage.Add "english_customershoworderdetails_12", "Shipment" dictLanguage.Add "english_customershoworderdetails_13", "Payment" dictLanguage.Add "english_customershoworderdetails_14", "Discounts" dictLanguage.Add "english_customershoworderdetails_15", "Status" dictLanguage.Add "english_customershoworderdetails_16", "Tax Amount" dictLanguage.Add "english_customershoworderdetails_17", "Total" dictLanguage.Add "english_customershoworderdetails_18", "(Same as billing)" dictLanguage.Add "english_customershoworderdetails_19", "In Progress" dictLanguage.Add "english_customershoworderdetails_20", "Delivered" dictLanguage.Add "english_customershoworderdetails_21", "Cancelled" dictLanguage.Add "english_customershoworderdetails_22", "Paid" dictLanguage.Add "english_forgotpasswordform_1", "Please enter your email" dictLanguage.Add "english_forgotpasswordform_2", "Email" dictLanguage.Add "english_forgotpasswordform_3", "Retrieve password" dictLanguage.Add "english_forgotpasswordexec_1", "Please enter your email" dictLanguage.Add "english_forgotpasswordexec_2", "Your email is not registered in this store" dictLanguage.Add "english_forgotpasswordexec_3", "Your password for the store" dictLanguage.Add "english_forgotpasswordexec_4", "Your password for the store is: " dictLanguage.Add "english_forgotpasswordexec_5", "We have sent you an email with your password" dictLanguage.Add "english_validateform_1", "You must enter a value for " dictLanguage.Add "english_validateform_2", "You must enter a date for " dictLanguage.Add "english_validateform_3", "You must enter a valid number (like 12.65 or 12) for " dictLanguage.Add "english_validateform_4", "You must enter a valid e-mail for " dictLanguage.Add "english_validateform_5", "You must enter a positive number for " dictLanguage.Add "english_validateform_6", "You must enter a valid phone for " dictLanguage.Add "english_validateform_7", "You must enter a valid integer number for " dictLanguage.Add "english_validateform_8", "You must enter a non free e-mail for " dictLanguage.Add "english_validateform_9", "DbSession data lost. Please try again." dictLanguage.Add "english_customerauthenticateform_1", "Enter authentication data" dictLanguage.Add "english_customerauthenticateform_2", "Send" dictLanguage.Add "english_customerauthenticateform_3", "Forgot your password?" dictLanguage.Add "english_customerauthenticateform_4", "E-mail" dictLanguage.Add "english_customerauthenticateform_5", "Password" dictLanguage.Add "english_customerauthenticateform_6", "Customer login" dictLanguage.Add "english_customerauthenticateform_7", "Not a member yet? Register " dictLanguage.Add "english_customerauthenticateform_8", "here" dictLanguage.Add "english_customerauthenticateexec_1", "Your password is wrong." dictLanguage.Add "english_customerutilitiesmenu_1", "Customer utilities menu" dictLanguage.Add "english_customerutilitiesmenu_2", "Order tracking" dictLanguage.Add "english_customerutilitiesmenu_3", "Modify user data" dictLanguage.Add "english_customerutilitiesmenu_4", "Logout" dictLanguage.Add "english_customerutilitiesmenu_5", "Wish List" dictLanguage.Add "english_customerutilitiesmenu_6", "- BtoB customer -" dictLanguage.Add "english_customerutilitiesmenu_7", "- BtoC customer -" dictLanguage.Add "english_customerutilitiesmenu_8", "List old Carts" dictLanguage.Add "english_customerutilitiesmenu_9", "List Auctions" dictLanguage.Add "english_customerutilitiesmenu_10", "Welcome back " dictLanguage.Add "english_customermodifyform_1", "Modify customer data" dictLanguage.Add "english_customermodifyform_2", "Name" dictLanguage.Add "english_customermodifyform_3", "Phone" dictLanguage.Add "english_customermodifyform_4", "Email" dictLanguage.Add "english_customermodifyform_5", "Password" dictLanguage.Add "english_customermodifyform_6", "Address" dictLanguage.Add "english_customermodifyform_7", "Zip" dictLanguage.Add "english_customermodifyform_8", "City" dictLanguage.Add "english_customermodifyform_9", "Another state" dictLanguage.Add "english_customermodifyform_10", "Country" dictLanguage.Add "english_customermodifyform_11", "Cust #" dictLanguage.Add "english_customermodifyform_12", "Last Name" dictLanguage.Add "english_customermodifyform_13", "State" dictLanguage.Add "english_customermodifyform_14", "Company" dictLanguage.Add "english_customermodifyexec_1", "Your data has been modified" dictLanguage.Add "english_customermodifyexec_2", "You must select a State Code or Another State, you cannot select both." dictLanguage.Add "english_customerwishlistview_1", "Wish List" dictLanguage.Add "english_customerwishlistview_2", "No items in your wish List" dictLanguage.Add "english_customerwishlistview_3", "View" dictLanguage.Add "english_customerwishlistview_4", "Remove" dictLanguage.Add "english_customerwishlistview_5", "Total of Wish List" dictLanguage.Add "english_customerwishlistview_6", "Save the " dictLanguage.Add "english_customerwishlistview_7", " favorites you've been hoping for in your Wish List! Come back at any time to purchase these top picks." dictLanguage.Add "english_customerwishlistview_8", "Item" dictLanguage.Add "english_customerwishlistview_9", "Description" dictLanguage.Add "english_customerwishlistview_10", "Price" dictLanguage.Add "english_customerwishlistview_11", "Actions" dictLanguage.Add "english_customerwishlistview_12", "Add" dictLanguage.Add "english_customerwishlistadd_1", "That item is already in your Wish List" dictLanguage.Add "english_customerwishlistadd_2", "Wish list" dictLanguage.Add "english_customerwishlistadd_3", "The item was added to your Wish List" dictLanguage.Add "english_customerwishlistremove_1", "That item wasn't in your Wish List" dictLanguage.Add "english_customershowoldcartdetails_1", "The cart doesn't exist." dictLanguage.Add "english_customershowoldcartdetails_2", "Old Carts" dictLanguage.Add "english_customershowoldcartdetails_3", "Old cart contains:" dictLanguage.Add "english_customershowoldcartdetails_4", "Quantity" dictLanguage.Add "english_customershowoldcartdetails_5", "Item #" dictLanguage.Add "english_customershowoldcartdetails_6", "Description" dictLanguage.Add "english_customershowoldcartdetails_7", "Options" dictLanguage.Add "english_customershowoldcartdetails_8", "Price" dictLanguage.Add "english_customershowoldcartdetails_9", "Actions" dictLanguage.Add "english_customershowoldcartdetails_10", "Remove" dictLanguage.Add "english_customershowoldcartdetails_11", "Cart Description" dictLanguage.Add "english_customershowoldcartdetails_12", "Total: " dictLanguage.Add "english_customershowoldcartdetails_13", "Tax not included" dictLanguage.Add "english_customershowoldcartdetails_14", "Cart saved on " dictLanguage.Add "english_customershowoldcartdetails_15", "Add all items to the cart" dictLanguage.Add "english_customershowoldcartdetails_16", "Estimated delivery time: " dictLanguage.Add "english_customershowoldcartdetails_17", " day/s" dictLanguage.Add "english_customershowoldcartdetails_18", " same day" dictLanguage.Add "english_customershowoldcartdetails_19", " undetermined" dictLanguage.Add "english_customerlistoldcarts_1", "You have no carts saved." dictLanguage.Add "english_customerlistoldcarts_2", " saved on " dictLanguage.Add "english_customerlistoldcarts_3", "view" dictLanguage.Add "english_customerlistoldcarts_4", "Old Carts" dictLanguage.Add "english_customeroldcartadditems_1", "Some items of your old cart couldn't be located." dictLanguage.Add "english_customeroldcartadditems_2", "Querystring data missing." dictLanguage.Add "english_customeroldcartadditems_3", "Session lost." dictLanguage.Add "english_customeroldcartadditems_4", "You cannot add more items." dictLanguage.Add "english_newsletteraddemailform_1", "Newsletter" dictLanguage.Add "english_newsletteraddemailform_2", "E-mail" dictLanguage.Add "english_newsletteraddemailform_3", "Send" dictLanguage.Add "english_newsletteraddemailexec_1", "You must enter an e-mail" dictLanguage.Add "english_newsletteraddemailexec_2", "The e-mail was already entered in this newsletter" dictLanguage.Add "english_newsletteraddemailexec_3", "Thanks for submiting your e-mail to our newsletter" dictLanguage.Add "english_newsletteraddemailexec_4", "Dear Sir, thanks for submitting your e-mail to " dictLanguage.Add "english_newsletteraddemailexec_5", " newsletter. " dictLanguage.Add "english_newsletteraddemailexec_6", "To remove your e-mail " dictLanguage.Add "english_newsletteraddemailexec_7", " newsletter" dictLanguage.Add "english_newsletteraddemailexec_8", "click here" dictLanguage.Add "english_newsletteraddemailexec_9", "You won a Gift Certificate!. The code is: " dictLanguage.Add "english_newsletterremoveemailexec_1", "You must enter an e-mail to remove" dictLanguage.Add "english_newsletterremoveemailexec_2", "The e-mail doesn´t exist in this newsletter" dictLanguage.Add "english_newsletterremoveemailexec_3", "Your e-mail has been removed from our newsletter" dictLanguage.Add "english_reviewaddform_1", "Add customer review for " dictLanguage.Add "english_reviewaddform_2", "Author" dictLanguage.Add "english_reviewaddform_3", "Email" dictLanguage.Add "english_reviewaddform_4", "Review" dictLanguage.Add "english_reviewaddform_5", "You must specify product ID" dictLanguage.Add "english_reviewaddform_6", "Stars" dictLanguage.Add "english_reviewaddform_7", "Subject" dictLanguage.Add "english_reviewaddform_8", "Save" dictLanguage.Add "english_reviewaddexec_1", "Thanks, your review has been saved" dictLanguage.Add "english_reviewaddexec_2", "Click here to read all reviews" dictLanguage.Add "english_reviewaddexec_3", "Customer review" dictLanguage.Add "english_reviewreadexec_1", "Customer reviews for " dictLanguage.Add "english_reviewreadexec_2", "You must specify product ID" dictLanguage.Add "english_reviewreadexec_3", "There are no reviews for this item" dictLanguage.Add "english_reviewreadexec_4", "You are trying to view a review for a product not available." dictLanguage.Add "english_reviewreadexec_5", "Page " dictLanguage.Add "english_reviewreadexec_6", "of " dictLanguage.Add "english_reviewreadexec_7", "Write a review" dictLanguage.Add "english_reviewreadexec_8", "Rate Review: " dictLanguage.Add "english_offlinepaymentform_1", "tki off-line payment" dictLanguage.Add "english_offlinepaymentform_2", "Card Type" dictLanguage.Add "english_offlinepaymentform_3", "Card Number" dictLanguage.Add "english_offlinepaymentform_4", "Expiration" dictLanguage.Add "english_offlinepaymentform_5", "Month" dictLanguage.Add "english_offlinepaymentform_6", "Year" dictLanguage.Add "english_offlinepaymentform_7", "Security Code" dictLanguage.Add "english_offlinepaymentform_8", "Name on card" dictLanguage.Add "english_offlinepaymentform_9", "CC statement receipt address" dictLanguage.Add "english_offlinepaymentform_10", "Save data" dictLanguage.Add "english_offlinepaymentexec_1", "Error in form, hidden fields missing" dictLanguage.Add "english_offlinepaymentexec_2", "Statement address receipt: " dictLanguage.Add "english_offlinepaymentexec_3", "Name on card: " dictLanguage.Add "english_offlinepaymentexec_4", "Thanks, your credit card data has been saved." dictLanguage.Add "english_offlinepaymentexec_5", "Credit card number is invalid." dictLanguage.Add "english_offlinepaymentexec_6", "Credit card expired." dictLanguage.Add "english_listrelatedproducts_1", "No related products for that item." dictLanguage.Add "english_listrelatedproducts_2", "Related products for " dictLanguage.Add "english_listrelatedproducts_3", "The product is not valid. " dictLanguage.Add "english_listrelatedproducts_4", "You must specify a product ID." dictLanguage.Add "english_emailtofriendform_1", "Email to a friend." dictLanguage.Add "english_emailtofriendform_2", "Your name" dictLanguage.Add "english_emailtofriendform_3", "Your friend's e-mail" dictLanguage.Add "english_emailtofriendform_4", "Send" dictLanguage.Add "english_emailtofriendform_5", "Body" dictLanguage.Add "english_emailtofriendform_6", "Thought you'd be interested in this item: " dictLanguage.Add "english_emailtofriendform_7", "More info at " dictLanguage.Add "english_emailtofriendexec_1", "Thanks, your email was sent." dictLanguage.Add "english_newspageexec_1", "There is no news in this store." dictLanguage.Add "english_newspageexec_2", "News at " dictLanguage.Add "english_customerregistrationform_1", "Customer registration" dictLanguage.Add "english_customerregistrationform_2", "Name" dictLanguage.Add "english_customerregistrationform_3", "Phone" dictLanguage.Add "english_customerregistrationform_4", "Email" dictLanguage.Add "english_customerregistrationform_5", "Password" dictLanguage.Add "english_customerregistrationform_6", "Address" dictLanguage.Add "english_customerregistrationform_7", "Zip" dictLanguage.Add "english_customerregistrationform_8", "State" dictLanguage.Add "english_customerregistrationform_9", "City" dictLanguage.Add "english_customerregistrationform_10", "Country" dictLanguage.Add "english_customerregistrationform_11", "Send" dictLanguage.Add "english_customerregistrationform_12", "Last Name" dictLanguage.Add "english_customerregistrationform_13", "Another state" dictLanguage.Add "english_customerregistrationform_14", "Company" dictLanguage.Add "english_customerregistrationexec_1", "That email was already used in this store" dictLanguage.Add "english_customerregistrationexec_2", "Thanks, your data was saved." dictLanguage.Add "english_customerregistrationexec_3", "Please select State or Another State, you cannot select both." dictLanguage.Add "english_fraudprevention_1", "Unfortunately we cannot process your order due to security restrictions. If you have any questions please write to us: " dictLanguage.Add "english_fraudprevention_2", "Order stopped with fraud filter prevention, order: " dictLanguage.Add "english_fraudprevention_3", "Warning email due to suspicious order # " dictLanguage.Add "english_optadvancedsearchform_1", "Advanced search" dictLanguage.Add "english_optadvancedsearchform_2", "Category" dictLanguage.Add "english_optadvancedsearchform_3", "Supplier" dictLanguage.Add "english_optadvancedsearchform_4", "All" dictLanguage.Add "english_optadvancedsearchform_5", "Price" dictLanguage.Add "english_optadvancedsearchform_6", "From" dictLanguage.Add "english_optadvancedsearchform_7", "Until" dictLanguage.Add "english_optadvancedsearchform_8", "Only with stock" dictLanguage.Add "english_optadvancedsearchform_9", "Keyword" dictLanguage.Add "english_optadvancedsearchform_10", "Search" dictLanguage.Add "english_autoupdateorderstatus_1", "Response fields missing" dictLanguage.Add "english_autoupdateorderstatus_2", "Thanks for your payment. You will receive an e-mail with adittional data." dictLanguage.Add "english_autoupdateorderstatus_3", "Your payment wasn't accepted. The transaction response was: " dictLanguage.Add "english_autoupdateorderstatus_4", "Customer order cannot be located." dictLanguage.Add "english_autoupdateorderstatus_5", ", payment information, order #" dictLanguage.Add "english_autoupdateorderstatus_6", "Your payment for the order #" dictLanguage.Add "english_autoupdateorderstatus_7", " was accepted" dictLanguage.Add "english_autoupdateorderstatus_8", "** Important: " dictLanguage.Add "english_autoupdateorderstatus_9", "** Some items in your order have no stock. Please give us enough time." dictLanguage.Add "english_autoupdateorderstatus_10", "The order was already processed." dictLanguage.Add "english_message_1", "Attention" dictLanguage.Add "english_generalconditions_1", "General Conditions" dictLanguage.Add "english_generalconditions_2", "General Conditions are not defined for this store." dictLanguage.Add "english_generalconditions_3", "Close" dictLanguage.Add "english_selectshipment_1", "Shipment Type" dictLanguage.Add "english_selectshipment_2", "Select" dictLanguage.Add "english_selectshipment_3", "Your e-mail was registered in this store. You can retrieve your old password or register with a new one." dictLanguage.Add "english_selectshipment_4", "There are no shipments for your selection of State/Country/Zip and cart content." dictLanguage.Add "english_selectshipment_5", "You must select the state or enter another state" dictLanguage.Add "english_optauctionsearchform_1", "Auction search" dictLanguage.Add "english_optauctionsearchform_2", "Category" dictLanguage.Add "english_optauctionsearchform_3", "All" dictLanguage.Add "english_optauctionsearchform_4", "Keyword" dictLanguage.Add "english_optauctionsearchform_5", "Search" dictLanguage.Add "english_optauctionsearchexec_1", "Customer specified is not valid" dictLanguage.Add "english_optauctionsearchexec_2", "There are no active auctions under that search" dictLanguage.Add "english_optauctiondetails_1", "View" dictLanguage.Add "english_optauctiondetails_2", "Product: " dictLanguage.Add "english_optauctiondetails_3", "From: " dictLanguage.Add "english_optauctiondetails_4", " ~ To: " dictLanguage.Add "english_optauctiondetails_5", "Offers: " dictLanguage.Add "english_optauctiondetails_6", "~ Last: " dictLanguage.Add "english_optauctionofferform_1", "You must specify the auction id." dictLanguage.Add "english_optauctionofferform_2", "Error in auctionofferform: " dictLanguage.Add "english_optauctionofferform_3", "There is no active auction with that id" dictLanguage.Add "english_optauctionofferform_4", "Offer Form" dictLanguage.Add "english_optauctionofferform_5", "Start date:" dictLanguage.Add "english_optauctionofferform_6", "End date:" dictLanguage.Add "english_optauctionofferform_7", "Start price:" dictLanguage.Add "english_optauctionofferform_8", "End price:" dictLanguage.Add "english_optauctionofferform_9", "Current price:" dictLanguage.Add "english_optauctionofferform_10", "Offers:" dictLanguage.Add "english_optauctionofferform_11", "Your offer:" dictLanguage.Add "english_optauctionofferexec_0", "There is no active auction with that id." dictLanguage.Add "english_optauctionofferexec_1", "Selected auction is closed." dictLanguage.Add "english_optauctionofferexec_2", "Your offer must surpass the current price at least by the minimum value for this auction." dictLanguage.Add "english_optauctionofferexec_3", "The offer surpasses the maximum offer amount possible for this auction." dictLanguage.Add "english_optauctionofferexec_4", "The offer does not surpasses the minimal amount possible for this auction." dictLanguage.Add "english_optauctionofferexec_5", "Notification of awarding of the auction." dictLanguage.Add "english_optauctionofferexec_6", "You can use the following discount code to purchase at http://" dictLanguage.Add "english_optauctionofferexec_7", "New offer for auction: " dictLanguage.Add "english_optauctionofferexec_8", "One customer has won the auction" dictLanguage.Add "english_optauctionofferexec_9", "Your offer for auction has been surpassed." dictLanguage.Add "english_optauctionofferexec_10", "Your offer for " dictLanguage.Add "english_optauctionofferexec_11", "Offer done" dictLanguage.Add "english_optauctionofferexec_12", "You have won this auction. Congratulations!. You will receive an email with details." dictLanguage.Add "english_optauctionofferexec_13", "Thanks for participating." dictLanguage.Add "english_optauctionofferexec_14", "The discount code for this auction is: " dictLanguage.Add "english_optauctionofferexec_15", "If you have any doubts please write to " dictLanguage.Add "english_optauctionofferexec_16", " has been surpassed." dictLanguage.Add "english_optauctionofferexec_17", "Return" dictLanguage.Add "english_optauctionofferexec_18", " to the offer form." dictLanguage.Add "english_optauctionofferexec_19", "You have won the auction for " dictLanguage.Add "english_optauctionofferexec_20", " at " dictLanguage.Add "english_optauctionofferexec_21", "You have the last offer for this product, you cannot offer again." dictLanguage.Add "english_optauctionlistall_1", "There are no active auctions at this moment." dictLanguage.Add "english_optauctionlistall_2", "Active Auctions" dictLanguage.Add "english_optauctionlistall_3", "Current Price" dictLanguage.Add "english_optauctionlistall_4", "From: " dictLanguage.Add "english_optauctionlistall_5", " ~ Until: " dictLanguage.Add "english_verifyDbSession_1", "Invalid dbSession detected. All session data will be initialized." dictLanguage.Add "english_dynamicindex_1", "There are no items marked for home display." dictLanguage.Add "english_dynamicindex_2", "More information..." dictLanguage.Add "english_dynamicindex_3", "Our price is " dictLanguage.Add "english_dynamicindex_4", "View Our Auctions" dictLanguage.Add "english_getsessiondata_1", "Session lost. Please start again." dictLanguage.Add "english_optGetRelatedProducts_1", "View also: " dictLanguage.Add "english_listCategoriesTree_1", "No categories found" dictLanguage.Add "english_listCategoriesTree_2", "Categories Tree" ' >>>>if you are installing the free multilanguage package paste until here<<<< ' end language definitions function clearLanguage() ' clear the dictionary. on error resume next clearLanguage = dictLanguage.removeAll set clearLanguage = nothing end function %> <% const errorSymbol = "*" dim dicError set dicError = server.createObject("scripting.dictionary") sub checkForm dim fieldName, fieldValue, pFieldValue for each field in request.form if left(field, 1) = "_" then ' is validation field , obtain field name fieldName = right( field, len( field ) - 1) ' obtain field value fieldValue = request.form(field) select case lCase(fieldValue) case "required" if trim(request.form(fieldName)) = "" then dicError(fieldName) = dictLanguage.Item(Session("language")&"_validateform_1") & "" & fieldName & "" end if case "date" if Not isDate(request.form(fieldName)) then dicError(fieldName) = dictLanguage.Item(Session("language")&"_validateform_2") & "" & fieldName & "" end if case "number" pFieldValue=request.form(fieldName) if Not isNumeric(pFieldValue) or (instr(pFieldValue,",")<>0) then dicError(fieldName) = dictLanguage.Item(Session("language")&"_validateform_3") & "" & fieldName & "" end if case "intnumber" pFieldValue=request.form(fieldName) if Not isNumeric(pFieldValue) or (instr(pFieldValue,",")<>0) or (instr(pFieldValue,".")<>0) then dicError(fieldName) = dictLanguage.Item(Session("language")&"_validateform_7") & "" & fieldName & "" end if case "positiveNumber" if Not isNumeric(request.form(fieldName)) or (fieldName<0) then dicError(fieldName) = dictLanguage.Item(Session("language")&"_validateform_3") & "" & fieldName & "" end if case "email" if instr(request.form(fieldName),"@")=0 or instr(request.form(fieldName),".")=0 then dicError(fieldName) = dictLanguage.Item(Session("language")&"_validateform_4") & "" & fieldName & "" end if case "phone" pFieldValue=request.form(fieldName) pFieldValue=replace(pFieldValue," ","") pFieldValue=replace(pFieldValue,"-","") pFieldValue=replace(pFieldValue,"(","") pFieldValue=replace(pFieldValue,")","") if Not isNumeric(pFieldValue) then dicError(fieldName) = dictLanguage.Item(Session("language")&"_validateform_6") & "" & fieldName & "" end if end select end if next end sub sub validateForm(byVal successPage) if request.ServerVariables("CONTENT_LENGTH") > 0 then checkForm ' if no errors, then successPage if dicError.Count = 0 then ' build success querystring tString=Cstr("") for each field in request.form if left(field, 1) <> "_" then fieldName = field fieldValue = request.form(fieldName) tString=tString &fieldName& "=" &Server.UrlEncode(fieldValue)& "&" end if next response.redirect successPage&"?"& tString end if end if end sub sub validateError dim countRow countRow=cInt(0) for each field in dicError if countRow=0 then response.write "
" end if response.write "
- " & dicError(field) countRow=countRow+1 next if countRow>0 then response.write "

" end if end sub sub validate( byVal fieldName, byVal validType ) %> <% if dicError.Exists(fieldName) then response.write errorSymbol end if end sub sub textbox(byVal fieldName , byVal fieldValue, byVal fieldSize, byVal fieldType) dim lastValue lastValue = request.form(fieldName) select case fieldType case "textbox" %> "> <% case "textboxnum" %> "> <% case "password" %>"> <% case "textarea" %> <% end select end sub %> <%validateForm "process_patient_referral_frm.asp"%>

NJ has the finest senior home care providing home health care for the elderly through the VNANNJ of Northern NJ.

Home About VNANNJ Contact Us Site Map

-
VNANNJ Services
-
Affiliated Health Services
-
Hospice Care
-
Friendship House
-
About VNANNJ
-
Support VNANNJ
-
Physician Relations
-• Patient Referral
-
Career Opportunities
-
Home Care News
-
Announcements

Refer a patient to the elder home care agencies of the VNANNJ.

PATIENT REFERRAL FORM

Visiting Nurse Association of Northern New Jersey is the premier non-profit home health care agency providing comprehensive home health care services throughout the greater Morris area.

We provide a level of service that is a quality compliment to a physician's practice and will support you with updates on any changes in your patient's condition.

It's easy to refer a patient to Visiting Nurse Association of Northern New Jersey. Simply fill out the referral form below.

If you want to speak to someone about this referral, or to make a referral by phone or fax please call 1-800-WE-VISIT or fax to 973-539-8371.

The Referral Services of the Visiting Nurse Association of Northern New Jersey will review your referral and will contact you for additional information. You will then receive written orders for signature.

If you want to speak to someone about this referral, or to make a referral by phone, please call:

1-800-WE-VISIT (1-800-938-4748)

If you prefer, you may print this page and fax the completed form to the following office:

FOR VNANNJ HOME CARE:
Fax: (973) 539-8371 Phone: (973) 451-4107