<% dim showMsgs Dim archiveFileNameStr(),archiveTitleStr(),archiveDateStr(),archiveFileNoStr() Dim arrMonthName(12) arrMonthName(0)="Jan" arrMonthName(1)="Jan" arrMonthName(2)="Feb" arrMonthName(3)="Mar" arrMonthName(4)="Apr" arrMonthName(5)="May" arrMonthName(6)="Jun" arrMonthName(7)="Jul" arrMonthName(8)="Aug" arrMonthName(9)="Sep" arrMonthName(10)="Oct" arrMonthName(11)="Nov" arrMonthName(12)="Dec" Call getArchiveContents() %> Market alert : Mercantile Exchange Nepal Limited: Online Commodities and Metal Trading in Nepal
» Resources » News Letter Sign Up » Market Alert
 
 
 
MARKET ANALYSIS

In this page you can find our current market analysis and archives.View the current Publication and Archive of the Publications from the corresponding sections below.
 
Newsletter Subscription Form * Mandatory
<% Dim sql,emailsend,emailStr,subdateStr,pwdStr,responseStr,nameStr Dim msg,msgsubject,mailfrom,mailfromname,mailto,mailtoname,mailBCC,isTab isTab=false Session("subscrbeemail")="" if Trim(Request.Form("email"))<>"" then ' 1- if -open nameStr=Trim(Request.Form("txtName")) emailStr=Trim(Request.Form("email")) subdateStr=DateAdd("n",330,Now()) ipaddress=Request.ServerVariables("REMOTE_ADDR") GeoCountryVal=Fixquotes(Trim(Request.Form("cy"))) GeoRegionVal=Fixquotes(Trim(Request.Form("rg"))) GeoCityVal=Fixquotes(Trim(Request.Form("ct"))) dim spamStop2 spamStop2 = trim(request.form("EmailAddressrt")) if spamStop2 <> "" then response.End() end if if (Session("subscrbeemail")<>emailStr) then ' 2- if -open set dbconn=getDB() set rschkuser=Server.CreateObject("ADODB.Recordset") rschkuser.CursorType=3 sqlchkuser="select * from newsletter_subscribe where email='"& emailStr &"' " rschkuser.Open sqlchkuser,dbconn if rschkuser.RecordCount=0 then ' 3- if -open set rs=Server.CreateObject("ADODB.Recordset") rs.CursorType=3 sql="insert into newsletter_subscribe(firstname,email,subscribedate,sub_status,ipaddress,ipdetails,readstatus)values('"& fixQuotes(nameStr) &"','"& fixQuotes(emailStr) &"','"& subdateStr &"',0,'"& fixQuotes(ipaddress) &"','"& GeoCountryVal&"-"&GeoRegionVal&"-"&GeoCityVal &"',0)" dbconn.execute(sql) Session("subscrbeemail")=emailStr set rs_view=Server.CreateObject("ADODB.Recordset") rs_view.CursorType=3 sql_view="select sub_no, email, firstname from newsletter_subscribe where email='"& emailStr &"'" rs_view.Open sql_view,dbconn msg="" msg=msg & "" msg=msg & "" msg=msg & "" msg=msg & "" msg=msg & "" msg=msg & "" msg=msg & "" msg=msg & "" msg=msg & "" msg=msg & "" msg=msg & "" msg=msg & "
 
Hi "& trim(rs_view(2)) &",
your E-Mail Id is "& trim(rs_view(1)) &"
 
To activate Mex Nepal News Letter Subscription please Click Here
 
(or) copy and paste the following link in your browser http://www.mexnepal.com/webpages/newsletter_active.asp?id="&rs_view(0)&"&emailid="&rs_view(1)&"
 
 
" msgsubject="MexNepal - Newsletter Signup" mailfrom="info@mexnepal.com" mailfromname="MexNepal" mailto=trim(rs_view(1)) mailtoname="MexNepal" mailBCC="graphics@kappsoft.com" dim hasSent ' response.Write(msg) hasSent=sendMail(msg,msgsubject,mailfrom,mailfromname,mailto,mailtoname,mailBCC) isTab=true responseStr="Thankyou for subscribing to MexNepal Newsletter service.
Please check your e-mail for activation.
Activation link is sent to your email. " else set rsemailchk=Server.CreateObject("ADODB.Recordset") rsemailchk.CursorType=3 sqlemailchk="select * from newsletter_subscribe where email='"& emailStr &"' and readstatus=0" rsemailchk.Open sqlemailchk,dbconn if rsemailchk.RecordCount>0 then ' 4- if -open Session("subscrbeemail")=emailStr set rs_view1=Server.CreateObject("ADODB.Recordset") rs_view1.CursorType=3 sql_view1="select sub_no, email, firstname from newsletter_subscribe where email='"& emailStr &"'" rs_view1.Open sql_view1,dbconn msg1="" msg1=msg1 & "" msg1=msg1 & "" msg1=msg1 & "" msg1=msg1 & "" msg1=msg1 & "" msg1=msg1 & "" msg1=msg1 & "" msg1=msg1 & "" msg1=msg1 & "" msg1=msg1 & "" msg1=msg1 & "" msg1=msg1 & "
 
