<!-- #include file="Datastore.asp" -->
<!-- METADATA TYPE="typelib" 
              FILE="C:\Program Files\Common Files\System\ado\msado15.dll" -->
<%
Dim strConnect, objConn, objRS, adOpenForwardOnly, adLockReadOnly, adCmdText, adoCon, strSQL1, strSQL2, strSQL3
strID = Request.QueryString("ID")
if strID = "" then strID = Request.Form("ID")
strSQL1 = "Select * From homes Where ID like '" & strID & "'"

Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject ("ADODB.Recordset") 
objConn.Open strConnect
objRS.Open strSQL1, objConn, adOpenStatic, adLockOptimistic, adCmdText
adddate = objRS("adddate")
addtime = objRS("addtime")
addusername = objRS("addusername")
addfirstname = objRS("addfirstname")
addlastname = objRS("addlastname")
shortnote = objRS("shortnote")
note = objRS("note")
location = objRS("location")
beds = objRS("beds")
bath = objRS("bath")
pic1 = objRS("pic1")
pic2 = objRS("pic2")
pic3 = objRS("pic3")
pic4 = objRS("pic4")
pic5 = objRS("pic5")
pic6 = objRS("pic6")
link = Request.Form("link")
email = Request.Form("email")
yearbuilt = objRS("yearbuilt")
mls = objRS("mls")
addy1 = objRS("addy1")
addy2 = objRS("addy2")
city = objRS("city")
state = objRS("state")
zip = objRS("zip")
squarefeet = objRS("squarefeet")
lotsize = objRS("lotsize")
garage = objRS("garage")
roof = objRS("roof")
heat = objRS("heat")
ac = objRS("ac")
exterior = objRS("exterior")
site = objRS("site")
elemschool = objRS("elemschool")
middleschool = objRS("middleschool")
highschool = objRS("highschool")
listprice = objRS("listprice")
maplink = objRS("maplink")

if shortnote = "" Then shortnote = "."
if note = "" Then note = "."
if location = "" Then location = "."
if beds = "" Then beds = "."
if bath = "" Then bath = "."
if pic1 = "" Then pic1 = "blankpic.gif"
if pic2 = "" Then pic2 = "blankpic.gif"
if pic3 = "" Then pic3 = "blankpic.gif"
if pic4 = "" Then pic4 = "blankpic.gif"
if pic5 = "" Then pic5 = "blankpic.gif"
if pic6 = "" Then pic6 = "blankpic.gif"
if link = "" Then link = "http://www.sellspokanehomes.com"
if email = "" Then email = "connie@sellspokanehomes.com"

strSQL2 = "Select * From featured Where ID like '2'"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject ("ADODB.Recordset") 
objConn.Open strConnect
objRS.Open strSQL2, objConn, adOpenStatic, adLockOptimistic, adCmdText
objRS("note")= shortnote
objRS("pic1")= pic1
objRS("listID")= strID
objRS.Update
objConn.Close   
Response.Redirect "homes.asp"
%>