Murray Associates - Eavesdropping Detection

<%@LANGUAGE="VBSCRIPT"%> <% Session("svUserName") = Request.Form("rfemail") %> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_connSpyClick_STRING MM_editTable = "clicks" MM_editRedirectUrl = "rl_default.asp" MM_fieldsStr = "rfname|value|rfemail|value|rfcompany|value|hiddenField|value" MM_columnsStr = "rfname|',none,''|rfemail|',none,''|rfcompany|',none,''|rfpi_id|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% set rsTmp = Server.CreateObject("ADODB.Recordset") rsTmp.ActiveConnection = MM_connSpyClick_STRING rsTmp.Source = "SELECT * FROM clicks" rsTmp.CursorType = 0 rsTmp.CursorLocation = 2 rsTmp.LockType = 3 rsTmp.Open() rsTmp_numRows = 0 %> <% Dim rsReferrer__MMColParam rsReferrer__MMColParam = "1" if (Request.QueryString("rfpi_id") <> "") then rsReferrer__MMColParam = Request.QueryString("rfpi_id") %> <% set rsReferrer = Server.CreateObject("ADODB.Recordset") rsReferrer.ActiveConnection = MM_connSpyClick_STRING rsReferrer.Source = "SELECT * FROM clicks WHERE rfpi_id = '" + Replace(rsReferrer__MMColParam, "'", "''") + "'" rsReferrer.CursorType = 0 rsReferrer.CursorLocation = 2 rsReferrer.LockType = 3 rsReferrer.Open() rsReferrer_numRows = 0 %> Murray Associates - Eavesdropping Detection


Eavesdropping Detection and Counterespionage Consulting for Business & Government Specialists in detecting… • audio eavesdropping • computer intercepts • video voyeurism • bugging / wiretapping • technical espionage • competitive intelligence Murray Associates PO Box 668 Oldwick, NJ 08858-0668 +1-908-832-7900 Services are available directly throughout North America. European Union services conducted in association with Security Counsellor Group. Services available in selected other countries via our network of local associates. Inquiries about engaging our eavesdropping detection and counterespionage consulting services are invited from corporate, government, and professional entities. Murray Associates is classified by US Government regulations for Federal procurement purposes as a Small Business. Use of this site indicates acceptance of Terms of Use, Linking, M2k and Privacy Statements. ©1996-2004, Kevin D. Murray (040306)

Welcome to The Home of
Eavesdropping Detection

• FAQ's, books, movies, history...
• Free protection advice for everyone
• Inspection services for business & government worldwide

Please sign in.
In return, we'll e-mail you a private link to
Common Eavesdropping Tools & Tricks
...you never considered!
This secret page is not accessible from anywhere else on our web site.

Your information will be kept absolutely private and confidential.

Name:
Email:
Company:

<% rsTmp.Close() %> <% rsReferrer.Close() %>