| 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 : |
<%
'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=""
exeAutoSearch = " SELECT CategoryName AS ProductName FROM MastCategory WHERE Active=True " & _
" UNION ALL " & _
" SELECT ProductName FROM MastProduct WHERE ProductActive=True " & _
" UNION ALL " & _
" SELECT ProductType as ProductName FROM MastProductType WHERE ProductID "& _
" in(SELECT ProductID FROM MastProduct WHERE ProductActive=True) "
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
function suggestSearch(strInput)
' Suggest a country name based on a string comparison.
' A Database lookup would also be very appropriate.
strInput = replace (strInput,"%20"," ")
dim countries, country, flags
countries = array("India")
flags = array()
dim SuggOutPut , i
dim MatchCount
if Trim(strInput&"")<>"" then
MatchCount = 0
i=0
SuggOutPut = "<div id=""suggs""><div= class=""suggsHolder"">"
For each country in countries
if instr(lcase(country),lcase(strInput))>0 then
MatchCount = MatchCount + 1
SuggOutPut = SuggOutPut & "<a href='#' onclick='document.frmSiteSearch.search.value = this.innerHTML; document.getElementById(""suggs"").innerHTML=""""; return false ' >"& country&"</a><br/>"
end if
i=i+1
next
end if
SuggOutPut = SuggOutPut & "</ul></div></div>"
if MatchCount>0 then suggestSearch = SuggOutPut
end function
%>
<!--#include file="aspajax.asp"-->
<%
ASPAjax.EnableLiveASP("suggestSearch")
'ASPAjax.Path="/aspajax/"
ASPAjax.Open()
%>
<!-- #include file="../buybestmedicine.comThemes.inc" -->
<link href="includes/AjaxAutoSearch_main.css" rel="stylesheet" type="text/css" />
<link href="includes/AjaxAutoSearch_suggestions.css" rel="stylesheet" type="text/css" />
<script language="JavaScript1.2">
var CID = null
function clickHandler(){
clearTimeout(CID)
CID = setTimeout(getSuggestions, 333);
}
function getSuggestions(){
var input = escape(document.frmSiteSearch.search.value);
ASPAjax.liveASP('suggestSearch("'+input+'")' , 'SUGGESTIONS' )
}
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>
<%
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")>500 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")>500 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")>500 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
//response.Write(Session("qty"))
%>
<form name="frmSiteSearch" id="frmSiteSearch">
<input type="hidden" name="hdlanguagename" id="hdlanguagename" value="<%=hdlanguagename%>" />
<tr>
<td> </td>
</tr>
<tr align="right">
<td colspan="4" valign="top">
<b style="vertical-align: middle">Change Language:</b> <a href="#" onclick="LanguageSelect('rs');"
style="vertical-align: middle; text-decoration: none; font-size: 10px; color: Black">
Russian<img src="<%=Session("Themes_Images") %>/Russian-Federation-Flag.png" style="border: none;
vertical-align: middle" alt="" title="Russian" /></a> <a href="#" onclick="LanguageSelect('it');"
style="vertical-align: middle; text-decoration: none; font-size: 10px; color: Black">
Italiano<img src="<%=Session("Themes_Images") %>/Italy-Flag.png" alt="" title="Italian"
style="border: none; vertical-align: middle" /></a> <a href="#" onclick="LanguageSelect('sp');"
style="vertical-align: middle; text-decoration: none; font-size: 10px; color: Black">
Spanish<img src="<%=Session("Themes_Images") %>/Spain-Flag.png" style="border: none;
vertical-align: middle" alt="" title="Spanish" /></a>
<a href="#" onclick="LanguageSelect('fr');" style="vertical-align: middle; text-decoration: none;
font-size: 10px; color: Black">Frenech<img src="<%=Session("Themes_Images") %>/France-Flag.png"
style="border: none; vertical-align: middle" alt="" title="French" /></a>
<a href="#" onclick="LanguageSelect('en');" style="vertical-align: middle; text-decoration: none;
font-size: 10px; color: Black">English<img src="<%=Session("Themes_Images") %>/England-Flag.png"
alt="" style="border: none; vertical-align: middle" title="England" /></a>
<a href="#" onclick="LanguageSelect('gr');" style="vertical-align: middle; text-decoration: none;
font-size: 10px; color: Black">German<img src="<%=Session("Themes_Images") %>/Germany-Flag.png"
alt="" title="German" style="border: none; vertical-align: middle" /></a>
<a href="#" onclick="LanguageSelect('pt');" style="vertical-align: middle; text-decoration: none;
font-size: 10px; color: Black">Portuguese<img src="<%=Session("Themes_Images") %>/Portugal-Flag.png"
alt="" title="Portuguese" style="border: none; vertical-align: middle" /></a>
</td>
</tr>
<tr>
<td height="78" align="left">
<div id='FlashLogoDisplay'>
<img width="200px" height="75px" src="<%=Session("Themes_Images") %>/buybestmedicine.comLogo.gif" style="border: none;
vertical-align: middle" alt="" title="" />
</div>
</td>
<td valign="bottom">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
</td>
</tr>
<tr>
<td>
</td>
</tr>
<tr>
<td valign="top" width="40%">
<a href="products.asp">
<img src="<%=Session("Themes_Images") %>/Header_banner.JPG" alt="Online buy medicine"
border="0" />
</a>
</td>
<td height="78" align="left">
<table width="100%" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td height="20" colspan="2" valign="top" class="leftnav">
<strong> <%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentSearchProducts"))
%>
</strong>
</td>
</tr>
<tr>
<td align="right">
<input type="text" name="search" id="search" size="20" class="input" onkeyup="clickHandler()" onkeypress="return txtSearch_Click(0);"
value="<%=request.QueryString("search")%>" /></td>
<td>
<%
dim myPanel
Set myPanel = ASPAjax.CreateUpdatePanel
myPanel.Id = "SUGGESTIONS"
myPanel.Open
myPanel.Close
%>
</td>
<td align="left">
<%
%>
<a href="#" onclick="return txtSearch_Click(1);" style="text-decoration: none">
<input type="button" class="GreenButtonXML" style="background: url(<%=Session("Themes_Images") %>Xmlbtn.jpg);
repeat-x" value="<%=Response.Write(GetLanguageValue("HeaderContentButtonGo"))%>" />
</a>
<!--<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">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentViewDetials"))
%>
</a>| <a style="color: Black" href="signOut.asp">
<%
'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 width="17%" valign="top">
<a href="shopping_cart.html">
<img src="<%=Session("Themes_Images") %>/cart.gif" width="27" height="26" border="0" /></a></td>
<td width="83%">
<span class="leftnav"><a href="basket.asp?from=<%=FileName%>&id=<%=request.QueryString("id")%>">
<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>
<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: url(<%=Session("Themes_Images") %>Menu_Back.jpg) repeat-x;">
<a href="index.asp" style="text-decoration: none"><span class="title" style="font-size: 15px">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentHome"))
%>
</span></a>
</td>
<td align="center" style="background: url(<%=Session("Themes_Images") %>Menu_Back.jpg) repeat-x;">
<a href="About_Us.asp" style="text-decoration: none"><span class="title" style="font-size: 15px">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentAboutUs"))
%>
</span></a>
</td>
<td align="center" style="background: url(<%=Session("Themes_Images") %>Menu_Back.jpg) repeat-x;">
<a href="products.asp" style="text-decoration: none"><span class="title" style="font-size: 15px">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentProducts"))
%>
</span></a>
</td>
<td align="center" align="center" style="background: url(<%=Session("Themes_Images") %>Menu_Back.jpg) repeat-x;">
<a href="Services.asp" style="text-decoration: none"><span class="title" style="font-size: 15px">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentServices"))
%>
</span></a>
</td>
<td align="center" align="center" style="background: url(<%=Session("Themes_Images") %>Menu_Back.jpg) repeat-x;">
<a href="Highlights.asp" style="text-decoration: none"><span class="title" style="font-size: 15px">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentHightLights"))
%>
</span></a>
</td>
<td align="center" style="background: url(<%=Session("Themes_Images") %>Menu_Back.jpg) repeat-x;">
<a href="Faq.asp" style="text-decoration: none"><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: url(<%=Session("Themes_Images") %>Menu_Back.jpg) repeat-x;">
<a href="Contact_Us.asp" style="text-decoration: none"><span class="title" style="font-size: 15px">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentContactUs"))
%>
</span></a>
</td>
<!--<td width="50%" style="background: url(<%=Session("Themes_Images") %>Menu_Back.jpg) repeat-x;">
</td>-->
<!-- onmouseover="this.style.background='url(<%=Session("Themes_Images") %>Menu_Back1.jpg)';"
onmouseout="this.style.background='url(<%=Session("Themes_Images") %>Menu_Back.jpg)';" -->
</tr>
<tr>
<td style="width: 100%" colspan="9">
<table style="width: 100%" cellpadding="0" cellspacing="0">
<tr>
<td align="left" style="background-color: #f4fdcc; width: 5px; height: 10px; border-bottom: 1px solid f4fdcc;
border-top: 1px solid f4fdcc; vertical-align: top">
<img src="<%=Session("Themes_Images") %>108.jpg" width="350px" height="18px" />
</td>
<td align="left" style="background-color: #f4fdcc; width: 5px; height: 10px; border-bottom: 1px solid f4fdcc;
border-top: 1px solid f4fdcc; vertical-align: top">
</td>
<td align="left" style="background-color: #f4fdcc; border-bottom: 1px solid f4fdcc;
border-top: 1px solid f4fdcc;">
<img src="<%=Session("Themes_Images") %>p3.gif" width="110px" height="15px" />
</td>
<td align="left" style="background-color: #f4fdcc; border-bottom: 1px solid f4fdcc;
border-top: 1px solid f4fdcc; color: #A50E08;">
<marquee onmouseover="this.stop();" width="100%" onmouseout="this.start();">
<img src="<%=Session("Themes_Images") %>r5.jpg" width="20px" height="15px" />
<span style="color:#339900; font-family:Arial Black">Generic Viagra 20 pills
<img src="<%=Session("Themes_Images") %>r2.jpg" width="20px" height="15px" />
<span style="color:#339900; font-family:Arial Black">Tadalafill 20 pills</span>
<img src="<%=Session("Themes_Images") %>r3.jpg" width="20px" height="15px" />
<span style="color:#339900; font-family:Arial Black">Soft Tablets 20 pills </span>
<img src="<%=Session("Themes_Images") %>r4.jpg" width="20px" height="15px" />
<span style="color:#339900; font-family:Arial Black">Women Viagra (Femigra) 12 pills</span>
</marquee>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</form>
<% ASPAjax.Close()%>