<%@ Control Language="vb" AutoEventWireup="false" Codebehind="Currency.ascx.vb" Inherits="HimalayanCraft.Currency" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %>
<%@ Control Language="vb" AutoEventWireup="false" Codebehind="Login.ascx.vb" Inherits="HimalayanCraft.Login" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %>
<%@ Control Language="vb" AutoEventWireup="false" Codebehind="head.ascx.vb" Inherits="HimalayanCraft.head" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %>
<%@ Control Language="vb" AutoEventWireup="false" Codebehind="Footer.ascx.vb" Inherits="HimalayanCraft.Footer" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %>
<%@ Register TagPrefix="uc1" TagName="ProductSearch" Src="ProductSearch.ascx" %>
<%@ Register TagPrefix="uc1" TagName="Advertisement4" Src="Advertisement4.ascx" %>
<%@ Register TagPrefix="uc1" TagName="Advertisement5" Src="Advertisement5.ascx" %>
<%@ Register TagPrefix="uc1" TagName="Payment" Src="Payment.ascx" %>
Links
css/headtab.css" type="text/css" rel="stylesheet">
CSS/Home.css" type="text/css" rel="stylesheet">
CSS/Home.css" type="text/css" rel="stylesheet">
<%
dim path as string
dim class0 as string = "taboff"
dim class1 as string = "taboff"
dim class2 as string = "taboff"
dim class3 as string = "taboff"
dim classsub as string
Dim Referer As String = Request.ServerVariables("SCRIPT_NAME")
if trim(referer) =""
referer = "/www.Himalayacrafts/home/"
end if
referer = left(referer,inStrrev(referer,"/"))
dim strref as string = right(referer,inStrrev(referer,"/"))
dim tab = ""
path = ".."
select case Ucase(Referer)
case Ucase("/Himalayacrafts/user/")
tab="register"
case Ucase("/Himalayacrafts/home/")
tab="home"
case Ucase("/Himalayacrafts/browse/")
tab="browse"
case Ucase("/Himalayacrafts/basket/")
tab="cart"
case Ucase("/Himalayacrafts/catalog/")
tab="catalog"
case Ucase("/Himalayacrafts/WishList/")
tab="Wish_List"
case Ucase("/Himalayacrafts/sitemanagement/")
tab="General_Links"
case Ucase("/Himalayacrafts/Help/")
tab="help"
end select
%>
<% Set obj=Server.CreateObject("ADODB.Connection")
Set SQLStmt = Server.CreateObject("ADODB.Command")
Set RS = Server.CreateObject("ADODB.Recordset")
SQLStmt.CommandText = "Select distinct CurrencyName,CurrencySymbol from MstCurrency order by CurrencyName desc"
SQLStmt.CommandType = 1
Set SQLStmt.ActiveConnection = obj
RS.Open SQLStmt
%>
If you like to
exchange link with us, then please fill up the form below for the information
about your site: