<%
if request.QueryString("id") ="" then
response.Redirect("http://www.mexnepal.com")
end if
if(request.QueryString("emailid")="") then
response.Redirect("http://www.mexnepal.com")
end if
set dbconn=getDB()
slStr=Trim(request.QueryString("id"))
emailStr=Trim(Request.QueryString("emailid"))
set rs_exist=Server.CreateObject("ADODB.Recordset")
rs_exist.CursorType=3
sql_exist="select * from newsletter_subscribe where email='"& emailStr &"' and sub_no ='"&slStr&"'"
rs_exist.Open sql_exist,dbconn
if(rs_exist.recordcount=0) then
response.Redirect("http://www.mexnepal.com/webpages/newsletter_subscribe.asp")
end if
%>
News Letter: Mercantile Exchange Nepal Limited: Online Commodities and Metal Trading in Nepal
Resources » News Letter
<%
set rs_check=Server.CreateObject("ADODB.Recordset")
rs_check.CursorType=3
sql_check="select * from newsletter_subscribe where email='"& emailStr &"' and readstatus=1"
rs_check.Open sql_check,dbconn
if rs_check.RecordCount=0 then
set rs_view=Server.CreateObject("ADODB.Recordset")
rs_view.CursorType=3
sql_view="update newsletter_subscribe set readstatus = 1 where email='"& emailStr &"' and sub_no = '"& slStr &"'"
dbconn.execute(sql_view)
responseStr="Thankyou for subscribing to MexNepal Newsletter service."
else
responseStr=""&emailStr&" email is already subscribed to our newsletter service. Please subscribe with a new email id.New Subcribtion"
end if
%>
