| Server IP : 138.197.176.125 / Your IP : 216.73.216.41 Web Server : Apache/2.4.41 (Ubuntu) System : Linux SuiteCRM-8 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 User : root ( 0) PHP Version : 8.3.19 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /var/www/adpharmaceuticals.com/includes/ |
Upload File : |
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%
'Store language Id In session
if Request("hdlanguagename") <> "" then
Session("LanguageID") = Request("hdlanguagename")
else
if Session("LanguageID") = "" then
Session("LanguageID") = "en"
End if
End if
'start Alert-> Reading value From Xml File_For Alert
javsearch = GetLanguageValue("HEaderContentalertSearchText")
javdelitems = GetLanguageValue("HeaderContentalertDelteItems")
javduplicate = GetLanguageValue("HeaderContentalertDuplicate")
'End alert
'-- Auto Search Code
strAutoSearchArray=""
if application("AutoSuggestSearch") = "" then
'response.write "test"
exeAutoSearch = " SELECT '#'+ ProductName + '#' AS ProductName FROM ( " & _
" SELECT CategoryName AS ProductName FROM MastCategory WHERE Active=True " & _
" UNION ALL " & _
" SELECT ProductName_en As ProductName FROM MastProduct WHERE ProductActive=True " & _
" UNION ALL " & _
" SELECT ProductType as ProductName FROM MastProductType WHERE ProductID "& _
" in(SELECT ProductID FROM MastProduct WHERE ProductActive=True) ) AS X where X.ProductName is not null "
set rsAutosearch=server.CreateObject("adodb.recordset")
rsAutosearch.open exeAutoSearch,cn,1,3
while not rsAutosearch.eof
if len(strAutoSearchArray &"") > 0 then
strAutoSearchArray = strAutoSearchArray &"," & rsAutosearch("ProductName")
else
strAutoSearchArray = rsAutosearch("ProductName")
end if
rsAutosearch.movenext
wend
Application("AutoSuggestSearch") = strAutoSearchArray
else
strAutoSearchArray = Application("AutoSuggestSearch")
end if
strAutoSearchArray = replace(strAutoSearchArray,"#","""")
%>
<!-- #include file="buybestmedicineThemes.inc" -->
<link href="includes/ajaxAutoSuggest.css" rel="stylesheet" type="text/css" />
<script type="text/javascript">
<!--//---------------------------------+
// Developed by Roshan Bhattarai
// Visit http://roshanbh.com.np for this script and more.
// This notice MUST stay intact for legal use
// --------------------------------->
/*$(document).ready(function()
{
//first slide down and blink the alert box
$("#object").animate({
top: "0px"
}, 2000 ).fadeOut(100).fadeIn(100).fadeOut(100).fadeIn(100).fadeOut(100).fadeIn(100).fadeOut(100).fadeIn(100);
//close the message box when the cross image is clicked
$("#close_message").click(function()
{
$("#object").fadeOut("slow");
});
});*/
</script>
<style type="text/css">
.message{
border:1px solid #CCCCCC;
position:absolute;
width:250px;
border:1px solid #c93;
background:#F1FCC5;
padding:5px;
left:0px;
top : -170px;
}
</style>
<script language="javascript" type="text/javascript" src="includes/ajaxAutoSuggest.js"></script>
<script language="JavaScript1.2">
function txtSearch_Click(isGo)
{
if(isGo == 1)
{
if(document.frmSiteSearch.search.value=="")
{
alert('<%=javsearch%>');
document.frmSiteSearch.search.focus();
return false;
}
document.frmSiteSearch.action="Search.asp?search="+document.frmSiteSearch.search.value+"&mode=allwords";
document.frmSiteSearch.submit();
}
}
function deletemas()
{
alert('<%=javdelitems%>');
return false;
}
function duplicate()
{
alert('<%=javduplicate%>');
return false;
}
function showSWFPreview()
{
currSWF = 'images_Green/buybestmedicine.comLogo.swf'
var isSelection = currSWF;
var browser=navigator.appName;
if (browser=="Microsoft Internet Explorer")
{
var flashObjStr = "<object type=application/x-shockwave-flash width='170' height='80' loop=false id=OBJECT1><PARAM NAME=Movie value='"+isSelection+"'><param name=wmode value=transparent></object>"
}
else
{
var flashObjStr = "<object type=application/x-shockwave-flash data='"+isSelection+"' width='170' height='90' loop=false id=OBJECT1><param name=wmode value=transparent></object>"
}
document.getElementById('FlashLogoDisplay').innerHTML = flashObjStr;
}
// function defination for select languagecode
function LanguageSelect(languagecode)
{
Len = location.href.length
if (location.href.substring(Len-1,Len) == "#" )
url = location.href.substring(0,Len-1)
else
url = location.href
if (window.location.search.substring(1).length > 0)
//call for replace
url = replaceQueryString(url,"hdlanguagename",languagecode,false)
else
url = replaceQueryString(url,"hdlanguagename",languagecode,true)
location.href = url ;
}
// function for replacing #
function replaceQueryString(url,param,value,isFirst) {
var re = new RegExp("([?|&])" + param + "=.*?(&|$)","i");
if (url.match(re))
return url.replace(re,'$1' + param + "=" + value + '$2');
else
{
if(isFirst)
return url + '?' + param + "=" + value;
else
return url + '&' + param + "=" + value;
}
}
</script>
<div style="text-align: right" id="google_translate_element">
</div>
<script>
function googleTranslateElementInit() {
new google.translate.TranslateElement({
pageLanguage: 'en',
layout: google.translate.TranslateElement.InlineLayout.SIMPLE
}, 'google_translate_element');
}
</script>
<script src="//translate.google.com/translate_a/element.js?cb=googleTranslateElementInit"></script>
<%
sqlDisplaycartDescription="select * from SCSettings"
set rsDisplaycartDescription=server.CreateObject("adodb.recordset")
rsDisplaycartDescription.open sqlDisplaycartDescription,cn,1,3
if not rsDisplaycartDescription.eof then
sDisplayProductTypeDescription=rsDisplaycartDescription("DisplayProductTypeDescription")
sCurrencySymbol=rsDisplaycartDescription("CurrencySymbol")
sDisplayCategoryDescription=rsDisplaycartDescription("DisplayCategoryDescription")
end if
%>
<%
exe1 = "SELECT SCWebsiteDomain ,SCName,SCPunchLine,SCEmailID,Currency, " & _
"CurrencySymbol,DisplayManufacturerDescription,DisplayCategoryDescription, " & _
"DisplayProductTypeDescription,DisplayPackagingDescription,MultipleProductSelectionInCart, " & _
"AdminLoginName,AdminPassword,DisplayTopRatedProducts,TopRatedProductsDesc, " & _
"DisplaySpecialProducts,SpecialProductsDesc,DisplayHotDeals,HotDealsDesc, " & _
"LeftPanelHighLightText,HomePageBottomTableTitle,HomePageBottomTableImage, " & _
"HomePageBottomTableContent,bottompage_"& Session("LanguageID") &" AS bottompage ,LastInvoiceNo,InvoiceNoPrefix, " & _
"AdminPaging,Notes_"& Session("LanguageID") &" AS Notes,bottompage_"& Session("LanguageID") &" AS HomePageBottomTableContent from SCSettings "
set rsCurValDisplay=server.CreateObject("adodb.recordset")
rsCurValDisplay.open exe1,cn,1,3
%>
<% if Request.QueryString("command")="addtocart" Then
isMaximumQuantity=false
sqlQty="select * from MastProductTypeQty where ProductTypeQtyID="& Request.QueryString("ProductTypeqtyId")
set rsQty=server.CreateObject("adodb.recordset")
rsQty.Open sqlqty,cn,1,3
if rsCurValDisplay("MultipleProductSelectionInCart") then
if session("ProductTypeQtyID") = "" then
if Session("qty") + rsQty("qty")>1000 then
isMaximumQuantity=true
msgMaximumQuantity=GetLanguageValue("HeaderContentMoreThan")
else
session("ProductTypeQtyID")=Request.QueryString("ProductTypeQtyID")
session("itemcount")=session("itemcount")+1
Session("qty")= Session("qty") + rsQty("qty")
end if
else
dim varProductTypeQtyID
varProductTypeQtyID=Split(session("ProductTypeQtyID"),",")
isDuplicate=false
for i=0 to ubound(varProductTypeQtyID)
if Request.QueryString("ProductTypeQtyID")= varProductTypeQtyID(i) then
msgDuplicate= GetLanguageValue("HeaderContentAlreayAdded")
isDuplicate=true
end if
next
if isDuplicate=false then
if Session("qty") + rsQty("qty")>1000 then
isMaximumQuantity=true
msgMaximumQuantity=GetLanguageValue("HeaderContentMoreThan")
else
session("ProductTypeQtyID")= session("ProductTypeQtyID") &","& Request.QueryString("ProductTypeQtyID")
session("itemcount")=session("itemcount") + 1
Session("qty")= Session("qty") + rsQty("qty")
end if
end if
end if
else
if Session("qty") + rsQty("qty")>1000 then
isMaximumQuantity=true
msgMaximumQuantity=GetLanguageValue("HeaderContentMoreThan")
else
session("ProductTypeQtyID")=Request.QueryString("ProductTypeQtyID")
session("itemcount")=session("itemcount")+1
Session("qty")= Session("qty") + rsQty("qty")
end if
End if
End if
if Request("mode") = "buy" and msgDuplicate ="" then
response.redirect("basket.asp")
end if
//response.Write(Session("qty"))
%>
<!--<div id="object" class="message" style="text-align: left; font-size: 12px;">
<img id="close_message" style="float: right; cursor: pointer" src="/images_Green/ViagrafromEU.png" />
<p align="center" style="text-align:center">
<strong>Important Notice</strong></p>
<p style='align:justify'>
Dear Valuable Customers,<br/>
We are glad to inform you that our Payment Gateway (Card Processing) service has been restored back to normal. Please place your orders with us.<br/>
Wish you all a very "Happy Shopping" with us.
</p>
<p style='align:justify'>
"We regret to inform you that our Payment Gateway is not functioning and hence we
cannot accept payment through Credit / Debit Cards for some time. As soon as the
Gateway (Card Processing System) starts accepting Credit Cards - we will notify
the same.
We are still accepting payment through Bank Wire."
</p>
</div>-->
<form name="frmSiteSearch" id="frmSiteSearch">
<input type="hidden" name="hdlanguagename" id="hdlanguagename" value="<%=hdlanguagename%>" />
<tr>
<td height="78" align="left">
<div>
<img width="100px" height="75px" src="<%=Session("Themes_Images") %>/buybestmedicinelogo.png"
style="border: none; vertical-align: middle" alt="Sildenafil Citrate | Buy Sildenafil Citrate | Buy Cheap Sildenafil Citrate |Buy Sildenafil Citrate Tablets Online |Generic Viagra (Sildenafil citrate) "
title="BuyBestMedicine" />
</div>
</td>
<td valign="bottom">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="78" align="left">
<table width="100%" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td>
<img src="images_green/banner.jpg" alt="Caverta | Buy Caverta | Cheap Online Caverta 100mg TabletsViagra | Buy Viagra Generic | Cheap Generic Viagra Online Pharamacy"
title="buybestmedicine" />
</td>
<td>
<strong>
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentSearchProducts"))
%>
</strong>
<br />
<input type="text" name="search" id="search" size="5px" class="input" onkeypress="return txtSearch_Click(0);"
value="<%=request.QueryString("search")%>" />
<div id="suggest" style="position: absolute; z-index: 0; background-color: #99CC33;
color: #99CC33; visibility: hidden; border: #000000 2px solid; width: 150px;">
</div>
<a href="#" onclick="return txtSearch_Click(1);" style="text-decoration: none" title="Go">
<input type="button" style="background-color: #286f9c; color: White; width: 80px;
height: 20px; border: none" value="<%=Response.Write(GetLanguageValue("HeaderContentButtonGo"))%>" />
</a>
</td>
<td align="left">
<!--<a href="#"><img src="<%=Session("Themes_Images") %>/go-bu.gif" width="30" height="20" border="0" /></a>-->
</td>
</tr>
</table>
</td>
<td>
<table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr style="height: 100%">
<td colspan="2" valign="top">
<%if session("CustomerLoginEmailID")<>"" then%>
<strong>
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentWelcome"))
%>
<font color="#0c4b8e">
<%=session("CustomerFName")%>
</font></strong>
<br />
</strong>
<%end if%>
</td>
</tr>
<tr>
<td colspan="2" valign="top">
<%if session("CustomerLoginEmailID")<>"" then%>
<a href="user_profile.asp" style="color: Black" title="viewdetails">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentViewDetials"))
%>
</a>| <a style="color: Black" href="signOut.asp" title="signout">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentSignOut"))
%>
</a>
<%end if%>
</td>
</tr>
<tr>
<td valign="top">
</td>
<td>
</td>
</tr>
<tr>
<%
arrTotalPath=split(request.ServerVariables("PATH_INFO"),"/")
FileName=arrTotalPath(ubound(arrTotalPath))
%>
<td valign="top">
<a href="shopping_cart.html" title="Buy cheap medicine">
<img src="<%=Session("Themes_Images") %>/Cart.gif" width="27" height="26" border="0"
alt="kamagra sildenafil citrate | Sildenafil | citrate | purchase viagra | buy viagra" /></a>
</td>
<td width="83%">
<span class="leftnav"><a href="basket.asp?from=<%=FileName%>&id=<%=request.QueryString("id")%>"
title="shoppingcart"><strong>
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentShoppingCart"))
%>
</strong></a></span>
</td>
</tr>
<tr>
<td valign="top">
</td>
<td valign="top">
<span class="orange">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentNowinOurCart"))
%>
<%if session("itemcount")="" then %>
0
<% else %>
<%=session("itemcount")%>
<% end if %>
</span>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr style="display: none">
<td style="width: 100%">
<img src="<%=Session("Themes_Images") %>Header_Refrence.JPG" alt="sildenafil citrate prescription drugs | generic viagra |order caverta online |100 mg cavetra" />
</td>
</tr>
<tr>
<td colspan="2" align="center">
<table height="30" width="100%" align="center" border="0" cellspacing="1" cellpadding="0">
<tr align="center">
<td align="center" style="background-color: #286f9c">
<a href="index.asp" style="text-decoration: none"><span class="title" style="font-size: 15px"
title="home">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentHome"))
%>
</span></a>
</td>
<td align="center" style="background-color: #286f9c">
<a href="About_Us.asp" style="text-decoration: none"><span class="title" style="font-size: 15px"
title="AboutUs">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentAboutUs"))
%>
</span></a>
</td>
<td align="center" style="background-color: #286f9c">
<a href="products.asp" style="text-decoration: none"><span class="title" style="font-size: 15px"
title="Products">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentProducts"))
%>
</span></a>
</td>
<td align="center" align="center" style="background-color: #286f9c">
<a href="Services.asp" style="text-decoration: none"><span class="title" style="font-size: 15px"
title="Services">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentServices"))
%>
</span></a>
</td>
<td align="center" align="center" style="background-color: #286f9c">
<a href="Highlights.asp" style="text-decoration: none" title="HighLights"><span class="title"
style="font-size: 15px">Impression </span></a>
</td>
<td align="center" style="background-color: #286f9c">
<a href="Faq.asp" style="text-decoration: none" title="Faqs"><span class="title"
style="font-size: 15px">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentFaqs"))
%>
</span></a>
</td>
<td align="center" style="background-color: #286f9c">
<a href="Contact_Us.asp" style="text-decoration: none" title="ContactUs"><span class="title"
style="font-size: 15px">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentContactUs"))
%>
</span></a>
</td>
</tr>
</table>
</td>
</tr>
</form>
<script language="javascript">
strAutoSearchArray ='<%=strAutoSearchArray%>'
createAutoComplete(strAutoSearchArray);
</script>