|
|
|
|
<% Dim searchStr, MyConn, RS, i searchStr = Request.Form("strSearch") searchparcel = Request.Form ("ParcelSearch") searchowner = Request.Form ("OwnerSearch") Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open "Driver={SQL Server};" & _ "Server=orservi;" & _ "Database=TXD2KLIB;" & _ "Uid=pptaxconnect;" & _ "Pwd=oakridge" SQL = "SELECT * FROM OakRidgeParcels WHERE cmap2 = '" & searchStr & "' AND parcel2 = '" & searchparcel & "' ORDER BY cmap2" Set RS = MyConn.Execute(SQL) If searchStr <> "" Then If RS.BOF AND RS.EOF Then Response.Write " " & RS("owner") & " " Response.Write RS("owner2") & " " Response.Write RS("propaddr") & " " Response.Write "Old Tax Parcel: " & "" & RS("cmap2") & " " & RS("parcel2") & " " Response.Write "New Tax Parcel: " & RS("cmap") & " " & RS("gp") & " " & RS("parcel") & " " Response.Write "Deed Acres: "& "" & RS("dacres") & " " Response.Write "Appraised Value: " & "" & RS("aprval") & " " Response.Write "Assessed Amount: " & "" & RS("asmt") & " " RS.MoveNext WEND End If Else Response.Write " |