<% dim thisPage if request.querystring("pageID")= "" then pageID=10 else pageID=cint(request.querystring("pageID")) %> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' THIS SOFTWARE CODE IS COPYRIGHT 2005 The Web Salvage Company Ltd * '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' Any copying or duplication of any part of this site's code '' an infringement of copyright law. '' Editing this code is not permitted and will invalidate any '' warranty or support agreements. Contact info@websalvage.co.uk '' (* unless otherwise specified) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' Author: MPW Date: 8/11/05 '' Version: 2.0 File: index.asp '' '' Description: Home Page - Virgin to go '' Notes: '' CHANGE HISTORY '' 23.12.00 New heart image added to replace the BHF logo. '' 28.12.00 updated error checking '' 29.12.00 further Error checks - added appconnection to dataconn '' 4.12.00 removed checksum error checking - causing problems '' 6.1.01 minor updates and set test mode off '' 8.05.01 Meta tag updates '' 8.11.05 New visual interface '' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' if request.querystring("mode")="reset" then visitorID = "" session.abandon response.redirect("index.asp") end if if session("debug") then response.write "visitor " & session("visitorID") if request("clearcookie")=1 then Response.Cookies("seenAd")=0 '========================================================================================= session("orderEmail") = "sales@virgintogo.co.uk" 'emails about the order go here session("testSite") = false 'determines if credit card payments are live or test mode '========================================================================================= if session("visitorID")="" then strConn = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("data/"&session("dbName")&"") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConn, "","kml690" timeVar = int(left(replace(time,":",""),6)) session("visitorID")=Clng(session.SessionID) & timeVar strSQL = "INSERT INTO sessions " _ & "(EventType,URL,Referer,RemoteHost,UserAgent,UALanguage,USerID,HostIP)"_ & " Values ('New Session', '"_ & request.serverVariables("URL") & "', '" _ & request.serverVariables("HTTP_REFERER") & "', '" _ & request.serverVariables("REMOTE_HOST") & "', '" _ & request.serverVariables("HTTP_USER_AGENT") & "', '" _ & request.serverVariables("HTTP_ACCEPT_LANGUAGE") & "', '" _ & session("visitorID") & "', '" _ & request.serverVariables("LOCAL_ADDR") & "')" call WriteSessionData(strSQL) set strConn = nothing end if sub WriteSessionData(strSQL) 'on error resume next strConn = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("data/" & session("dbName")&"") 'response.write strConn Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConn,"","kml690" 'response.write strSQL Conn.execute(StrSQL) Conn.close set Conn = Nothing end sub pageID=10 %> Extra Virgin Olive Oil from VirginToGo
FREE OFFER 
Extra Virgin Olive Oil
A Natural Remedy

Lose weight, prevent heart disease and cancer, live longer and much more

Register here to receive your FREE copy

Name
Email

Extra Virgin Olive Oil
<% dispFlash("offersflash.asp") %>
Levante Extra Virgin Olive Oil
Zakynthos, Greece
FINEST GREEK EXTRA VIRGIN OLIVE OIL
5 litre can only 44.99
Buy two and save 10.00
FREE Delivery
SORRY - We are currently out of stock!
Extra Virgin Olive Oil from Greece
"The oil is wonderful and we give cans of it
to friends at Christmas.
"
Janie, London
<% call getCategories2014 %>
Latest News & Events Folk Remedy Olive Oil Trivia

<%= formatdatetime(date(),vblongdate) %>
© <%= year(date()) %> The Web Salvage Company Ltd
[ Pure Olive Oil Soap Offer ]    [ Privacy Policy ]
    Freephone Order Line: <%= application("freephone") %> info@virgintogo.co.uk
<% 'response.write("seenAD=" & Request.Cookies("seenAD")) if Request.Cookies("seenAD") = "1" then session("seenAD")=true else session("seenAd")=false if NOT session("seenAD") then %> <% end if %> <% sub getCategories2014 response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "" response.write "Extra Virgin Olive Oil" response.write "" response.write "" response.write "" response.write "" response.write "Body Care" response.write "" response.write "" response.write "" response.write "" response.write "Accessories" response.write "" response.write "" response.write "
" end sub sub getCategories dim sql, ors SQL = "SELECT * FROM prodcats where fldProdcatActive AND fldProdCatParent=0 order by fldProdcatOrder" Set oRs = Server.CreateObject("ADODB.Recordset") oRs.Open SQL, oConn, 3,,1 if (oRs.EOF=true) or (oRs.BOF=true) then response.write ("Non Found") else response.write "" response.write "" boxcount = 1 do while not oRs.eof response.write "" boxcount = boxcount+1 ors.movenext loop response.write "" response.write "
" response.write "" response.write "" response.write oRs("fldProdcatName") response.write "" response.write "" getCatProds(oRs("fldProdCatID")) response.write "
" oRs.close set oRs = nothing end if end sub sub getCatprods (categoryID) dim sql, ors SQL = "SELECT * FROM prodcats where fldProdCatActive AND fldProdCatParent="&int(categoryID)&" order by fldProdcatOrder" ' SQL = "SELECT * FROM products where prodEnabled AND groupID="&int(categoryID) '&" 'order by fldProdOrder" 'response.write SQL Set oRs = Server.CreateObject("ADODB.Recordset") oRs.Open SQL, oConn, 3,,1 if (oRs.EOF=true) or (oRs.BOF=true) then else do while not oRs.eof if oRs("fldProdCatID")<>19 then response.write "
" response.write "" response.write left(oRs("fldProdCatName"),30) 'response.write oRs("prodNameAbrev") response.write "" end if ors.movenext loop oRs.close set oRs = nothing end if end sub function testimonials 'returns all recs from table but first one is random, format 'randomItem','item2','etc...' dim id ' id for this item dim max'total dim i SQL = "SELECT * FROM testimonials" Set oRs = Server.CreateObject("ADODB.Recordset") oRs.Open SQL, oConn, 3,,1 if (oRs.EOF=true) or (oRs.BOF=true) then response.write ("Non Found") else 'dim maxRows oRsArray = oRs.getrows() max = ubound(oRsArray,2) randomize id = int(rnd * (max+1)) response.write "'" & oRsArray(1,id) & "'" for i=0 to max if not int(i)=int(id) then response.write ",'" & oRsArray(1,i) & "'" end if next 'response.end end if oRs.close set oRs=nothing end function %>