<% '******* Currency Calculations ********* 'Response.Write "KhalidKhalidKhalid" & Request.Form("txtCurrency") & " " if trim(Request.Form("txtCurrency"))="" then 'Response.Write "Khalid Farooq" if session("Curency")="" then 'Response.Write "Khalid FarooqEmpty" session("Curency")="£" session("Value")= 1 end if 'Response.Write session("Curency") 'Response.Write session("Value") ELSEif trim(Request.Form("txtCurrency"))="£" then session("Curency")="£" session("Value")= 1 else 'Response.Write Request.Form("txtCurrency") 'Response.Write mid(Request.Form("txtCurrency"),1 ,len(Request.Form("txtCurrency"))-1 ) session("Curency")=right(Request.Form("txtCurrency"),1) session("Value")=mid(Request.Form("txtCurrency"),1 ,len(Request.Form("txtCurrency"))-1 ) end if strCurr =session("Curency") exchRate=session("Value") 'Response.Write session("Curency") 'Response.Write session("Value") dim strPack dim adoRecTemp 'dim adoConn 'strConString = "Driver=SQL Server;Server=uksvr005;database=Pentacom;UID=kfarooq;PWD=kfarooq" 'Set adoConn =Server.CreateObject("ADODB.Connection") 'adoConn.Open strConString 'call ActionShoppingbasket Set adoRecTemp =Server.CreateObject("ADODB.Recordset") 'Delete old one... 'if Reset Order Button will be clicked if Request.Form("txtRemoveId")="khalidfarooqall" then strSql="delete from t_TempSelDomains where sessionid='" & Session.SessionID & "'" 'Response.Write strSql adoConn.Execute strSql elseIF Request.Form("txtRemoveId")<>"" THEN 'Remove the from Selected Bucket, if Remove is clicked strRmId=Request.Form("TXTDNomain" & Request.Form("txtRemoveId")) strSql="delete from t_TempSelDomains where id='"& strRmId & "' and sessionid='" & Session.SessionID & "'" 'Response.Write strSql adoConn.Execute strSql elseIF Request.Form("txtService")<>"" THEN 'Response.Write "Khalid & mid(Request.Form("txtService"),2) strDN=Request.Form("TXTDNomain" & mid(Request.Form("txtService"),3)) 'Response.Write "Khalid" & strDN strSql="update t_TempSelDomains set Service='" & left(Request.Form("txtService"),1) & "' where sessionid='" & Session.SessionID & "' and Domainname='"& strDN & "'" 'Response.Write strSql adoConn.Execute strSql end if '''Selected the Package if Request.Form("txtSelPack")<>"" then strPack=mid(Request.Form("txtSelPack"),5) 'Response.Write "Khlaid KKKKKKKKKKKKKKKKKKKKKKKKK" & strPack 'Response.Write strService Response.Write strDName & strPrice & strDur strSql="Select * from t_TempSelDomains where SessionId='" & Session.SessionID & "' and Service='"& strPack & "'" 'Response.Write strSql adoRecTemp.Open strSql, adoConn if adoRecTemp.EOF then strSql="Insert into t_TempSelDomains(id,SessionId,Service,DType)" _ & " Values(" & MaximumTempId() & ",'" & Session.SessionID & "','"& strPack & "','3')" 'Response.Write strSql adoConn.Execute strSql end if end if set adoRecTemp=nothing private function MaximumTempId() dim sql '***** To Send the email to User dim odoRec sql ="select MAX(Id) as id from t_TempSelDomains" set odoRec=server.CreateObject("ADODB.recordset") odoRec.Open sql,adoConn if isNull(odoRec("Id")) then MaximumTempId=1 else MaximumTempId=odoRec("Id")+1 end if set odoRec=nothing end function %>
">
Host your Website
PLEASE NOTE: The prices stated below are monthly figures, all hosting packages can only be purchased on an annual subscription.
<% DIM strOldPackId DIM intPrice Dim adoRec dim adoRecOffers Dim strSql Dim strConString dim intRowchange dim intCounter dim intRecCount dim intTotalRowsCounter dim intPackCounter dim Prices(3) Set adoRec =Server.CreateObject("ADODB.Recordset") Set adoRecOffers =Server.CreateObject("ADODB.Recordset") strSql=" SELECT t_HostingType.HostTypeId, t_HostingPackages.PackName,t_HostingPackages.PackId, t_HostingPackages.ServicePrice, t_HostingPackages.Remarks " _ & " FROM t_HostingPackages INNER JOIN t_HostingType ON t_HostingPackages.HostingType = t_HostingType.HostTypeId " _ & " where t_HostingType.HostTypeId=2" 'strSql="Select * from v_HostingPackes where HostTypeId=1" adoRec.Open strSql, adoConn,adOpenDynamic strSql="Select * from v_HostingPackes where HostTypeId=2 ORDER BY packId, packofferId" adoRecOffers.Open strSql, adoConn %> <% intRowchange=0 intRecCount=0 intPackCounter=0 'intRecCount=adoRec.RecordCount while not adoRec.EOF intRecCount=intRecCount+1 adoRec.MoveNext wend 'adoRec.MoveNext adoRec.MoveFirst 'Response.Write "Count-" & intRecCount while not adoRec.EOF strOldPackId=adoRec("PackId") intPrice=adoRec("ServicePrice") 'Response.Write intPrice intPackCounter=intPackCounter+1 intRowchange=intRowchange+1 intTotalRowsCounter=intTotalRowsCounter+1 Prices(intRowchange)=intPrice 'Response.Write "Khalid" & intRowchange if intRowchange=1 then %> <% end if %> <% 'Response.Write "Cooounter" & intTotalRowsCounter &intRecCount if intRowchange=3 or intTotalRowsCounter=intRecCount then if intTotalRowsCounter<>intRecCount then intRowchange=0 end if %> <% do while not adoRecOffers.EOF if strOldPackId<>adoRecOffers("PackId") then 'Response.Write "Change-" &intCounter if intCounter<>0 then %> <%= session("Curency")& FormatNumber(Prices(intCounter)*session("Value"),2) %> per Month
<%= session("Curency")& FormatNumber(Prices(intCounter)*12*session("Value"),2) %> per Annual <% end if if intCounter=3 then intCounter=0 exit do end if strOldPackId=adoRecOffers("PackId") intCounter=intCounter+1 %>
<% =adoRec("PackName") %>
" value="Add to Cart" onclick="PackageSelect(this.name)" class="btnlinux"> " value="<% =adoRec("PackId")%>" id="hidden4">
<% end if %> <% =adoRecOffers("PackOfferName") %>
<% adoRecOffers.MoveNext loop %> <% end if 'Response.Write "Khalid" & intRowchange & "-" & intRowchange mod 3 %> <% 'intRowchange=intRowchange+1 adoRec.MoveNext wend %> <% = session("Curency")& FormatNumber(Prices(intCounter)*session("Value"),2) %> per month
<%= session("Curency")& FormatNumber(Prices(intCounter)*12*session("Value"),2) %> per Annual
<% 'DIM strOldPackId 'DIM intPrice 'Dim adoRec 'dim adoRecOffers 'Dim strSql 'Dim adoConn 'Dim strConString 'dim intRowchange 'dim intCounter 'dim intRecCount 'dim intTotalRowsCounter adoRec.close adoRecOffers.close 'Set adoRec =Server.CreateObject("ADODB.Recordset") 'Set adoRecOffers =Server.CreateObject("ADODB.Recordset") strSql=" SELECT t_HostingType.HostTypeId, t_HostingPackages.PackName,t_HostingPackages.PackId, t_HostingPackages.ServicePrice, t_HostingPackages.Remarks, t_HostingType.HostTypeName " _ & " FROM t_HostingPackages INNER JOIN t_HostingType ON t_HostingPackages.HostingType = t_HostingType.HostTypeId " _ & " where t_HostingType.HostTypeId=1" 'strSql="Select * from v_HostingPackes where HostTypeId=1" adoRec.Open strSql, adoConn,adOpenDynamic strSql="Select * from v_HostingPackes where HostTypeId=1 ORDER BY packId, packofferId" adoRecOffers.Open strSql, adoConn %> <% intRowchange=0 intRecCount=0 strOldPackId="" intCounter=0 intTotalRowsCounter=0 'intRecCount=adoRec.RecordCount while not adoRec.EOF intRecCount=intRecCount+1 adoRec.MoveNext wend 'adoRec.MoveNext adoRec.MoveFirst 'Response.Write "Count-" & intRecCount while not adoRec.EOF strOldPackId=adoRec("PackId") intPrice=adoRec("ServicePrice") intPackCounter=intPackCounter+1 intRowchange=intRowchange+1 Prices(intRowchange)=intPrice intTotalRowsCounter=intTotalRowsCounter+1 'Response.Write "Khalid" & intRowchange if intRowchange=1 then %> <% end if %> <% 'Response.Write "Cooounter" & intTotalRowsCounter &intRecCount if intRowchange=3 or intTotalRowsCounter=intRecCount then if intTotalRowsCounter<>intRecCount then intRowchange=0 end if %> <% do while not adoRecOffers.EOF if strOldPackId<>adoRecOffers("PackId") then 'Response.Write "Price" & intCounter if intCounter<>0 then %> <% = session("Curency")& FormatNumber(Prices(intCounter)*session("Value"),2)%> per Month
<%= session("Curency")& FormatNumber(Prices(intCounter)*12*session("Value"),2) %> per Annual <% end if 'Response.Write "Change-" &intCounter if intCounter=3 then intCounter=0 exit do end if strOldPackId=adoRecOffers("PackId") intCounter=intCounter+1 %>
<% =adoRec("PackName") %>
" value="Add to Cart" class="btnwindows" onclick="PackageSelect(this.name)"> " value="<% =adoRec("PackId")%>" id="hidden4">
<% end if %> <% =adoRecOffers("PackOfferName") %>
<% adoRecOffers.MoveNext loop %> <% end if 'Response.Write "Khalid" & intRowchange & "-" & intRowchange mod 3 %> <% 'intRowchange=intRowchange+1 adoRec.MoveNext wend %> <% = session("Curency")& FormatNumber(Prices(intCounter)*session("Value"),2)%> per month
<%= session("Curency")& FormatNumber(Prices(intCounter)*12*session("Value"),2) %> per Annual
">
Shopping Basket
<% '**** List down the Selected domains ********** dim dblTotal dim adoRecSer dim adoRecSelDN2 set adoRecSelDN2=Server.CreateObject("ADODB.Recordset") strSql="SELECT * FROM viewSelectedDomians Where SessionId ='" & Session.SessionID & "' " adoRecSelDN2.open strSql,adoConn '** To check the Shopping Bucket ****** if adoRecSelDN2.EOF then Session("Basket")="E" else Session("Basket")="" end if set adoRecSer=Server.CreateObject("ADODB.Recordset") 'Open the rec for services strSql="SELECT * FROM vAllPackages" adoRecSer.open strSql,adoConn,adOpenKeyset 'Response.Write adoRecSer.EOF & "Khalid Farooq" dblTotal=0 intI =1 'Response.Write adoRecSelDN2.EOF & "Khalid Farooq" while not adoRecSelDN2.EOF if IsNull(adoRecSelDN2("ServicePrice")) then dblTotal=adoRecSelDN2("Price")+ dblTotal else if IsNull(adoRecSelDN2("Price")) then dblTotal= dblTotal + adoRecSelDN2("ServicePrice")*12 else dblTotal=adoRecSelDN2("Price")+ dblTotal + adoRecSelDN2("ServicePrice")*12 end if end if %> " value="<%=adoRecSelDN2("Id")%>" id="hidden1"> <% if IsNull(adoRecSelDN2("ServicePrice")) then %> <% else 'Response.Write "Khalid"& strCurr & adoRecSelDN2("ServicePrice") * exchRate if isNull(adoRecSelDN2("Price")) then %> <%else %> <%end if %> <% end if %> <% adoRecSelDN2.MoveNext intI=intI+1 wend %>
Unpaid Domain Hosting Packages/Services Options
<%=strCurr & FormatNumber(round( adoRecSelDN2("Price") * exchRate,2),2)%> <%=adoRecSelDN2("DomainName")%> Help <%=strCurr & FormatNumber(round( adoRecSelDN2("ServicePrice")*12 * exchRate,2),2) %> <%=strCurr & FormatNumber(round( (adoRecSelDN2("Price") + adoRecSelDN2("ServicePrice"))*12* exchRate,2 ),2)%> <%=adoRecSelDN2("DomainName")%> Help Help " value="Remove" style="background-color: #EFEFEF; font-face: Verdana; font-size: 11px;">
" >
Outstanding Balance :<% =strCurr & FormatNumber( round( dblTotal * exchRate,2),2) %>