<%
Option Explicit
Response.Expires = 0
Response.AddHeader "Pragma", "No-Cache"
%>
<%
Dim gShopId
Response.Cookies(costCookieShop) = "CheapWine"
Dim gNegozioId
' Merchant ID
Response.Cookies(costCookieNeg) = "CheapWine"
gShopId = "CheapWine"
gNegozioId = "CheapWine"
Dim gSessionId
gSessionId = ""
If (Cstr(gSessionId) = "") Then
gSessionId = Session(costCookieSes)
End If
If (CStr(gSessionId) = "") Then
gSessionId = spGetNewDbSession ( "CheapWine" )
if (CLng(gSessionId) > 0) Then 'ok
Response.Cookies(costCookieSes) = gSessionId
Session(costCookieNeg) = "CheapWine"
Session(costCookieSes) = gSessionId
Session(costCookieShop) = "CheapWine"
Session("languageId") = 1 ' Italiano
Else ' not ok
Response.End
End If
End If
%>
Cheap Wine official web site
Acquista su ITunes - Buy at ITunes