Hi "& trim(rs_view1(2)) &",
your E-Mail Id is "& trim(rs_view1(1)) &"
 
To activate Mex Nepal News Letter Subscription please Click Here
 
(or) copy and paste the following link in your browser http://www.mexnepal.com/webpages/newsletter_active.asp?id="&rs_view1(0)&"&emailid="&rs_view1(1)&"
 
 
" msgsubject1="MexNepal - Newsletter Signup" mailfrom1="info@mexnepal.com" mailfromname1="MexNepal" mailto1=trim(rs_view1(1)) mailtoname1="MexNepal" mailBCC1="graphics@kappsoft.com" dim hasSent1 ' response.Write(msg1) hasSent1=sendMail(msg1,msgsubject1,mailfrom1,mailfromname1,mailto1,mailtoname1,mailBCC1) isTab=false responseStr=""&rschkuser(2)&" email subscribed already. But not activated yet. Please check your e-mail for activation.
Activation link is sent to your email again." else set rs_reactive=Server.CreateObject("ADODB.Recordset") rs_reactive.CursorType=3 sql_reactive="select * from newsletter_subscribe where email='"& emailStr &"' and readstatus=2" rs_reactive.Open sql_reactive,dbconn if rs_reactive.RecordCount>0 then ' 5- if -open set rs_view2=Server.CreateObject("ADODB.Recordset") rs_view2.CursorType=3 sql_view2="select sub_no, email, firstname from newsletter_subscribe where email='"& emailStr &"'" rs_view2.Open sql_view2,dbconn msg2="" msg2=msg2 & "" msg2=msg2 & "" msg2=msg2 & "" msg2=msg2 & "" msg2=msg2 & "" msg2=msg2 & "" msg2=msg2 & "" msg2=msg2 & "" msg2=msg2 & "" msg2=msg2 & "" msg2=msg2 & "" msg2=msg2 & "
 
Hi "& trim(rs_view2(2)) &",
your E-Mail Id is "& trim(rs_view2(1)) &"
 
To activate Mex Nepal News Letter Subscription please Click Here
 
(or) copy and paste the following link in your browser http://www.mexnepal.com/webpages/newsletter_active.asp?id="&rs_view2(0)&"&emailid="&rs_view2(1)&"
 
 
" msgsubject2="MexNepal - Newsletter Signup" mailfrom2="info@mexnepal.com" mailfromname2="MexNepal" mailto2=trim(rs_view2(1)) mailtoname2="MexNepal" mailBCC2="graphics@kappsoft.com" dim hasSent2 ' response.Write(msg2) hasSent2=sendMail(msg2,msgsubject2,mailfrom2,mailfromname2,mailto2,mailtoname2,mailBCC2) isTab=true responseStr="Thankyou for subscribing to MexNepal Newsletter service again.
Please check your e-mail for activation.
Activation link is sent to your email. " else isTab=false responseStr=""&rschkuser(2)&" email is already subscribed
to our newsletter service.
Please subscribe with a new email id." end if ' 5- if -close end if ' 4- if -close end if ' 3- if -close else isTab=true responseStr=""&Session("subscrbeemail")&" email is already subscribed to our newsletter service.
Please subscribe with a new email id." end if ' 2- if -close else Session("subscrbeemail")="" isTab=false End if ' 1- if -close %>
View Sample
<% if isTab=false then%> <%If Len(GeoCountryVal)=0 Then %> <%End if%> <% end if%> <%if isTab=true then%> <%end if%>
<%=responseStr%>
Name* :

 

E-Mail* :
 
<%=responseStr%>
 
New Subscription
             
      Clearing Members      
 
Arrow
 
