PDA

View Full Version : php to asp

salud
01-19-2002, 04:34 AM
can someone help me changing these codes from PHP to ASP?

<?

switch ($ENum) {

case '1':
$goto = "Ecard1.swf?EcardText=".$EcardText;
$gotoFooter = "EcardFooter.swf?EcardText=".$EcardText."&EcardSelect=1";
$Dimensions = "WIDTH=700 HEIGHT=525";
$DimensionsFooter = "WIDTH=700 HEIGHT=250";
break;

case '2':
$goto = "Ecard2.swf?EcardText=".$EcardText;
$gotoFooter = "EcardFooter.swf?EcardText=".$EcardText."&EcardSelect=2";
$Dimensions = "WIDTH=700 HEIGHT=525";
$DimensionsFooter = "WIDTH=700 HEIGHT=250";
break;

case '3':
$goto = "Ecard3.swf?EcardText=".$EcardText;
$gotoFooter = "EcardFooter.swf?EcardText=".$EcardText."&EcardSelect=3";
$Dimensions = "WIDTH=700 HEIGHT=525";
$DimensionsFooter = "WIDTH=700 HEIGHT=250";
break;

case '4':
$goto = "Ecard4.swf?EcardText=".$EcardText;
$gotoFooter = "EcardFooter.swf?EcardText=".$EcardText."&EcardSelect=4";
$Dimensions = "WIDTH=700 HEIGHT=525";
$DimensionsFooter = "WIDTH=700 HEIGHT=250";
break;

case '5':
$goto = "Ecard5.swf?EcardText=".$EcardText;
$gotoFooter = "EcardFooter.swf?EcardText=".$EcardText."&EcardSelect=5";
$Dimensions = "WIDTH=700 HEIGHT=525";
$DimensionsFooter = "WIDTH=700 HEIGHT=250";
break;
}

?>
</head>

<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" rightmargin="0" marginheight="0" marginwidth="0">

<center>

<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"
<? print "$Dimensions";?>>
<PARAM NAME=movie VALUE="<? print "$goto";?>"> <PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#FFFFFF> <EMBED src="<? print "$goto";?>" quality=high bgcolor=#FFFFFF <? print "$Dimensions";?> TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></EMBED>
</OBJECT>

<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"
<? print "$DimensionsFooter";?>>
<PARAM NAME=movie VALUE="<? print "$gotoFooter";?>"> <PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#FFFFFF> <EMBED src="<? print "$gotoFooter";?>" quality=high bgcolor=#FFFFFF <? print "$DimensionsFooter";?> TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></EMBED>
</OBJECT>
</center>
</BODY>
</HTML>


-------------------
AND THIS

<?

$CreateEcard = date(U);

$filename = $CreateEcard.".txt";

$ToName = stripslashes($ToName);
$FromName = stripslashes($FromName);
$Greeting = stripslashes($Greeting);
$IntroMessage = stripslashes($IntroMessage);
$EndMessage = stripslashes($EndMessage);

$Today = (date ("l dS of F Y ( h:i:s A )",time()));

$Created="Ecard Created on $Today";

$EcardNum = $EcardSelect;

$EcardText = "ToName=$ToName&ToEmail=$ToEmail&FromName=$FromName&FromEmail=$FromEmail&Greeting=$Greeting&IntroMessage=$IntroMessage&Created=$Created";


$fp = fopen( "./dBText/$filename","w");
fwrite($fp, $EcardText, 10000);
fclose( $fp );


PS: I'm trying to change these codes so I can use this to send e-cards using ASP and Flash
thanks,
Salud
roele
01-19-2002, 07:36 AM
First part:
[small]
<%

SELECT CASE ENum

Case "1"
goto = "Ecard1.swf?EcardText="&EcardText
gotoFooter = "EcardFooter.swf"
EcardText="&EcardText&"&EcardSelect=1
Dimensions = "WIDTH=700 HEIGHT=525"
DimensionsFooter = "WIDTH=700 HEIGHT=250"
break

Case "2"
goto = "Ecard2.swf?EcardText="&EcardText
gotoFooter = "EcardFooter.swf?"
EcardText="&EcardText"&EcardSelect=2
Dimensions = "WIDTH=700 HEIGHT=525"
DimensionsFooter = "WIDTH=700 HEIGHT=250"
break
.
.
.
.
.
.
..
END SELECT
%>
salud
01-19-2002, 01:45 PM
This is it? for all that php we only need few lines for ASP?
What about the part that says "AND THIS", (after the broken line)that's actually another php page which works with the e-card as well

