<% 'Connection String to MS Access File xDb_Conn_Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../database/mailinglist.mdb") & ";" %> <% Dim sIPAddress sIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If sIPAddress="" Then sIPAddress = Request.ServerVariables("REMOTE_ADDR") Response.Buffer = True 'get action a = Request.Form("a") If (a = "" OR IsNull(a)) Then key = Request.Querystring("key") If key <> "" Then a = "C" 'copy record Else a = "I" 'display blank record End If End If ' Open Connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str Select Case a Case "C": ' Get a record to display tkey = "" & key & "" strsql = "SELECT * FROM [emails] WHERE [ID]=" & tkey Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn If rs.EOF Then Response.Clear Response.Redirect "emailslist.asp" Else rs.MoveFirst ' Get the field contents x_Date = rs("Date") x_IPAddress = rs("IPAddress") x_Name = rs("Name") x_Email = rs("Email") End If rs.Close Set rs = Nothing Case "A": ' Add 'get fields from form x_ID = Request.Form("x_ID") x_Date = Request.Form("x_Date") x_IPAddress = sIPAddress x_Name = Request.Form("x_Name") x_Email = Request.Form("x_Email") tmpFld1 = x_Email If trim(tmpFld1) & "x" = "x" Then tmpFld1 = Null srchFld1 = replace(tmpFld1&"","'","''") srchFld1 = replace(srchFld1,"[","[[]") srchFld1 = "'" & srchFld1 & "'" strsql11 = "SELECT * FROM [emails] WHERE [email] = " & srchFld1 Set qrs1chk = conn.Execute(strsql11) If NOT qrs1chk.eof Then Response.write "This email is existing in our database" Response.write "
" Response.write "Please change it!" Response.end End If ' Open record strsql = "SELECT * FROM [emails] WHERE 0 = 1" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn, 1, 2 rs.AddNew tmpFld = Trim(x_IPAddress) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("IPAddress") = tmpFld tmpFld = Trim(x_Name) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("Name") = tmpFld rs("Email") = tmpFld1 rs.Update rs.Close Set rs = Nothing conn.Close Set conn = Nothing Response.Clear Response.Redirect "a_newsletterthanx.asp?name=" & x_Name End Select %> BQSM l Newsletter
  <% MM_authorizedUsers="" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then ' *** Show If User Not Logged In %>
   
       
<% End If ' *** Show If User Not Logged In %><% MM_authorizedUsers="" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If MM_grantAccess Then ' *** Show If User Logged In %>
Hi <%=Session("MM_Username")%>  l   Logout
<% End If ' *** Show If User Logged In %>
 
 
     
 
 
     
 
Home > BQSM Newsletter
BQSM Newsletter
Sign up for our newsletter on latest news and updates.
 
      
Enquiries
If you have any question regarding our newsletter, please e-mail us for details.