Flasher Archive

[Previous] [Next] - [Index] [Thread Index] - [Previous in Thread] [Next in Thread]


Subject: FLASH: Set up a site with cgi/asp for Flash?
From: Waldo Smeets
Date: Thu, 25 Nov 1999 14:28:26 GMT

Hi there,

does someone know a good site, or is someone willing to make one with me,
with good cgi scripts and asp scripts that can be used with your flash
movies?
As a non-asp and non-cgi programmer. I'm very interested in that stuff. Some
sites have some asp codes, why not putting them together in one site?
I would prefer some tutorials with it too!

In this list I've already found a script for counting hits and a script to
get the date in your movie.

I myself want to share a asp code as well. Please don't ask me how it works
cause I don't know, but it works!
Save the code in a file named store.asp.
It especially fine for not too many variables, the advantage is that you can
define the variables you want to store.

WATCH OUT

<%@ LANGUAGE="VBSCRIPT" %>
<%
'Open a FileSystem object
Set oFS = Server.CreateObject("Scripting.FileSystemObject")


bQueryString = False

If Len(Request.ServerVariables("QUERY_STRING")) > 0 Then
' GET
sFileName = Request.QueryString("filename")
bQueryString = True
Else
' POST
sFileName = Request.Form("filename")
End If

'We need a filename...
If Trim(sFileName) = "" Then
Response.Write("Error: No filename specified")
End If

bFirst = True
If bQueryString Then
'Open file and overwrite if it exists
Set oFile = oFS.CreateTextFile(sFileName, True)
For Each sFieldName IN Request.QueryString()
'Write all fields except 'filename'
If sFieldName <> "filename" Then
sValue = Request.QueryString(sFieldName)
If bFirst Then
oFile.Write(sFieldName&"="&sValue)
bFirst = False
Else
oFile.Write("&"&sFieldName&"="&sValue)
End If
End If
Next
oFile.Close
Else
Set oFile = oFS.CreateTextFile(sFileName, True)
For Each sFieldName IN Request.Form()
If sFieldName <> "filename" Then
sValue = Request.Form(sFieldName)
If bFirst Then
oFile.Write(sFieldName&"="&sValue)
bFirst = False
Else
oFile.Write("&"&sFieldName&"="&sValue)
End If
End If
Next
oFile.Close
End If
Set oFile = Nothing
Set oFS = Nothing

%>

Simply use this command in your flash movie:

On (Release)
Load Variables
("store.asp?filename=myvars.txt&myVar1="&/:myVar1&"&myVar2="&/:myAVar2&"&myv
arsEOF=1", 1)
End On

I'm wondering if there are more people that have these needs...
Waldo



flasher is generously supported by...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Streaming Media WEST '99 Conference & Exhibition
"The Worlds largest Internet Audio & Video Event"
December 7 - 9, San Jose Convention Center, California

Reserve your space today at http://www.streamingmedia.com
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
To unsubscribe or change your list settings go to
http://www.chinwag.com/flasher or email helpatchinwag [dot] com


[Previous] [Next] - [Index] [Thread Index] - [Next in Thread] [Previous in Thread]