<%@LANGUAGE="VBSCRIPT"%>


<!--#include file="../Connections/ConnReqEval.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
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")) = "evalrequest") Then

  MM_editConnection = MM_ConnReqEval_STRING
  MM_editTable = "RequestDetails"
  MM_editRedirectUrl = ""
  MM_fieldsStr  = "Method|value|FirstName|value|LastName|value|FirmName|value|email|value|Address1|value|Address2|value|City|value|StateProv|value|ZipPostal|value|Country|value|Phone|value|Fax|value|AttorneysOnStaff|value|TimeFrame|value|WhereLearnAboutAmicus|value|WhereLearnOther|value|TypeOfLaw|value|PDADevice|value|AccountingSoftware|value|EmailClientSoftware|value|Comments|value"
  MM_columnsStr = "Method|',none,''|FirstName|',none,''|LastName|',none,''|FirmName|',none,''|Email|',none,''|Address1|',none,''|Address2|',none,''|City|',none,''|State|',none,''|Zip|',none,''|Country|',none,''|Phone|',none,''|Fax|',none,''|Attorneys|',none,''|TimeFrame|',none,''|WhereLearn|',none,''|WhereLearnOther|',none,''|LawType|',none,''|PDA|',none,''|AccountingSoftware|',none,''|EmailClient|',none,''|Comments|',none,''"
  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_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

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_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
%>
<%
	if Request.Form("FFSubmitted") = "yes" then
		Dim BodyString
		Dim objCDO
		Dim RedirectURL
		Dim FormFields
		Dim arrFormFields
			FormFields = "Method~FirstName~LastName~FirmName~email~Address1~Address2~City~StateProv~ZipPostal~Country~Phone~Fax~AttorneysOnStaff~TimeFrame~WhereLearnAboutAmicus~WhereLearnOther~TypeOfLaw~PDADevice~AccountingSoftware~EmailClientSoftware~Comments"
			If FormFields <> "" Then
				arrFormFields = split(FormFields,"~")
			End If
	        Set objCDO = Server.CreateObject("CDONTS.NewMail") 
			objCDO.From = "Request.Form(email)"
			objCDO.To = "evalcd@amicusattorney.com"
			objCDO.Cc = ""
			objCDO.Bcc = ""
			objCDO.Subject = "URGENT - Free Trial Request from Amicus Website"	
			BodyString =  Replace("","~",chr(13) & chr(10) )& chr(13)
			If FormFields <> "" Then
				For Each item In arrFormFields
					BodyString = BodyString & item & ": " & Request.Form(item) & chr(13) & chr(13)
				Next
			End If
			objCDO.Body = BodyString
			objCDO.BodyFormat = 1
			objCDO.MailFormat = 1
			objCDO.Send
			Set objCDO = Nothing
			RedirectURL = "/forms/req_eval_response.html" 
			If RedirectURL <> "" then 
				If Request.QueryString <> "" Then
  					response.redirect(RedirectURL & "?" & Request.QueryString)
				else
					response.redirect(RedirectURL)
				end If
			end if
	end if
%>
<% MM_EditAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
  MM_EditAction = MM_EditAction & "?" & Request.QueryString
End If
%>
<html>
<HEAD>



<title>Amicus Attorney - FREE TRIAL</title>
<META NAME="description" CONTENT="Thank you for choosing to evaluation Amicus Attorney! If you chose to download the FREE 30 day evaluation copy of the software, you should receive your username and password to do so within 24 hours.Amicus Attorney-complete legal case management software that organizes client files, schedules appointments, manages to-do lists, tracks people/phone calls and records billable time. Free eval available.">
<META NAME="keywords" content="practice management,case management software, law office software, amicus attorney software, legal software,case management, docketing, relationship management, matter management practice management software, calendaring,amicus, ticklers, contact management, law office on computer, conflict of interest, dockets, docketing, time entry, client management">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
</HEAD>

