Net-Trace: Add Your Site

<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1033 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("Database1_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "addsite", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(8) Dim arFormDBFields0(8) Dim arFormValues0(8) arFormFields0(0) = "title" arFormDBFields0(0) = "title" arFormValues0(0) = Request("title") arFormFields0(1) = "keywords" arFormDBFields0(1) = "keywords" arFormValues0(1) = Request("keywords") arFormFields0(2) = "yourname" arFormDBFields0(2) = "yourname" arFormValues0(2) = Request("yourname") arFormFields0(3) = "email" arFormDBFields0(3) = "email" arFormValues0(3) = Request("email") arFormFields0(4) = "description" arFormDBFields0(4) = "description" arFormValues0(4) = Request("description") arFormFields0(5) = "link" arFormDBFields0(5) = "link" arFormValues0(5) = Request("link") arFormFields0(6) = "password" arFormDBFields0(6) = "password" arFormValues0(6) = Request("password") arFormFields0(7) = "yourcompany" arFormDBFields0(7) = "yourcompany" arFormValues0(7) = Request("yourcompany") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "siteconfirm.htm" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Net-Trace: Add Your Site

Click here to get a Search Box for your site

Resource Menu

Search

Search Database

Categories

Investigation

Search Tools

Associated Fields

Reference Topics

Links of Interest

What's New

News

News Feed

Utilities

Add Your Site

Report Dead Link

Site Menu

Main Menu

Add Your Site to Net-Trace

Please Note: The form is for submissions to the Net-Trace resource area only.
We only accept listings relevant to the content of this site.
We DO NOT accept multiple listings from the same site.
All listings are checked manually.

To list an Investigation firm in the Directory, click here.. We do not accept Company listings in this area.

Added Note: We are presently revamping the site. All links entered here will be recorded in our database and become publicly available upon the launch of the updated site. We apologise for any inconvenience this may cause, but please don't let this stop you submitting your link - once only though please.

Site Name:

Site URL:

Description: (Max 255 chars.)

Keywords: (Max 255 chars.)

Your Name:

Your Email Address:

Your Company:

Your Password:



Home \| Feedback \| Contact Us \| About Us \| Advertising \| Link To Us \| Add Site Terms & Conditions of Use \| Contributors	Private Investigator
© Copyright 1998-2005 Net-Trace, All Rights Reserved.