<% @ Language = vbscript EnableSessionState = False %> <% Option Explicit Response.Buffer = True %> <% Dim MLS,ID,RL MLS = Request.Querystring("MLS") ID = Request.Querystring("ID") RL = Request.Querystring("RL") Dim objFSO,objFileTextStream Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFileTextStream = objFSO.OpenTextFile(Server.MapPath("/database/agents.txt")) Dim strstart,stragentfirst,stragentlast,strrealitorabb,strrealitordesc,strgrouping Dim stremail,strbus,strres,strpgr,dwStripe,Foundbol Dim bgcolor,strLine,strmls,strprice,stragent,strLocation,strpricecat,strbedroom Dim strbathroom,strpano,strpending Do While objFileTextStream.AtEndOfStream <> TRUE strstart = Trim(Server.HTMLEncode(objFileTextStream.ReadLine)) if strstart = "TRUE" then strLine = Trim(Server.HTMLEncode(objFileTextStream.ReadLine)) strLine = Split(strLine, "^") If strLine(2) = RL then stragentfirst = strLine(0) stragentlast = strLine(1) strrealitorabb = strLine(2) strrealitordesc = strLine(3) strgrouping =strLine(4) stremail = strLine(5) strbus = strLine(6) strres = strLine(7) strpgr = strLine(8) end if end if Loop If objFSO.FileExists(Server.MapPath(MLS & ".txt" )) Then Dim objFolder3,objItem3 Dim count,i,showimage count = 0 Set objFolder3 = objFSO.GetFolder(Server.MapPath("/images/" & MLS & "/")) showimage = "/webimages/loadback.jpg" %>

Agent Notes for MLS#<%=MLS%>
<%=strrealitordesc%>
<% Dim MyTextfile Set MyTextfile = objFSO.OpenTextFile(Server.MapPath(MLS & ".txt" )) WHILE NOT MyTextFile.AtEndOfStream Response.Write(MyTextFile.ReadLine & Chr(10)) WEND MyTextFile.Close %>
Back		Next
View Inside
<% Response.Write("Contact:  " & stragentfirst & " " & stragentlast & " " & chr(13)) %>
<% Response.Write("Buisness:" & "  " & strbus & " " & chr(13)) Response.Write("Res:" & "  " & strres & " " & chr(13)) Response.Write("Pgr/Mbl:" & "  " & strpgr & " " & chr(13)) Response.Write("Email:" & "  " & stremail & " " & chr(13)) else Response.Write("No Notes currently added, or current record is missing") end if objFileTextStream.Close Set objFSO = Nothing %>

2000-2001 Houseviewonline.com