Date Title View
<%=archiveDateStr(0)%> <%=archiveTitleStr(0)%> View


      Non-Clearing Members      
 
Arrow
 
 
No. Date Title View
<% if Ubound(archiveFileNameStr)-1=0 then%>
Not found
<%end if%> <% Dim i Dim bgColorVal For i=1 to Ubound(archiveFileNameStr)-1 classname="Ncm_members_main_list2" If i mod 2=1 Then classname="Ncm_members_main_list1" end if %> <% Next %>
<%=i%>  <%=archiveDateStr(i)%>  <%=archiveTitleStr(i)%> View
 
 
Comments Entry Form * Mandatory
<% Dim selArchiveTitleStr,txtNameStr,txtEmailStr,countryStr,txtCommentsStr Dim IsStored,responseStrc Dim tmpCountryName,tmpRegionName,tmpCityName,ipAddressVal Dim styleleft,styleright,styleend Dim hasSent1234 responseStrc="" If Ucase(Trim(Request.ServerVariables("REQUEST_METHOD")))="POST" and session("commentsName")="" Then selArchiveTitleStr=Trim(Request.Form("selArchiveTitle")) txtNameStr=Trim(Request.Form("txtName")) txtEmailStr=Trim(Request.Form("txtEmail")) countryStr=Trim(Request.Form("selCountry")) txtCommentsStr=Trim(Request.Form("txtComments")) ipAddressVal=Request.ServerVariables("REMOTE_ADDR") tmpCountryName=Trim(Request.Form("cnn")) tmpRegionName=Trim(Request.Form("rgn")) tmpCityName=Trim(Request.Form("cyn")) if selArchiveTitleStr="" Then responseStrc="Select your archive title
" if txtNameStr="" then responseStrc="Enter your name
" if txtEmailStr="" then responseStrc=responseStrc & "Enter your email ID
" if countryStr="" then responseStrc=responseStrc & "Select your country
" If txtCommentsStr="" Then responseStrc=responseStrc & "Enter your comments
" dim spamStop1,hasMailSent123 spamStop1 = trim(request.form("EmailAddress")) if spamStop1 <> "" then ' hasMailSent123=sendMail("routed from mexnepal-"&request.form("EmailAddress"),"routed from mexnepal - Market Alert","info@mexnepal.com","MexNepal","venkat@kappsoft.com","venkat","") responseStrc=responseStrc&"
Invalid Entry" end if if responseStrc="" then If Request.Form("txtChar") <> Session("captcha_code") Then ErrStr="Your Image character is not valid, Please try again" SuccessStr=False else SuccessStr=True end if end if end if If SuccessStr=True Then set dbconn=getDB() sql="insert into market_alert (archive_title, firstname, email_id, country, comments, entry_date, ipaddress) values('"& fixQuotes(selArchiveTitleStr) &"', '"& fixQuotes(txtNameStr) &"','"& fixQuotes(txtEmailStr) &"','"& fixQuotes(countryStr) &"','"& fixQuotes(txtCommentsStr) &"','"& Now() &"','"& ipAddressVal &"')" dbconn.execute(sql) session("commentsName")=txtNameStr styleleft="" styleright="" styleend="" msg="" msg=msg &"" msg=msg &"" msg=msg &"" msg=msg &"" msg=msg &"" msg=msg &"" msg=msg &"" msg=msg &"" msg=msg &"" msg=msg &"" msg=msg &"" msg=msg &"" msg=msg &"
 
Market Alert Comments - Mex Nepal
 
"& styleleft &" Archive Title :"& styleend &""& styleright &""& selArchiveTitleStr &""& styleend &"
"& styleleft &"Name :"& styleend &""& styleright &""& txtNameStr &""& styleend &"
"& styleleft &"Email :"& styleend &""& styleright &""& txtEmailStr &""& styleend &"
"& styleleft &"Country :"& styleend &""& styleright &""& countryStr &""& styleend &"
"& styleleft &"Comments :"& styleend &""& styleright &""& txtCommentsStr &""& styleend &"
"& styleleft &" Submitted Date & Time :"& styleend &""& styleright &""& Now() &""& styleend &"
"& styleleft &" Submitted IP Address :"& styleend &""& styleright &""& ipAddressVal &""& styleend &"
"& styleleft &" Submitted Location :"& styleend &""& styleright &""& tmpCountryName & "-" & tmpRegionName & "-" & tmpCityName &""& styleend &"
 
