[^]HouseViewOnline.com MLS#<%=strfiletoload%> Guided Tour....

<% Response.buffer = True Dim strfiletoload,sortdata Dim objItem,objfilesysfilesys,objFolder,counter,Obj Dim txtfile, strstart, strLine, strmls, strprice, stragent, strLocation, strdesc Dim strbed, strbath, strgroup, strHZ, straddress, strpricecat, strpending Dim strimagestring,s,maxcounter,strimagestring2,t,maxcounter2 Dim stragentfirst,stragentlast, strrealitorabb,strrealitordesc,strgrouping,stremail,strbus,strres,strpgr counter = 1 strfiletoload = Request("MLSID") Set objfilesys = Server.CreateObject("Scripting.FileSystemObject") 'Get Home Information from Data Flat File-------------------------------------------------------------------- sortdata = Request.Querystring("MLSID") if sortdata = "" then sortdata = "999999999" end if Set txtfile = objfilesys.OpenTextFile(Server.MapPath("/images/homeproperty.txt")) Do While txtfile.AtEndOfStream <> TRUE strstart = Trim(Server.HTMLEncode(txtfile.ReadLine)) if strstart = "TRUE" then strLine = Trim(txtfile.ReadLine) strLine = Split(strLine, "|") If trim(strLine(0)) = sortdata then strmls = strLine(0) strprice = strLine(1) stragent = strLine(2) strLocation = strLine(3) strdesc = strLine(4) strgroup = strLine(5) strbed = strLine(6) strbath = strLine(7) strHZ = strLine(8) straddress = strLine(9) strpricecat = strLine(10) strpending = strLine(11) End if End If Loop txtfile.Close Set txtfile = Nothing 'Get Home Information from Data Flat File-------------------------------------------------------------------- 'Get Agent Information from Data Flat File------------------------------------------------------------------- Set txtfile = objfilesys.OpenTextFile(Server.MapPath("/database/agents.txt")) Do While txtfile.AtEndOfStream <> TRUE strstart = Trim(Server.HTMLEncode(txtfile.ReadLine)) if strstart = "TRUE" then strLine = Trim(Server.HTMLEncode(txtfile.ReadLine)) strLine = Split(strLine, "^") If strLine(2) = stragent 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 txtfile.Close Set txtfile = Nothing 'Get Agent Information from Data Flat File------------------------------------------------------------------- 'Get Inside Pictures array from trivista html file----------------------------------------------------------- If objfilesys.FileExists(Server.MapPath("/images/" & strfiletoload & "/INpgm.htm")) then strLine = "" Set txtfile = objfilesys.OpenTextFile(Server.MapPath("/images/" & strfiletoload & "/INpgm.htm")) Do While txtfile.AtEndOfStream <> TRUE strLine = Trim(txtfile.ReadLine) strLine = Replace(strLine,chr(13),"") If Instr(1,strLine," "" Then strimagestring = Split(strimagestring, "
") End if txtfile.Close maxcounter = ubound(strimagestring) Set txtfile = Nothing End if 'Get Inside Pictures array from trivista html file----------------------------------------------------------- 'Get Outside Pictures array from trivista html file---------------------------------------------------------- If objfilesys.FileExists(Server.MapPath("/images/" & strfiletoload & "/OUTpgm.htm")) then strLine = "" Set txtfile = objfilesys.OpenTextFile(Server.MapPath("/images/" & strfiletoload & "/OUTpgm.htm"),1, 0) Do While txtfile.AtEndOfStream <> TRUE strLine = Trim(txtfile.ReadLine) strLine = Replace(strLine,chr(13),"") If Instr(1,strLine," "" Then strimagestring2 = Split(strimagestring2, "
") End if txtfile.Close maxcounter2 = ubound(strimagestring2) Set txtfile = Nothing End if 'Get Outside Pictures array from trivista html file---------------------------------------------------------- Function FigurePayment(principal) Dim P 'Payment Dim I 'Interest Dim L 'Loan Term In Years Dim J Dim N Dim M 'Total of Loan Amount P = principal 'Interest Rate I = 7 'Loan term in years L = 30 'Calculate Monthly Interest J = I/(12 * 100) 'Length of loan in Months N = L * 12 'Now the magic..... M = P * ( J / (1 - (1 + J) ^ -N)) FigurePayment = FormatCurrency(Round(M, 2),0,0) End Function %> [^]HouseViewOnline.com MLS#<%=strfiletoload%> Guided Tour....