Remax Achievers

<% Dim objFSO,objFileTextStream,objFileTextStream2,MyStream,Mssg,strHZ Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFileTextStream = objFSO.OpenTextFile(Server.MapPath("/database/agents.txt")) Dim sortdata '------------------------------------------------------- 'Agent Grouping code sortdata = 2 strpanotext = "In/Out" strstilltext = "Out" '------------------------------------------------------- %>
<% If objFSO.FileExists(Server.MapPath("/agents/agentlogos/2.jpg")) Then Response.Write("") Response.Write("

") Response.Write("") End if %>

<% Dim ststart,stLine,stagentfirst,stagentlast,strealitorabb,strealitordesc,stgrouping Dim stemail,stbus,stres,stpgr,dwStripe,bgcolor Dim strLine,strmls,strprice,stragent,strLocation,strpricecat,strbedroom Dim strbathroom,strpano,strpending,strstart,strcatgrpg,strgrouping,strtype,strdesc Do While objFileTextStream.AtEndOfStream <> TRUE ststart = Trim(Server.HTMLEncode(objFileTextStream.ReadLine)) if ststart = "TRUE" then stLine = Trim(Server.HTMLEncode(objFileTextStream.ReadLine)) stLine = Split(stLine, "^") If Trim(stLine(4)) = Trim(sortdata) then stagentfirst = stLine(0) stagentlast = stLine(1) strealitorabb = stLine(2) strealitordesc = stLine(3) stgrouping =stLine(4) stemail = stLine(5) stbus = stLine(6) stres = stLine(7) stpgr = stLine(8) Response.Write("") Response.Write("" & Chr(13)) If objFSO.FileExists(Server.mapPath("/agents/agentpics/" & Trim(strealitorabb) & ".jpg")) Then Response.Write("") Else Response.Write("") End if Response.Write("") Response.Write("" & Chr(13)) Response.Write("") Response.Write("" & Chr(13)) Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("" & Chr(13)) Set objFileTextStream2 = objFSO.OpenTextFile(Server.MapPath("/database/property.txt")) Do While objFileTextStream2.AtEndOfStream <> TRUE strstart = Trim(Server.HTMLEncode(objFileTextStream2.ReadLine)) if strstart = "TRUE" then strLine = Trim(Server.HTMLEncode(objFileTextStream2.ReadLine)) strLine = Split(strLine, "^") If trim(strLine(2)) = trim(strealitorabb) AND LCase(Trim(strLine(10))) <> "yes" then strmls = strLine(0) strprice = strLine(1) stragent = strLine(2) strLocation = strLine(3) strpricecat =strLine(4) strbedroom = strLine(5) strbathroom = strLine(6) strpano = strLine(7) strpending = strLine(8) strgrouping = strLine(9) strHZ = strLine(12) Select Case Int(strpricecat) Case 1,2,3 strtype = "Resd" Case 4 strtype = "Land" Case 5 strtype = "Com" End Select if dwStripe = "#ffffff" then dwStripe = "#f5f5f5" else dwStripe = "#ffffff" end if If strHZ = "yes" Then dwStripe = "#e5e5ca" End if if Trim(strpending) = "Yes" then bgcolor="Yellow" end if Response.Write("" & Chr(13)) if strpano = "Yes" then Response.Write(" ") else Response.Write(" ") end if Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) if strpending = "Yes" then Response.Write("" & Chr(13)) else Response.Write(" " & Chr(13)) end if If objFSO.FileExists(Server.MapPath("/ctrfiles/notes/" & strmls & ".txt")) Then Response.Write(" " & Chr(13)) else Response.Write(" " & Chr(13)) end if Response.Write("" & Chr(13)) If objFSO.FileExists(Server.MapPath("/ctrfiles/notes/" & strmls & "oh.txt")) Then Set MyStream=objFSO.OpenTextFile(Server.MapPath("/ctrfiles/notes/" & strmls & "oh.txt")) Mssg = MyStream.Readline Mssg = Split(Mssg, "|") Response.Write("" & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write("" & Chr(13)) Mystream.Close end if End if End If Loop objFileTextStream2.Close Response.Write("

") Response.Write("") Response.Write("		") Response.Write("" & Replace(stagentfirst,"-"," ") & " " & Replace(stagentlast,"-"," ") & "") Response.Write("		") Response.Write("") Response.Write("" & Replace(stagentfirst,"-"," ") & " " & Replace(stagentlast,"-"," ") & "'s Listings.. " & Replace(strealitordesc,"-"," ") & "") Response.Write("
") Response.Write("") Response.Write("				") Response.Write(" Bus: " & stbus & " ") Response.Write(" Res: " & stres & " ") Response.Write(" Pgr/Mbl: " & stpgr & " ") Response.Write(" Email: " & stemail & " ") Response.Write("") Response.Write("
Photos	Type	MLS#	Price	Bdrm	<Bath	Location	Notes
" & strpanotext & "	" & strstilltext & "	" & strtype & "	" & strmls & "	" & FormatCurrency(strprice,0,0) & "	" & strbedroom & "	" & strbathroom & "	" & strLocation & "---PENDING!	" & strLocation & "
	" & Mssg(4) & " " & Replace(Mssg(0), "+", " ") & " " & Mssg(2) & " " & Replace(Mssg(1), "+", " ") & " " & Mssg(5) & "

" & Chr(13)) Response.Write("

" & Chr(13)) end if end if Loop %>

<% objFileTextStream.Close Set objFSO = Nothing %>