|
-
simple? asp load variables
Greetings
I'm trying to load some variables from an asp page.
The asp page looks like this:
PHP Code:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/cnnNewFreeway.asp" -->
<%
Dim rsTest__MMColParam
rsTest__MMColParam = "49"
If (Request("MM_EmptyValue") <> "") Then
rsTest__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsTest
Dim rsTest_numRows
Set rsTest = Server.CreateObject("ADODB.Recordset")
rsTest.ActiveConnection = MM_cnnNewFreeway_STRING
rsTest.Source = "SELECT ContentID, Title, ShortDesc FROM dbo.Content WHERE ContentID = " + Replace(rsTest__MMColParam, "'", "''") + ""
rsTest.CursorType = 0
rsTest.CursorLocation = 2
rsTest.LockType = 1
rsTest.Open()
rsTest_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<p><%=(rsTest.Fields.Item("Title").Value)%> </p>
<p><%=(rsTest.Fields.Item("ShortDesc").Value)%> </p>
</body>
</html>
<%
rsTest.Close()
Set rsTest = Nothing
%>
And my flash movie, which has a dynamic text box on the root, with a of 'ShortDesc'
Heres the ActionScript i'm using:
loadVariablesNum("http://groundzero/freeway/test_asp.asp", 0, "GET");
But nothing is working, can anyone identify what I'm doing wrong?
-
To send variables to flash from the asp file, you need a 'Response.Write' statement.
<%
Dim test1
test1=400
Response.Write ("&varTest=" & test1)
%>
This will send the variable 'varTest' with a value of 400. Note that Flash might treat 400 as a string, not a number.
Always make sure that when you load variables, they are actually loaded before using them. Basically this means you can't use them
in the same keyframe where the loadvariables action is executed. You will have to perform some kind of loop that checks if varTest
excists.
This is a check, put in keyframe 3 of the main timeline. The first keyframe has a loadvariablesnum() action. The second keyframe is
blank.
if (varTest != null) {
//loaded - have some action here
trace(varTest)
} else {
not loaded - go back and check again
gotoAndPlay (2);
}
Note that a comparisson in an if() statement needs two equal signs '==' not one.
if (test1==400)
In this case:
if (number(varTest)==400)
Hope this helps.
light4u
Last edited by light4u; 03-25-2003 at 11:35 AM.
Design & Marketing
http://www.dreamteammedia.com
-
Hi light4u
thanks for the reply
Tried your suggestion and it outputs 400 - so all ok there.
And I've changed my asp code to use response.write and the page is working fine, but its still not showing up in Flash.
So i guess the problem is with my flash code.
On the first frame I have
loadVariablesNum("http://groundzero/freeway/test_asp.asp", 0, "GET");
and I have a dynamic text box with the variable of Title
any ideas what I might be doing wrong?
-
Zip up your ASP code, databae and your .fla and mail it to me.
I will have a look and see what the problem is.
Last edited by light4u; 03-26-2003 at 12:03 PM.
Design & Marketing
http://www.dreamteammedia.com
-
Ok I have put a sample together.
FYI:
Most of the asp stuff I have learned has been from various websites and poeple on Flashkik.This example has been modified from http://www.zymotik.com.
Database: intranet.mdb
ASP Page 1: loadvalues.asp
ASP Page 2: config.asp
HTML: loadvariables.html
Flash: loadvariables.swf
My database is named intranet My table is named contentand looks like this:
Here is what my ASP code looks like. Although it is not nessacerry to use two ASP pages to call the variables from the database I am just using this an example to give you a better idea of what you can do.
ASP Page 1: config.asp
<%
' Things you can change:
' Just edit the variable values in this script...
' Name and path of your dabase (eg: "intranet.mdb")
databasefile = "data/intranet.mdb"
' Database username? You can leave it as just "" if blank. (eg: "" or "admin")
dbusername = ""
' Database Password? You can leave it as just "" if blank. (eg: "" or "password")
'
dbpassword = ""
'
' If you want to be emailed when someone makes an entry,
' insert your email address below. If you don't, leave it as ""
' (e.g: "till@itouchmedia.com" or "")
useremail = "youknowwho@youknwwho.com"
cst = "Provider=Microsoft.Jet.OLEDB.4.0;"
cst = cst & "Data Source="&server.mappath(databasefile)&";User Id="&dbusername&";Password="&dbpassword&";"
set conn = server.createobject("adodb.connection")
conn.open cst
%>
ASP Page 2: loadvalues.asp
<%@LANGUAGE="VBSCRIPT"%><!--#include file="config.asp" --><%
set content = Server.CreateObject("ADODB.Recordset")
'content.ActiveConnection = MM_contentdata_STRING
'content.Source = "SELECT ID, ShortDesc, Title, date FROM content ORDER BY date DESC"
content.CursorType = 0
content.CursorLocation = 2
content.LockType = 3
content.open "SELECT ID, ShortDesc, Title, date FROM content ORDER BY date DESC", conn
content_numRows = 0
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
' set the record count
content_total = content.RecordCount
' set the number of rows displayed on this page
If (content_numRows < 0) Then
content_numRows = content_total
Elseif (content_numRows = 0) Then
content_numRows = 1
End If
' set the first and last displayed record
content_first = 1
content_last = content_first + content_numRows - 1
' if we have the correct record count, check the other stats
If (content_total <> -1) Then
If (content_first > content_total) Then content_first = content_total
If (content_last > content_total) Then content_last = content_total
If (content_numRows > content_total) Then content_numRows = content_total
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (content_total = -1) Then
' count the total records by iterating through the recordset
content_total=0
While (Not content.EOF)
content_total = content_total + 1
content.MoveNext
Wend
' reset the cursor to the beginning
If (content.CursorType > 0) Then
content.MoveFirst
Else
content.Requery
End If
' set the number of rows displayed on this page
If (content_numRows < 0 Or content_numRows > content_total) Then
content_numRows = content_total
End If
' set the first and last displayed record
content_first = 1
content_last = content_first + content_numRows - 1
If (content_first > content_total) Then content_first = content_total
If (content_last > content_total) Then content_last = content_total
End If
%>
<%
' *** Move To Record and Go To Record: declare variables
Set MM_rs = content
MM_rsCount = content_total
MM_size = content_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter
if (Not MM_paramIsDefined And MM_rsCount <> 0) then
' use index parameter if defined, otherwise use offset parameter
r = Request.QueryString("index")
If r = "" Then r = Request.QueryString("offset")
If r <> "" Then MM_offset = Int(r)
' if we have a record count, check if we are past the end of the recordset
If (MM_rsCount <> -1) Then
If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last
If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If
' move the cursor to the selected record
i = 0
While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1))
MM_rs.MoveNext
i = i + 1
Wend
If (MM_rs.EOF) Then MM_offset = i ' set MM_offset to the last possible record
End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range
If (MM_rsCount = -1) Then
' walk to the end of the display range for this page
i = MM_offset
While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
MM_rs.MoveNext
i = i + 1
Wend
' if we walked off the end of the recordset, set MM_rsCount and MM_size
If (MM_rs.EOF) Then
MM_rsCount = i
If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
End If
' if we walked off the end, set the offset based on page size
If (MM_rs.EOF And Not MM_paramIsDefined) Then
If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
If ((MM_rsCount Mod MM_size) > 0) Then
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If
' reset the cursor to the beginning
If (MM_rs.CursorType > 0) Then
MM_rs.MoveFirst
Else
MM_rs.Requery
End If
' move the cursor to the selected record
i = 0
While (Not MM_rs.EOF And i < MM_offset)
MM_rs.MoveNext
i = i + 1
Wend
End If
%>
<%
' *** Move To Record: update recordset stats
' set the first and last displayed record
content_first = MM_offset + 1
content_last = MM_offset + MM_size
If (MM_rsCount <> -1) Then
If (content_first > MM_rsCount) Then content_first = MM_rsCount
If (content_last > MM_rsCount) Then content_last = MM_rsCount
End If
' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_kee pNone=""
' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links
MM_keepMove = MM_keepBoth
MM_moveParam = "index"
' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 0) Then
MM_moveParam = "offset"
If (MM_keepMove <> "") Then
params = Split(MM_keepMove, "&")
MM_keepMove = ""
For i = 0 To UBound(params)
nextItem = Left(params(i), InStr(params(i),"=") - 1)
If (StrComp(nextItem,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & "&" & params(i)
End If
Next
If (MM_keepMove <> "") Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If
' set the strings for the move to links
If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&"
urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = urlStr & "0"
MM_moveLast = urlStr & "-1"
MM_moveNext = urlStr & Cstr(MM_offset + MM_size)
prev = MM_offset - MM_size
If (prev < 0) Then prev = 0
MM_movePrev = urlStr & Cstr(prev)
%>
&atitle=<%=Server.URLEncode(content.Fields.Item("T itle").Value)%>&ashortdesc=<%=Server.URLEncode(con tent.Fields.Item("ShortDesc").Value)%>&adate=<%=Se rver.URLEncode(content.Fields.Item("date").Value)% >&ip=<%=Request.ServerVariables("REMOTE_ADDR")%>&s ervername=<%=Request.ServerVariables("REMOTE_HOST" )%>&remoteuser=<%Request.ServerVariables("REMOTE_U SER")%>&totalcount=<%=(content_total)%>&offset=<%= MM_offset + 1%><%
content.Close()
set content = Nothing
conn.Close()
Set conn = Nothing
%>
SEE FINISHED SAMPLE HERE
There you have it!
light4u
Design & Marketing
http://www.dreamteammedia.com
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|
Reply With Quote