<body bgcolor="#FFFFFF" onLoad="MM_goToURL('parent','/sales/sales_free_trial.asp');return document.MM_returnValue" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" link="#000066" alink="#000066" vlink="#CC3300">
<font size="2" face="Arial, Helvetica, sans-serif">
<!-- COPYRIGHT 1997-2001 WEBSIDESTORY, INC. ALL RIGHTS RESERVED. U.S.PATENT PENDING. Privacy notice at: http://websidestory.com/privacy -->
<!-- BEGIN WEBSIDESTORY CODE v6.5 -->
<script language="javascript">
var _pn="Forms+Req+Eval+HTML"; 	//page name(s)
var _mlc="Redirect";	//multi-level content category
var _cp="null"; 		//campaign
var _acct="WE5912078EVE94EN3"; 	//account number(s)
var _pndef="title"; 		//default page name
var _ctdef="full"; 		//default content category
var _dlf="n";			//download filter
var _elf="n";			//exit link filter
var _epg="n"; 			//event page identifier
var _hcv=65;			//code version
var _mn="wp124";			//machine name
var _gn="phg.hitbox.com";			//gateway name
function _wn(_nm){if((_nm.indexOf("NAME")>0&&_nm.indexOf("PUT")>=0)||
(_nm.indexOf("CONTENT")>=0&&_nm.indexOf("CATEGORY")>0))return true;return false;}
function _gd(_x,_w){_ed = (_x.lastIndexOf("/"));
_be = (_w!="full")?(_x.lastIndexOf("/",(_ed-2))):(_x.indexOf("/"));
_dn = (_be==_ed)?"/":(_x.substring(_be, _ed));return _dn;}
function _gf(_x){_ed = (_x.length);_be = ((_x.lastIndexOf("/"))+1);
_fn = (_x.substring(_be, _ed));return _fn;}
function _vc(_ml){_mll=_ml.length-1;if(_ml.lastIndexOf("/")==_mll){_ml=_ml.substring(0,_mll)}
if(_ml.indexOf("/")!=0){_ml="/"+_ml;}return _ml;}
function _ps(_ip,_pml){if(!_ip){_pml=(_wn(_pml))?_gd(location.pathname,_ctdef):_vc(_pml);}
else{if (_wn(_pml)){if (_pndef=="title"){_pt=document.title; if (_pt!=""){_pml=_pt};}
else{_pml=_gf(location.pathname);if (_pml==""){_pml=_pndef};}};}return _pml;}
function _pm(_ml,_fml,_ipn){if (_ml.indexOf(";")!=-1){_nml=_ml.substring(0,(_ml.indexOf(";")));
_rm=_ml.substring((_ml.indexOf(";")+1),_ml.length);_fml+=_ps(_ipn,_nml)+";";
_gp=_pm(_rm,_fml,_ipn);return _gp;}else {_fml+=_ps(_ipn,_ml);return _fml;}}
var _sv=10;var _bn=navigator.appName;if(_bn.substring(0,9)=="Microsoft"){_bn="MSIE";};
var _bv=(Math.round(parseFloat(navigator.appVersion)*100));if((_bn=="MSIE")&&(parseInt(_bv)==2))_bv=301;
var _rf=escape(document.referrer);_mlc=_pm(_mlc,"",false);_pn=_pm(_pn,"",true);
</script>
<script language="javascript1.1" id="_hbc">_sv=11;</script>
<script language="javascript1.1" defer src="http://a1604.g.akamai.net/f/1604/2007/1h/stats.hitbox.com/js/hbe.js"></script>
<script language="javascript">if (_sv==10){if (document.cookie.indexOf("CP=")!=-1){_ce="y";}else{
document.cookie="CP=null*; path=/; expires=Wed, 1 Jan 2020 00:00:00 GMT";
_ce=(document.cookie.indexOf("CP=")!=-1)?"y":"n";};if((_rf=="undefined")||(_rf=="")){_rf="bookmark";};
_x2="<img src='http://"+_gn+"/HG?hc="+_mn+"&hb="+escape(_acct)+"&n="+escape(_pn);
_x3="&cd=1&hv=6' border=0 height=1 width=1>";
_ar="&bn="+escape(_bn)+"&bv="+_bv+"&ce="+_ce+"&ss=na&sc=na&dt=&sv="+_sv+"&con="+escape(_ct);
_ar+="&vcon="+escape(_mlc)+"&epg="+_epg+"&hp=u&cy=u&ja=na&ln=na&cp="+escape(_cp)+"&pl=&rf="+_rf;
document.write(_x2+_ar+_x3);}document.write("<\!--");</script>
</font> 
<noscript>
<img src="http://phg.hitbox.com/HG?hc=wp124&cd=1&hv=6&ce=u&hb=WE5912078EVE94EN3&n=Forms+Req+Eval+HTML&vcon=Redirect" border='0' width='1' height='1'> 
</noscript>
<!--//-->
<!-- END WEBSIDESTORY CODE  -->
</body>
</html>