I have an Access database that is searchable and the results go to a
new page where I'd like to show a map of the results. I started by
trying to put the javascript within the asp that generated the
results, but I only got one entry on the map (and only 1 map - I
originally thought I could get multiple maps per page.)

I have since learned that I need to generate xml from the database
results and create the map from that. But I'm having trouble with the
'loop' in asp. I know just enough asp to be dangerous (and I use
FrontPage database results wizard which to date has served me quite
well.)

The page with the problem is here: 
http://marksellsstlouis.net/analysis/search-by-area9.asp
(use the default search and you'll see the error message.) When I view
the page source (using Firefox), I get this error message:

Microsoft VBScript runtime error '800a01a8'
Object required: ''
/analysis/area-found-map9.asp, line 168

The database results and the loop are as follows:

    <!--#include file="_fpclass/fpdblib.inc"-->
    <%
    fp_sQry="SELECT * FROM MF2analysis WHERE ([Listing Price]
>= ::From:: AND [Listing Price] <= ::To:: AND [Unit 1-# of Bedrooms]
>= ::Bedrooms:: AND ([Type of Units Desc] LIKE '%::Type2::%') AND
([Area Desc] LIKE '%::Area2::%')) ORDER BY [Net Income] DESC,[Listing
Price] DESC"

    fp_sNoRecords="Sorry - no properties match your criteria today.
Please try another search or request a Custom Property Search."
    fp_sDataConn="mf2an-map"
    fp_iMaxRecords=256
    fp_iCommandType=1
    fp_iPageSize=5
    fp_fTableFormat=False
    fp_fMenuFormat=False
    fp_sMenuChoice=""
    fp_sMenuValue=""
    fp_iDisplayCols=33
    fp_fCustomQuery=True
    BOTID=0
    fp_iRegion=BOTID
    %>

    <%
    response.ContentType = "text/xml"
    fp_rs.MoveFirst
    response.write("<?xml version='1.0' encoding='ISO-8859-1'?>")
    response.Write objXmlDoc.xml
    response.Write("<data>")
    while (not fp_rs.EOF)
      response.write("<marker>")
      response.Write("<lat>" & fp_rs("latitude") & "</lat>")
      response.Write("<lng>" & fp_rs("longitude") & "</lng>")
      response.write("</marker>")
      response.Write("<addr>" & fp_rs("Address") & "</addr>")
      response.Write("<price>" & fp_rs("Listing Price") & "</price>")
      fp_rs.MoveNext
    wend
    response.Write("</data>")
    %>

    <!--#include file="_fpclass/fpdbrgn1.inc"-->
    <h1><%=FP_FieldVal(fp_rs,"Address")%></h1>
    ---content excluded for the sake of brevity---
    <p><%=FP_FieldVal(fp_rs,"Marketing Remarks")%></p>
    ---content excluded for the sake of brevity---
    <div style="clear:both;"></div>
                        <!--#include file="_fpclass/fpdbrgn2.inc"-->


Line 168 is "   fp_rs.MoveFirst"  but I believe that the loop is
probably my problem. Can anyone lend me a hand? Thanks so much for any
help you might offer!

Regards,
Penny
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups 
"Google Maps API" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to 
[email protected]
For more options, visit this group at 
http://groups.google.com/group/Google-Maps-API?hl=en
-~----------~----~----~----~------~----~------~--~---

Reply via email to