<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" Dim MM_conn_STRING MM_conn_STRING = "dsn=eClassifieds;" %> <% Dim rsDetail__MMColParam rsDetail__MMColParam = "0" if(Request.QueryString("HomeID") <> "") then rsDetail__MMColParam = Request.QueryString("HomeID") %> <% Dim rsDetail Dim rsDetail_numRows Set rsDetail = Server.CreateObject("ADODB.Recordset") rsDetail.ActiveConnection = MM_conn_STRING rsDetail.Source = "SELECT * FROM classads WHERE AD_ID = " + Replace(rsDetail__MMColParam, "'", "''") + "" rsDetail.CursorType = 0 rsDetail.CursorLocation = 2 rsDetail.LockType = 3 rsDetail.Open() rsDetail_numRows = 0 %> <% set rsBullets = Server.CreateObject("ADODB.Recordset") rsBullets.ActiveConnection = "dsn=Housing;" rsBullets.Source = "SELECT * FROM bullets WHERE HomeID = " + Request.Querystring("HomeID") rsBullets.CursorType = 0 rsBullets.CursorLocation = 2 rsBullets.LockType = 3 rsBullets.Open rsBullets_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsDetail_numRows = rsDetail_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 rsPhotos_numRows = rsBullets_numRows + Repeat2__numRows %> Trinity Realty
Residential Listings
Short-Term Housing
Los Alamos
 
Trinity Realty Trinity Realty
Representing the Finest Properties in Los Alamos


For Sale Listing # <%=(rsDetail.Fields.Item("AD_ID").Value)%>

<% if (rsdetail.Fields.Item("CAT_ID").Value) = "36" then ' Adv Conditional Region %>
<% if (rsdetail.Fields.Item("ad_image").Value) <> "nopic.jpg" then ' Adv Conditional Region %> " border="0"> <% end if ' (rsdetail.Fields.Item("ad_image").Value) <> "nopic.jpg" %> <% if (rsdetail.Fields.Item("image2").Value) <> "nopic.jpg" then ' Adv Conditional Region %> "border="0"> <% end if ' (rsdetail.Fields.Item("image2").Value) <> "nopic.jpg" %> <% if (rsdetail.Fields.Item("image3").Value) <> "nopic.jpg" then ' Adv Conditional Region %> "border="0"> <% end if ' (rsdetail.Fields.Item("image3").Value) <> "nopic.jpg" %> <% if (rsdetail.Fields.Item("image4").Value) <> "nopic.jpg" then ' Adv Conditional Region %> "border="0"> <% end if ' (rsdetail.Fields.Item("image4").Value) <> "nopic.jpg" %> <% if (rsdetail.Fields.Item("image5").Value) <> "nopic.jpg" then ' Adv Conditional Region %> "border="0"> <% end if ' (rsdetail.Fields.Item("image5").Value) <> "nopic.jpg" %>
<% end if ' (rsdetail.Fields.Item("CAT_ID").Value) = "36" %>

<%'begin Bullets if NOT rsBullets.EOF then%>
    <%While NOT rsBullets.EOF%>
  • <%=rsBullets("bulletinfo")%>
  • <% rsBullets.Movenext Wend%>
<%end if%> ">Click here for a printable flyer of this home

Description  
Address: <%=(rsDetail.Fields.Item("AD_ADDRESS").Value)%>  Size: <%=(rsDetail.Fields.Item("hsize").Value)%>  
City:
<%=(rsDetail.Fields.Item("AD_CITY").Value)%> 
Lot Size:
<%=(rsDetail.Fields.Item("lotsize").Value)%>
 
Neighborhood:
<%=(rsDetail.Fields.Item("neighborhood").Value)%>
Year Built:
<%=(rsDetail.Fields.Item("yearbuilt").Value)%>
 
Type
<%=(rsDetail.Fields.Item("stype").Value)%>
Bedrooms:
<%=(rsDetail.Fields.Item("sbedrooms").Value)%>
 
 
Baths: <%=(rsDetail.Fields.Item("sbaths").Value)%>  
 
Garage: <%=(rsDetail.Fields.Item("sgarage").Value)%>  
Asking Price:
 <%=(rsDetail.Fields.Item("AD_PRICE").Value)%>
<% 'put the right status image in there... Select Case LCase(rsDetail("status")) Case "sold" Response.Write("") Case "pending" Response.Write("") Case "reduced" Response.Write("") End Select %>
Basement: <%=(rsDetail.Fields.Item("basement").Value)%>  
    Heating: <%=(rsDetail.Fields.Item("heating").Value)%>  
    Cooling: <%=(rsDetail.Fields.Item("cooling").Value)%>  
    Roof: <%=(rsDetail.Fields.Item("roof").Value)%>  
Comments:  <%=(rsDetail.Fields.Item("AD_DESCRIPTION").Value)%>
   
       
Contact  
Name:
<%=(rsDetail.Fields.Item("cname").Value)%> 
Day Phone:
<%=(rsDetail.Fields.Item("dphone").Value)%> 
 
Address:
<%=(rsDetail.Fields.Item("SellerAddress1").Value)%> 
Evening Phone:
<%=(rsDetail.Fields.Item("ephone").Value)%> 
 
 
<%=(rsDetail.Fields.Item("SellerAddress2").Value)%> 
     
Email: <%if rsDetail("Email") <> "" and InStr(1,rsDetail("Email"),"@") <> 0 then%> <% end if %> <%if (rsDetail("mlsnum")<> "") Then if (rsDetail("mlsnum")<> "none") Then%>
MLS ID#:
<%else%>  <%end if%> <%else%>  <%end if%>
<%if rsDetail("mlsnum") <> "" then%><%if rsDetail("mlsnum") <> "none" then%><%=rsDetail("mlsnum")%><%else%> <%end if%><%else%> <%end if%>  
Website: "><%=(rsDetail.Fields.Item("AD_LINK").Value)%> 

 

   

PO Box 250 Los Alamos, NM 87544
(505) 662-0620
Hosted by Virtual Los Alamos
ŠTrinity Realty

<% rsDetail.Close() Set rsDetail = Nothing %>