Thanks,
roele
01-20-2002, 12:35 PM
This was just the first part...... ;)
salud
01-20-2002, 04:28 PM
I'm wondering if you know the second part then


Thanks,
roele
01-20-2002, 04:56 PM
Yes i know perhaps, exept the stripslashes() but i think i figure it out.
I'll post you the rest when i've a few minutes free ;)
salud
01-20-2002, 05:13 PM
Super Thanks
roele
01-23-2002, 08:11 AM
second Part:


</head>

<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" rightmargin="0" marginheight="0" marginwidth="0">

<center>

<OBJECT classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"
<%=Dimensions"%>>
<PARAM NAME=movie VALUE="<%=goto%>"> <PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#FFFFFF> <EMBED src="<%=$goto%>" quality=high bgcolor=#FFFFFF <? print "$Dimensions";?> TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></EMBED>
</OBJECT>

<OBJECT classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"
<%=DimensionsFooter%>>
<PARAM NAME=movie VALUE="<%=gotoFooter%>"> <PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#FFFFFF> <EMBED src="<%=gotoFooter%>" quality=high bgcolor=#FFFFFF <%=DimensionsFooter%> TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></EMBED>
</OBJECT>
</center>
</BODY>
</HTML>
salud
01-23-2002, 02:36 PM
Tell me what's wrong with this...

SelectCard.asp
<%
Dim vENum
dim vEcardText
Dim vGoto
Dim vGotoFooter
Dim vDimensions
Dim vDimensionsFooter

vENum = Response.QueryString("ENum")
vEcardText = Response.QueryString("EcardText")

vGoto = "Ecard" & vEnum & ".swf?EcardText=" & _
Server.URLEncode(vEcardText)
vGotoFooter = "EcardFooter.swf?EcardText=" & _
Server.URLEncode(vEcardText) & "&EcardSelect=" & vEnum
vDimensions = "WIDTH=700 HEIGHT=525"
vDimensionsFooter = "WIDTH=700 HEIGHT=250"
%>


<head>
<title>selectcard</title></head>
<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" rightmargin="0"
marginheight="0" marginwidth="0">

<center>

<OBJECT classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.c
ab#version=5,0,0,0" <%Response.Write(vDimensions)%>
>
<PARAM NAME=movie VALUE="<%Response.Write(vGoto)%>">
<PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#FFFFFF>
<EMBED src="<%Response.Write(vGoto)%>"
quality=high bgcolor=#FFFFFF <%Response.Write(vDimensions)%>
TYPE="application/x-shockwave-flash"
PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?
P1_Prod_Version=ShockwaveFlash">
</EMBED>
</OBJECT>

<OBJECT classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.c
ab#version=5,0,0,0" <%Response.Write(DimensionsFooter)%>
>
<PARAM NAME=movie VALUE="<%Response.Write(vGotoFooter)%>">
<PARAM NAME=quality VALUE=high>
<PARAM NAME=bgcolor VALUE=#FFFFFF>
<EMBED src="<%Response.Write(vGotoFooter)%>"
quality=high bgcolor=#FFFFFF <%Response.Write(vDimensionsFooter)%>
TYPE="application/x-shockwave-flash"
PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?
P1_Prod_Version=ShockwaveFlash">
</EMBED>
</OBJECT>
</center>
</BODY>
</HTML>

ERROR:
ERROR:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Response.QueryString'

/ethnicity/flash/SelectCard.asp, line 9



SendCard.asp

<%

dim vCreateEcard
dim vFilename
dim vToName
dim vFromName
dim vGreeting
dim vIntroMessage
dim vEndMessage
dim vToday
dim vCreated
dim vEcardNum
dim vFSO
dim vTextFile

vCreateEcard = Now()

vFilename = CStr(vCreateEcard) & ".txt"

vToName = Server.URLEncode(vToName)
vFromName = Server.URLEncode(vFromName)
vGreeting = Server.URLEncode(vGreeting)
vIntroMessage = Server.URLEncode(vIntroMessage)
vEndMessage = Server.URLEncode(vEndMessage)

vCreated = "Ecard Created on " & CStr(Now())

vEcardNum = Request("EcardSelect")

vEcardText = "ToName=" & vToName & _
"&FromName=" & vFromName & _
"&FromEmail=" & Request("FromEmail") & _
"&Greeting=" & vGreeting & _
"&IntroMessage=" & vIntroMessage & _
"&Created=" & vCreated

Set vFSO = CreateObject("Scripting.FileSystemObject")
Set vTextFile = vFSO.CreateTextFile("./dBText/" & vFilename, True)
vTextFile.Write(vEcardText)
vTextFile.Close
Set vFSO = Nothing
%>