" msgsubject="Market Alert Comments - MexNepal" mailfrom="info@mexnepal.com" mailfromname="MexNepal" mailto="info@mexnepal.com" mailtoname="MexNepal" mailBCC="venkat@kappsoft.com" hasSent1234=sendMail(msg,msgsubject,mailfrom,mailfromname,mailto,mailtoname,mailBCC) isStored=True ElseIf Ucase(Trim(Request.ServerVariables("REQUEST_METHOD")))="POST" and session("commentsName")<>"" Then txtNameStr="" txtEmailStr="" countryStr="" txtCommentsStr="" ipAddressVal="" isStored=True Else session("commentsName")="" End if %> <%if isStored=true then%>
Submission Successful.

Thank you for your comments.
<%Else %>
<%=responseStrc%>
All fields are mandatory
Archive Title :
Name:

 

E-mail:
Country:
Your Comments:
 Enter the code:
 (Case sensitive)
  <%=errStr%> 
 
<%If Trim(Request.Form("selCountry"))<>"" Then %> <% Else%> <%End If End if %>
 
<% Private Sub getArchiveContents() Dim arrRowCnt,cntVal Dim folderPathStr Dim tempArchiveFileNameStr Dim tempArchiveTitleStr Const adInteger = 3 Const adDate = 7 Const adVarChar = 200 arrRowCnt=0 Dim objFS,objFile,objFolder Dim rsFSO folderPathStr=Server.MapPath("../webimages/nl/") Set rsFSO = Server.CreateObject("ADODB.Recordset") Set objFS = Server.CreateObject("Scripting.FileSystemObject") If objFS.FolderExists(folderPathStr)=True Then Set objFolder = objFS.GetFolder(folderPathStr & "/") rsFSO.Fields.Append "archiveFileName", adVarChar, 250 rsFSO.Fields.Append "archiveDate",adVarChar, 250 rsFSO.Fields.Append "archiveTitle", adVarChar, 250 rsFSO.Fields.Append "archiveFileNo", adInteger rsFSO.Open For Each objFile in objFolder.Files If lcase(Right(objFile.Name,4)) = ".txt" then rsFSO.AddNew tempArchiveFileNameStr=Lcase(Trim(objFile.Name)) rsFSO("archiveFileName") = tempArchiveFileNameStr rsFSO("archiveDate") = getArchiveDate(tempArchiveFileNameStr) tempArchiveTitleStr=getFileContents(tempArchiveFileNameStr) rsFSO("archiveTitle") = tempArchiveTitleStr rsFSO("archiveFileNo") = Mid(tempArchiveFileNameStr,3,8) rsFSO.Update arrRowCnt=arrRowCnt+1 End if Next set objFS=nothing rsFSO.Sort = "archiveFileName DESC " Redim archiveFileNameStr(arrRowCnt) Redim archiveTitleStr(arrRowCnt) Redim archiveDateStr(arrRowCnt) Redim archiveFileNoStr(arrRowCnt) cntVal=0 While Not rsFSO.EOF fileNameStrVal=Lcase(Trim(rsFSO("archiveFileName").Value)) archiveFileNameStr(cntVal)=fileNameStrVal archiveTitleStr(cntVal)=Trim(rsFSO("archiveTitle").Value) archiveDateStr(cntVal)=Trim(rsFSO("archiveDate").Value) archiveFileNoStr(cntVal)=Trim(rsFSO("archiveFileNo").Value) cntVal=cntVal+1 rsFSO.MoveNext() Wend rsFSO.close() Set rsFSO = Nothing End If End Sub Function getFileContents(argDownFileNameStr) Dim titleTexts Dim objFSO Dim objStream Dim fileExtStr argDownFilePathStr=Server.MapPath("..\webimages\nl\") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTextStream = objFSO.OpenTextFile(argDownFilePathStr & "\" & argDownFileNameStr,1) titleTexts = objTextStream.ReadAll objTextStream.Close Set objFSO = Nothing getFileContents=titleTexts End Function Function getArchiveDate(fileNameStr) Dim tempDateStr Dim yearVal,monthVal,dayVal yearVal=Mid(fileNameStr,3,4) monthVal=arrMonthName(Cint(Mid(fileNameStr,7,2))) dayVal=Cint(Mid(fileNameStr,9,2)) tempDateStr=dayVal & " "& monthVal& ", "& yearVal getArchiveDate=tempDateStr End Function %>