| 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 : |
<%
'start Alert-> Reading value From Xml File_For Alert
javemail=GetLanguageValue("LeftMenuContentalertEmail")
javpassword = GetLanguageValue("LeftMenuContentalertPassword")
javinvalidemail = GetLanguageValue("LeftMenuContentalertInalidEmail")
'End alert
dim rsHigh
set rsHigh=server.CreateObject("adodb.recordset")
rsHigh.open "select * from SCSettings",cn,3,3
Set dleftchangeqty = Server.CreateObject("Scripting.Dictionary")
if Session("IsChangeProductTypeQTY") = "1" then
set dleftchangeqty = Session("ChangeProductTypeQTY")
end if
%>
<script language="JavaScript" type="text/JavaScript">
function validate()
{
if(document.getElementById("UserName").value=="")
{
alert('<%=javemail%>');
document.getElementById("UserName").focus();
return false;
}
else
{
var Email=document.getElementById("UserName").value;
var bond=document.getElementById("UserName");
if (!isEmail(Email,bond) )
{
document.getElementById("UserName").value="";
return false;
}
}
if(document.getElementById("password").value=="")
{
alert('<%=javpassword%>');
document.getElementById("password").focus();
return false;
}
document.getElementById("frmlogin").action="chklogin.asp?check=val";
document.getElementById("frmlogin").submit();
}
function isEmail(s,sbond)
{
// there must be >= 1 character before @, so we
// start looking at character position 1
// (i.e. second character)
var i = 1;
var sLength = s.length;
// look for @
while ((i < sLength) && (s.charAt(i) != "@"))
{ i++
}
if ((i >= sLength) || (s.charAt(i) != "@"))
{
alert('<%=javinvalidemail%>');
sbond.focus();
return false;
}
else i += 2;
// look for .
while ((i < sLength) && (s.charAt(i) != "."))
{ i++
}
// there must be at least one character after the .
if ((i >= sLength - 1) || (s.charAt(i) != "."))
{
alert( '<%=javinvalidemail%>' );
sbond.focus();
//isEmail = false
return false;
}
//alert("wow");
//else return true;
return true;
}
</script>
<tr>
<td style="width: 100%">
<form name="frmlogin" id="frmlogin" method="post" action="">
<table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td style="width: 100%; background-color: #008fd0">
<table style="width: 100%" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" align="center" style="height: 45px; background-color: #008fd0; background-repeat: no-repeat;
vertical-align: inherit; text-align: center; color: White; font-weight: bold;"
valign="top">
<table style="width: 150px" border="0" cellpadding="0" cellspacing="0">
<tr>
<td style="text-align: center">
<br />
<span class="title" style="color: white">
<%if session("CustomerLoginEmailID")= "" And session("ProductTypeQtyID") = "" then%>
<%
Response.Write(GetLanguageValue("LeftMenuHeaderMemberLogin"))
%>
<%End if %>
<%if session("ProductTypeQtyID") <> "" And session("CustomerLoginEmailID")= "" then%>
<%
Response.Write(GetLanguageValue("LeftMenuContentViewBasket"))
%>
<%End if %>
<%if session("CustomerLoginEmailID")<>"" And session("ProductTypeQtyID") = "" then%>
<%
Response.Write(GetLanguageValue("LeftMenuHeaderMemberLoginView"))
%>
<%End if %>
<%if session("ProductTypeQtyID") <> "" And session("CustomerLoginEmailID")<>"" then%>
<%
Response.Write(GetLanguageValue("LeftMenuContentViewBasket"))
%>
<%End if %>
</span>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<%if session("CustomerLoginEmailID")<>"" And session("ProductTypeQtyID") <> "" then%>
<%
MKDiscount1=0
productprice1=0
%>
<%
set rsproducttypeqty1=server.CreateObject("adodb.recordset")
rsproducttypeqty1.open "SELECT MastProductTypeQty.*, MastUnits.Units, MastPackaging.Packaging, MastPackaging.PackagingDescription, MastProductType.ProductType FROM ((MastProductTypeQty INNER JOIN MastPackaging ON MastProductTypeQty.PackagingID = MastPackaging.PackagingID) INNER JOIN MastUnits ON MastProductTypeQty.UnitID = MastUnits.UnitsID) INNER JOIN MastProductType ON MastProductTypeQty.ProductTypeID = MastProductType.ProductTypeID WHERE (((MastProductTypeQty.ProductTypeQtyID) in ("& session("ProductTypeQtyID") &")) AND ((MastProductTypeQty.Active)=True))",cn,3,3
%>
<%while not rsproducttypeqty1.eof%>
<tr>
<td style="background-color: #008fd0">
<table width="100%" cellpadding="0" cellspacing="0">
<tr>
<td style="width: 58px; color: White" align="center" title="<%=rsproducttypeqty1("ProductType") %>">
<table width="100%" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top" width="100%" style="background-color: #008fd0; background-repeat: repeat-y">
</td>
</tr>
</table>
<%
Dim sString1
sString1 = rsproducttypeqty1("ProductType")
Dim sNewString1
Dim iLength1
iLength1 = Len(sString1)
sNewString1 = Left(sString1, 15)
%>
<%= sNewString1%>
...
</td>
<td style="width: 1px; color: White; text-align: left">
<%if dleftchangeqty.Exists(""& rsproducttypeqty1("ProductTypeQtyID") &"")=true then%>
<%=formatnumber(rsproducttypeqty1("RatePerUnit") * dleftchangeqty(""& rsproducttypeqty1("ProductTypeQtyID") &"") ,2)%>
<%=sCurrencySymbol%>
<% productprice=productprice+(rsproducttypeqty1("RatePerUnit") * dleftchangeqty(""& rsproducttypeqty1("ProductTypeQtyID") &"") ) %>
<%else%>
<%=formatnumber(rsproducttypeqty1("RatePerUnit"),2)%>
<%=sCurrencySymbol%>
<% productprice=productprice+rsproducttypeqty1("RatePerUnit") %>
<%end if%>
</td>
<td style="width: 1px">
</td>
</tr>
</table>
</td>
</tr>
</tr>
<%
if not rsproducttypeqty1.eof then
rsproducttypeqty1.movenext
end if
wend
%>
<tr>
<td style="width: 100%; background-color: #008fd0; background-repeat: repeat-y">
<table style="width: 100%">
<tr>
<td style="color: White; text-align: left" width="67%">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("BasketContentShippingCharges"))
%>
</td>
<td style="width: 20px; color: White; text-align: left" id="tdleftshippingcharge">
<% If session("shippingCost")<>"" Then %>
<%=formatNumber(session("shippingCost"),2)%>
<% End If %>
<%=sCurrencySymbol%>
</td>
<td style="width: 1px">
</td>
</tr>
</table>
</td>
</tr>
<%
%>
<tr style="display: none">
<td>
<table style="width: 100%">
<tr>
<td>
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("BasketContentShippingCharges"))
%>
</td>
<td align="left" style="width: 10px" class="black" scope="col" id="tdleftshippingcharge">
<% If session("shippingCost")<>"" Then %>
<%=formatNumber(session("shippingCost"),2)%>
<% End If %>
<%=sCurrencySymbol%>
</td>
</tr>
</table>
</td>
</tr>
<tr style="display: none">
<td style="width: 100%">
<table style="width: 100%">
<tr>
<td style="width: 58px">
<%
Response.Write(GetLanguageValue("HeaderContentNowinOurCart"))
%>
</td>
<td style="width: 11px" align="Center">
<%if session("itemcount")="" then %>
0
<% else %>
<%=session("itemcount")%>
<% end if %>
</td>
</tr>
</table>
</td>
<tr>
<td style="width: 100%; background-color: #008fd0; background-repeat: no-repeat">
<table style="width: 100%">
<tr>
<td style="width: 100%">
<table style="width: 100%">
<tr>
<td style="width: 58px;" align="right">
<b>
<%Response.Write(GetLanguageValue("LeftMenuContentTotal"))%>
: </b>
</td>
<td style="width: 11px" align="center" id="tdleftshiprate">
<b>
<%if session("totalamount")<>"" then%>
<%=FormatNumber(session("totalamount"),2)%>
<%end if%>
<%=sCurrencySymbol%></b>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td style="width: 60px; background-color: #008fd0; background-repeat: repeat-y">
</td>
</tr>
<tr>
<td style="width: 100%; background-color: #008fd0; background-repeat: no-repeat"
align="right">
<table style="width: 100%">
<tr>
<td style="width: 60px" colspan="3" align="center">
<a href="signOut.asp" title="Clearbasket" style="color: Black">Clear basket</a>
</td>
</tr>
<tr>
<td style="width: 30px" align="center">
<input type="button" onclick="location.href='basket.asp'" style="background-color: #286f9c;
border: none; color: White" value="<%Response.Write(GetLanguageValue("LeftMenuContentViewBasket"))%>" />
</td>
<td style="width: 30px" align="center">
<input type="button" onclick="location.href='login.asp'" style="background-color: #286f9c;
border: none; color: White" value="<%Response.Write(GetLanguageValue("LeftMenuContentbuttonLogin"))%>" />
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="15px" align="left" valign="top" width="100%" style="background-color: #008fd0;
background-repeat: no-repeat">
</td>
</tr>
<%else %>
</tr>
<% if session("CustomerLoginEmailID")<>"" And session("ProductTypeQtyID") = "" then%>
<tr>
<td align="left" valign="top" width="100%" style="background-color: #008fd0; background-repeat: repeat-y">
<table style="width: 100%" cellpadding="0" cellspacing="0">
<tr>
<td>
</td>
</tr>
<tr>
<td align="center" style="color: White">
<strong>
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentWelcome"))
%>
<font color="#ffffff">
<%=session("CustomerFName")%>
</font></strong>
<br />
</strong>
</td>
</tr>
<tr>
<td>
</td>
</tr>
<tr>
<td style="width: 50%" align="Center">
<a href="user_profile.asp" style="color: white">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("HeaderContentViewDetials"))
%>
</a>
</td>
</tr>
<tr>
<td>
</td>
</tr>
<tr>
<td align="center">
<input type="button" onclick="location.href='signOut.asp'" style="background-color: #286f9c;
border: none; color: White" value="<%Response.Write(GetLanguageValue("LeftMenuContentLogOut"))%>" />
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="left" valign="top" width="100%" style="background-color: #008fd0; background-repeat: repeat-y">
</td>
</tr>
<%else %>
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td align="center" valign="top" width="100%" style="background-color: #008fd0; background-repeat: repeat-y;
color: White">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("LeftMenuContentUserName"))
%>
</td>
</tr>
<tr>
<td align="center" valign="top" width="100%" style="background-color: #008fd0; background-repeat: repeat-y">
<input name="UserName" type="text" id="UserName" />
</td>
</tr>
<tr>
<td align="center" valign="top" width="100%" style="background-color: #008fd0; background-repeat: repeat-y;
color: White"">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("LeftMenuContentPassword"))
%>
</td>
</tr>
<tr>
<td align="center" valign="top" width="100%" style="background-color: #008fd0; background-repeat: repeat-y">
<input name="password" type="password" id="password" />
</td>
</tr>
<tr>
<td align="center" valign="top" width="100%" style="background-color: #008fd0; background-repeat: repeat-y">
<div align="center">
<input name="image" onclick="return validate();" id="image" type="button" style="background-color: #286f9c;
border: none; color: White" value="<%=Response.Write(GetLanguageValue("LeftMenuContentbuttonLogin"))%>" />
</div>
</td>
</tr>
<tr>
<td align="center" valign="top" width="100%" style="background-color: #008fd0; background-repeat: repeat-y">
<div align="center">
<a style="color: white" href="ForgotPassword.asp" title="ForGotPassword">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("LeftMenuContentForGotPassword"))
%>
</a>
</div>
</td>
</tr>
<tr>
<td align="center" valign="top" width="100%" style="background-color: #008fd0; background-repeat: repeat-y">
<div style="text-align: center">
<a style="color: white" href="Register.asp" title="Register">
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("LeftMentContentRegister"))
%>
</a>
</div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" valign="top" width="100%" style="background-color: #008fd0; background-repeat: no-repeat;
height: 15px">
</td>
</tr>
<td width="194" height="5px">
</td>
<%End if %>
<%End if %>
<tr>
<td>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</td>
</tr>
<!-- Category -->
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td style="width: 100%">
<table style="width: 100%" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height="100%" align="center" style="height: 45px; background-image: url('images_green/hederpart.png');
background-repeat: no-repeat; vertical-align: inherit; text-align: center; color: White;
font-weight: bold" valign="top">
<br />
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("LeftMenuHeaderCategory"))
%>
</td>
</tr>
<tr>
<td align="left" valign="top" width="100%" style="background-image: url('images_green/middle.PNG');
background-repeat: repeat-y">
<table style="width: 100%" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<br />
<!--category title-->
<%
set rscatGroup=server.CreateObject("adodb.recordset")
if rscatGroup.state=1 then rscatGroup.close
rscatGroup.open "SELECT * from MastCategory where active=true order by sortorder",cn,3,3
if not rscatGroup.eof Then
do while not rscatGroup.eof
%>
<br />
<div align="left" class="category_bg" style="cursor: pointer" onclick="collapseEllapseDiv(<%=rscatGroup("CategoryID")%>);">
<img class="opn_cls" src="<%=Session("Themes_Images") %>/close.GIF" style="margin-left: 10px;"
id="pic_<%=rscatGroup("CategoryID")%>">
<b><%=rscatGroup("CategoryName")%></b>
</div>
<div align="left" class="product_ul" id="products_<%=rscatGroup("CategoryID")%>"
style="display: block;">
<%
dim rsDis
set rsDis=server.CreateObject("adodb.recordset")
if rsDis.state=1 then rsDis.close
rsDis.open "SELECT productname_en,productcode from ProductDiesDetails a,MastProduct b Where a.ProductId = b.ProductId and productactive=true and a.DiseasesId ="& rscatGroup("CategoryID") & " order by sortorder",cn,3,3
if not rsDis.eof Then
do while not rsDis.eof
%>
<!--start product list block-->
<table class="infoBox" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<img src="<%=Session("Themes_Images") %>/bullet_small.gif" style="margin-left: 22px;"
alt="<%=rsDis("productname_en")%>" />
</td>
<td style="width: 80%;">
<a href="<%=Replace(rsDis("productname_en")," ","-")%>.asp" class="leftnav" title="<%=rsDis("productname_en")%>">
<span class="grey" title="<%=rsDis("productname_en")%>">
<%=rsDis("productcode")%>
</span></a>
</td>
</tr>
</table>
<%
rsDis.MoveNext
Loop
end if
%>
</div>
<%
rscatGroup.MoveNext
Loop
end if %>
<div>
</div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="left" valign="top" width="100%" style="background-image: url('images_green/footer.PNG');
background-repeat: no-repeat; height: 15px">
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<!--Trial Pack -->
<tr>
<td style="width: 100%">
</td>
</tr>
<tr>
<td>
<form name="frmTrialPack" id="frmTrialPack" method="post" action="">
<table width="10%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="194px" border="0" cellpadding="0" cellspacing="0">
<td width="100%" height="100%" align="center" style="height: 45px; background-image: url('images_green/hederpart.png');
background-repeat: no-repeat; vertical-align: inherit; text-align: center; color: White;
font-weight: bold" valign="top">
<br />
Offers
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="left" valign="top" width="100%" style="background-image: url('images_green/middle.PNG');
background-repeat: repeat-y; text-align: center">
<br />
<a href="ED-Trial-Pack.asp" title="buy ed trial pack">
<img height="150" width="150" alt="viagra offers|best offers in ED products|ED Trial pacjs|buy online ed products"
src="<%=Session("Themes_Images") %>/ed_trial_pack.gif" /></a>
</td>
</tr>
<tr>
<td align="left" valign="top" width="100%" height="15px" style="background-image: url('images_green/footer.PNG');
background-repeat: repeat-y">
</td>
</tr>
</table> </form> </td> </tr>
<tr>
<td style="width: 100%">
</td>
</tr>
<!--Highlights -->
<tr>
<td style="width: 100%">
</td>
</tr>
<tr>
<td>
<form name="frmHighlights" id="frmlogin" method="post" action="">
<table width="10%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="194px" border="0" cellpadding="0" cellspacing="0">
<td width="100%" height="100%" align="center" style="height: 45px; background-image: url('images_green/hederpart.png');
background-repeat: no-repeat; vertical-align: inherit; text-align: center; color: White;
font-weight: bold" valign="top">
<br />
<%
'Create Function To Get Key And Lan Code
Response.Write(GetLanguageValue("LeftMenuHeaderHighLights"))
%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="left" valign="top" width="100%" style="background-image: url('images_green/middle.PNG');
background-repeat: repeat-y; text-align: center">
<%=rsHigh("LeftPanelHighLightText")%>
</td>
</tr>
<tr>
<td align="left" valign="top" width="100%" height="15px" style="background-image: url('images_green/footer.PNG');
background-repeat: repeat-y">
</td>
</tr>
</table> </form> </td> </tr>
<tr>
<td style="width: 100%">
</td>
</tr>
<!--HotNews-->
<tr>
<td>
</td>
</tr>
<tr>
<td>
<form name="frmHighlights" id="Form2" method="post" action="">
<table width="10%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="194px" border="0" cellpadding="0" cellspacing="0">
<td width="100%" align="center" style="height: 45px; background-image: url('images_green/hederpart.png');
background-repeat: no-repeat; vertical-align: inherit; text-align: center" valign="top">
<br />
<span class="title" style="color: white">Guaranteed </span>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="left" valign="top" width="100%" style="background-image: url('images_green/middle.PNG');
background-repeat: repeat-y; text-align: center">
<img src="<%=Session("Themes_Images") %>/guarenteed.JPG" alt="caverta sildenafil|Caverta | Buy Caverta | Cheap Online Caverta 100mg Tablets|Buy Caverta online | Caverta next day no prescription | Overnight|"
style="text-decoration: none; border: none" />
<br />
<a href="#" style="text-decoration: none; color: #000000"><b>100% Satisfaction </b></a>
<br />
<a href="#" style="text-decoration: none; color: #000000"><b>
<%Response.Write(GetLanguageValue("LeftMenuYourShop")) %>
</b></a>
</tr>
<tr>
<td align="left" valign="top" width="100%" style="background-image: url('images_green/footer.PNG');
background-repeat: no-repeat; height: 15px">
</td>
</tr>
<tr>
<td width="194">
</td>
</tr>
</table> </form> </td> </tr>
<tr>
<td style="width: 100%">
</td>
</tr>
<tr>
<td>
<form name="frmHighlights" id="Form2" method="post" action="">
<table width="10%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="194px" border="0" cellpadding="0" cellspacing="0">
<td width="100%" align="center" style="height: 45px; background-image: url('images_green/hederpart.png');
background-repeat: no-repeat; vertical-align: inherit; text-align: center" valign="top">
<br />
<span class="title" style="color: white">Generic Viagra Online!
<br />
Is It 100% Safe? </span>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="left" valign="top" width="80%" style="background-image: url('images_green/middle.PNG');
background-repeat: repeat-y; text-align: center">
<table width="85%" align="center">
<tr>
<td>
<p align="justify">
Generic Viagra is used to treat maintaining an erection in men.This disease is known as Erectile Dysfunction.This problem occurs when nerves or blood vessels are associated with these process are not working properly. Sildenafil Citrate raises the blood flow into the penile area.so men become sexually excited and get an erection. when sexual intercourse over erection goes away.
</p>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="left" valign="top" width="100%" style="background-image: url('images_green/footer.PNG');
background-repeat: no-repeat; height: 15px">
</td>
</tr>
<tr>
<td width="194" height="6">
</td>
</tr>
</table> </form> </td> </tr> </form>
<script language="javascript">
function collapseEllapseDiv(elmID)
{
products_elm = document.getElementById('products_'+elmID)
picture_elm = document.getElementById('pic_'+elmID)
more_elm = document.getElementById("more_"+elmID);
spacer = document.getElementById("spacer_"+elmID);
// if catagory is clicked, show products
if (products_elm.style.display == 'none')
{
products_elm.style.display = '';
picture_elm.src = "<%=Session("Themes_Images") %>/close.gif";
}
else
{
products_elm.style.display = 'none';
picture_elm.src = "<%=Session("Themes_Images") %>/open.jpg";
}
}
</script>