ERROR:
Microsoft VBScript runtime error '800a0035'

File not found

/ethnicity/flash/SendEcard.asp, line 38



Thanks,
tg
01-23-2002, 03:30 PM
i believe that should be
Request.QueryString()

request object is used to accuire data,
response is used to output or send or redirect.
salud
01-24-2002, 10:58 PM
Hey Roele,

What you think about these codes?


SelectCard.asp

<%
Dim vENum
dim vEcardText
Dim vGoto
Dim vGotoFooter
Dim vDimensions
Dim vDimensionsFooter

vENum = Request.QueryString("ENum")
vEcardText = Request.QueryString("EcardText")

vGoto = "Ecard" & vEnum & ".swf?EcardText=" & _
Server.URLEncode(vEcardText)
vGotoFooter = "EcardFooter.swf?EcardText=" & _
Server.URLEncode(vEcardText) & "&EcardSelect=" & vEnum
vDimensions = "WIDTH=700 HEIGHT=525"
vDimensionsFooter = "WIDTH=700 HEIGHT=250"
%>


<head>
<title>selectcard</title></head>
<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" rightmargin="0"
marginheight="0" marginwidth="0">

<center>

<OBJECT classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.c
ab#version=5,0,0,0" <%Response.Write(vDimensions)%>
>
<PARAM NAME=movie VALUE="<%Response.Write(vGoto)%>">
<PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#FFFFFF>
<EMBED src="<%Response.Write(vGoto)%>"
quality=high bgcolor=#FFFFFF <%Response.Write(vDimensions)%>
TYPE="application/x-shockwave-flash"
PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?
P1_Prod_Version=ShockwaveFlash">
</EMBED>
</OBJECT>

<OBJECT classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.c
ab#version=5,0,0,0" <%Response.Write(DimensionsFooter)%>
>
<PARAM NAME=movie VALUE="<%Response.Write(vGotoFooter)%>">
<PARAM NAME=quality VALUE=high>
<PARAM NAME=bgcolor VALUE=#FFFFFF>
<EMBED src="<%Response.Write(vGotoFooter)%>"
quality=high bgcolor=#FFFFFF <%Response.Write(vDimensionsFooter)%>
TYPE="application/x-shockwave-flash"
PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?
P1_Prod_Version=ShockwaveFlash">
</EMBED>
</OBJECT>
</center>
</BODY>
</HTML>



SendEcard.asp

<%

dim vCreateEcard
dim vFilename
dim vToName
dim vFromName
dim vGreeting
dim vIntroMessage
dim vEndMessage
dim vToday
dim vCreated
dim vEcardNum
dim vFSO
dim vTextFile

vCreateEcard = Now()

vFilename = Year(vCreateEcard) & "-" & _
Month(vCreateEcard) & "-" & _
Day(vCreateEcard) & ".txt"


vToName = Server.URLEncode(vToName)
vFromName = Server.URLEncode(vFromName)
vGreeting = Server.URLEncode(vGreeting)
vIntroMessage = Server.URLEncode(vIntroMessage)
vEndMessage = Server.URLEncode(vEndMessage)

vCreated = "Ecard Created on " & CStr(Now())

vEcardNum = Request("EcardSelect")

vEcardText = "ToName=" & vToName & _
"&FromName=" & vFromName & _
"&FromEmail=" & Request("FromEmail") & _
"&Greeting=" & vGreeting & _
"&IntroMessage=" & vIntroMessage & _
"&Created=" & vCreated

Set vFSO = CreateObject("Scripting.FileSystemObject")
Set vTextFile = vFSO.CreateTextFile(vFilename, True)
Dim vFile
Set vFile = vFSO.GetFile(vFilename)
vFile.Move("C:\Inetpub\wwwroot\mysite\flash\dBText\" & vFilename)

vTextFile.Write(vEcardText)
vTextFile.Close
Set vFSO = Nothing

Dim vToSubject
Dim vMessage

vToSubject = "You have received a Flash Ecard from " & vFromName
vMessage = vToName & ",<br>You have received a Flash card from " &
vFromName
& _
".<br>Click the following link to view your card:<br><br>" & _
"http://www.mysite.com/ecards/selectcard.asp?ecardtext=" & _
vCreateEcard & "&Enum=" & vEcardNum & "<br><br>----------------<br>"
& _
"Here is the message that was sent:<br>" & _
vToName & ",<br>" & vGreeting & "<br>" & vIntroMessage & "<br><br>-"
& _
vFromName & "<br><br><br>--------------------<br>" & _
"This card was sent from www.mysite.com/Ecards" & _
"<br><br>The Flash-dB Team."


%>