<% ' Property of and written by Adam Ford --> option explicit %> <% dim bolEdit boledit = false if not isempty(request.querystring("hid")) then bolEdit = true end if %> <% if bolEdit then response.write("") else response.write("") end if %> <% if boledit then %> <% dim strFilename dim strComments dim strMapLink dim intCID dim intCIID dim strAddress dim lonPrice dim intCTID dim intFBathrooms dim intHBathrooms dim intBedrooms dim strGarage dim intSFeet dim intSID bolEdit = true intHID = objRS("HID") strFilename = objRS("Filename") strComments = objRS("Comments") strMapLink = objRS("MapLink") intCID = objRS("CID") intCIID = objRS("CIID") strAddress = objRS("Address") lonPrice = objRS("Price") intCTID = objRS("CTID") intFBathrooms = objRS("FBathrooms") intHBathrooms = objRS("HBathrooms") intBedrooms = objRS("Bedrooms") strGarage = objRS("Garage") intSFeet = objRS("SFeet") intSID = objRS("SID") end if %>

" onSubmit="return checkupload(this)"> <% if boledit then %> <% if not(isnull(strFilename)) then %>

">

<% end if %> <% end if %>

<% if not(bolEdit) then %> <% end if %> <% if bolEdit then %> <% end if %> <% if request.cookies("HomeVestorsOfTampaBay")("Level")<=2 then %> <% else %> "> <% end if %> Filename of Picture Address > City <% while not objRS.EOF %> "<% if bolEdit and (intCIID=objRS("CIID")) then response.write(" selected") end if %>><%= objRS("name") %> <% objRS.movenext %> <% wend %> Bedrooms <% while not objRS.EOF %> "<% if bolEdit and (cstr(intBedrooms))=objRS("name") then response.write(" selected") end if %>><%= objRS("name") %> <% objRS.movenext %> <% wend %> Full Bathrooms <% while not objRS.EOF %> "<% if bolEdit and (cstr(intFBathrooms))=objRS("name") then response.write(" selected") end if %>><%= objRS("name") %> <% objRS.movenext %> <% wend %> Half Bathrooms - Select a Number - >1 >2 Garage Type <% while not objRS.EOF %> "<% if bolEdit and (cstr(strGarage))=objRS("name") then response.write("selected") end if %>><%= objRS("name") %> <% objRS.movenext %> <% wend %> Square Feet > Comments Anything over 255 characters will be truncated. No apostrophies will be accepted. <% if boledit then response.write(strComments) end if %> Map Link > Price > Category <% while not objRS.EOF %> "<% if bolEdit and (intCID=objRS("CID")) then response.write(" selected") end if %>><%= objRS("name") %> <% objRS.movenext %> <% wend %> Status <% while not objRS.EOF %> "<% if intSID=objRS("sid") then response.write("selected") end if %>><%= objRS("name") %> <% objRS.movenext %> <% wend %> Contact <% dim intSelected if request.cookies("HomeVestorsOfTampabay")("CTID") <> "" Then intSelected = cint(request.cookies("HomeVestorsOfTampabay")("CTID")) End If %> <% while not objRS.EOF %> "<% if bolEdit and (intCTID=objRS("CTID")) then response.write(" selected") else if objRS("ctid")=intSelected then response.write(" selected") end if %>><%= objRS("name") %> <% objRS.movenext %> <% wend %> <% intSelected = empty %> Indicates Required Fields

<% on error resume next if err.number <> 0 then dim strPage strPage = "dsp_houseform.asp" %> <% end if %> <% if bolEdit then intHID = empty strFilename = empty strComments = empty strMapLink = empty intCID = empty intCIID = empty strAddress = empty lonPrice = empty intCTID = empty intFBathrooms = empty intHBathrooms = empty intBedrooms = empty strGarage = empty intSFeet = empty intSID = empty end if intSelected = empty bolEdit = empty %>