%@ Language=VBScript %> <% dim cnn dim rs dim sCounty dim sCity dim sDescription dim sKeywords dim lPKID dim sFriendly dim sConcat dim sLinks dim sTemp dim sCoast sCounty = Request.QueryString("County") sCity = Request.QueryString("City") if len(sCounty)>0 then '************************************************************************ COUNTY ****************************************************************************************************** sFriendly = replace(sCounty,"_"," ") Set cnn = Server.CreateObject("ADODB.Connection") cnn.Open "Driver={SQL Server};Server=(local);Database=apas_;Uid=dean;Pwd=parser;" set rs = Server.CreateObject("ADODB.Recordset") set rs.activeconnection = cnn rs.CursorType = 3 rs.LockType = 2 rs.open "SELECT * FROM tblCounty WHERE County='" & sCounty & "'" if rs.eof then If (rs.State = 1) Then rs.Close End If Set rs = Nothing If (cnn.State = 1) Then cnn.Close End If set cnn = nothing response.end else lPKID = rs("PKID") sCoast = rs("Coast") rs.close rs.open "SELECT * FROM tblCity WHERE FKID=" & lPKID do until rs.eof sTemp = replace(rs("Name"),"_"," ") if (len(sConcat)>0) then sLink = sLink & ", " & "" & sTemp & "" sConcat = sConcat & ", " & rs("Name") else sLink = "" & sTemp & "" sConcat = rs("Name") end if rs.movenext loop if (len(sConcat)>0) then sDescription = "Adam Preuss Property Appraisal Services provides residential and commercial real estate appraisals for " & _ sFriendly & _ " County on the " & sCoast & " Coast." sKeywords = "Appraiser, Appraisal, Real Estate Appraiser, Real Estate Appraisal, House Appraisal, Home Appraisal, Business Appraisal, Business Appraiser, Residential, Commercial, " & sFriendly & ", " & sFriendly & " County, Florida, FL" end if end if If (rs.State = 1) Then rs.Close End If Set rs = Nothing If (cnn.State = 1) Then cnn.Close End If set cnn = nothing %>
|
||||||||||
|
||||||||||
|
*** FHA APPROVED APPRAISERS ***
We appraise commercial and residential real estate in <% =sLink %> in <% =sFriendly %> County.
|
||||||||||
|
Home | Indian River | St. Lucie | Brevard All Right Reserved © 2007 |
|
||||||||||
|
||||||||||
|
*** FHA APPROVED APPRAISERS ***
We appraise <% =sFriendly %> commercial and residential real estate in <%=sCounty%> County.
|
||||||||||
|
Home | Indian River | St. Lucie | Brevard All Right Reserved © 2007 |