flash data integration:
I have built a flash movie, ASP page to declare the variables, ASP page to show
the flash movie and connected to a database. In the ASP page I have the
following code.
<!--#include file="Connections/connFlash.asp" -->
<%
Dim rsTest
Set rsTest = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM dbo.MyTable ORDER BY AreaName"
Const adLockReadOnly = 1
Const adOpenStatic = 1
Const adUseClient = 3
'Cursor Location
rsTest.CursorLocation = adUseClient
rsTest.Open sql, MM_connFlash_STRING, adOpenStatic, adLockReadOnly
rsTestTotal=rsTest.RecordCount
%>
<%
Counter = 1
While Not rsTest.EOF
%>
&areaID=<%=server.URLEncode(rsTest.Fields.Item("AreaID").Value)%>
&areaname=<%=server.URLEncode(rsTest.Fields.Item("AreaName").Value)%>
&areaintro=<%=server.URLEncode(rsTest.Fields.Item("AreaIntro").Value)%>
&counter=<%=Counter%>
&recordcount=<%=(rsTestTotal)%>
<%
Counter = Counter+1
rsTest.MoveNext
Wend
%>
<%
rsTest.Close()
Set rsTest = Nothing
%>
I have uploaded the and you can see the results
http://www.homematch.co.uk/flash/. It shows the tables unique ID, area name,
area description and also the number of rows in the recordset. All I want to
add are buttons that allow you to navigate through the recordset, can anyone
help me with this please!
Thanks,
James.
<!--#include file="Connections/connFlash.asp" -->
<%
Dim rsTest
Set rsTest = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM dbo.MyTable ORDER BY AreaName"
Const adLockReadOnly = 1
Const adOpenStatic = 1
Const adUseClient = 3
'Cursor Location
rsTest.CursorLocation = adUseClient
rsTest.Open sql, MM_connFlash_STRING, adOpenStatic, adLockReadOnly
rsTestTotal=rsTest.RecordCount
%>
<%
Counter = 1
While Not rsTest.EOF
%>
&areaID=<%=server.URLEncode(rsTest.Fields.Item("AreaID").Value)%>
&areaname=<%=server.URLEncode(rsTest.Fields.Item("AreaName").Value)%>
&areaintro=<%=server.URLEncode(rsTest.Fields.Item("AreaIntro").Value)%>
&counter=<%=Counter%>
&recordcount=<%=(rsTestTotal)%>
<%
Counter = Counter+1
rsTest.MoveNext
Wend
%>
<%
rsTest.Close()
Set rsTest = Nothing
%>