<% ' ****************do not modify the variables below****************** Dim GLKey Dim GLPage Dim GLCatCol Dim GLLPP Dim GLNW Dim GLPS Dim GLPQ Dim GLAS Dim Err Dim GLResult Dim GLCategory ' ******************************************************************** ' You may change the variables below to customize the look and feel of ' your links page ' ******************************************************************** ' This option defines the number of columns used to display categories GLCatCol = 2 ' This option defines the number of links displayed per page GLLPP = 25 ' This option defines whether links are opened in a new web browser window ' (1 = Yes, 0 = No) GLNW = 1 ' TThis option determines whether the search function is enabled ' for your links page (1 = Yes, 0 = No) GLAS = 1 ' ******************************************************************** ' *****Please DO NOT make any edits or changes to the code below****** ' ******************************************************************** GLKey = "1496-PRE5-LF2Q" GLPage = Request.ServerVariables("SCRIPT_NAME") GLPS = "&UserKey=" & GLKey & "&ScriptName=" & GLPage & "&CatCols=" & GLCatCol & "&LinksPerPage=" & GLLPP & "&OpenInNewWindow=" & GLNW & "&AllowSearch=" & GLAS GLPQ = Request.QueryString GLCategory = Request.QueryString("cnm") Function GetGotLinksData(HTTPQuery, PostStr, ByRef Resp, ByRef Er) Dim HttpReqObj Dim ComponentString Set HttpReqObj = Nothing On Error Resume Next Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5.1") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5") End If On Error Resume Next If HttpReqObj Is Nothing Then On Error Resume Next Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP.4.0") End If On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Microsoft.XMLHTTP") End If On Error Resume Next If HttpReqObj Is Nothing Then Er = "HTTP requests not supported." GetGotLinksData = False Else HttpReqObj.open "GET", "http://www.gotlinks.com/engine2.php?" & HTTPQuery & PostStr, false HttpReqObj.Send If HttpReqObj.status <> 200 Then Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'" GetGotLinksData = False Else Resp = ComponentString & HttpReqObj.responseText GetGotLinksData = True End If Set HttpReqObj = Nothing End If Else HttpReqObj.Open "GET", "http://www.gotlinks.com/engine2.php?" & HTTPQuery & PostStr, False HttpReqObj.Send If HttpReqObj.Status <> 200 Then Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText GetGotLinksData = False Else Resp = HttpReqObj.responseText GetGotLinksData = True End If End If End Function %> Family Law Divorce Attorney, Orange County - California <%=Category%> Partners
anaheim family law lawyer child custody
<% If GetGotLinksData(GLPQ, GLPS, GLResult, Err) Then Response.Write GLResult Else ' here we are just dumping error info to the page. You can clean this up to ' fit your site Response.Write Err End If %>
               
               
               
               
               

Attorney Home Page | Español | About Attorney | Lawyer Philosophy | Attorney Practice Areas | Contact the Attoreny | Law Resources/Links
Immigration Lawyer | Family Law Attorney | Wills & Trusts | Probate Lawyer | Attorney Links 1 2 3 4 | Attorney's Billing | Map to Office
site map


LEGAL RESOURCES / LINKS

ADD YOUR LINK / LINK TO US - RECIPROCATING LINKS

More additional law related/theme - reciprocal links - websites

LAW RESOURCES ESTABLISHED WITH LINKSMANAGER.COM
NO LONGER RECIPROCATING WITH THIS SYSTEM
TO RECIPROCATE WITH THIS SITE CLICK ON <<ADD A LINK>>

 

<<add a link>> to the reciprocal link pages listed below



Link Partners
© 2000 www.yanezlaw.com- All Rights Reserved
For a new or redesigned website contact : Caesar Yanez