ASP til php
Hej er der nogen der kan kode tette asp script om til et php script?<HTML>
<HEAD>
<TITLE>Goat4dinner's Flash Template</TITLE>
</HEAD>
<BODY bgcolor="#EEEEEE">
<%
Function GetUserOS()
strAgent = Request.Servervariables("HTTP_USER_AGENT")
arrAgent = Split(strAgent, ";")
For i = LBound(arrAgent) To UBound(arrAgent)
strOS = Trim(arrAgent(i))
If Not InStr(1, strOS, "win", vbTextCompare) = 0 Or _
Not InStr(1, strOS, "mac", vbTextCompare) = 0 Or _
Not InStr(1, strOS, "linux", vbTextCompare) = 0 Then
Exit For
End If
Next
'-- Replace for Mac_PowerPC og Mac_68000 --
strOS = Replace(strOS, "_", " ")
GetUserOS = Replace(strOS, ")", "")
End Function
%>
<% ip = request.ServerVariables("REMOTE_ADDR") %>
<% os = GetUserOS %>
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="middle">
<!-- URL's used in the movie-->
<!-- text used in the movie-->
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
WIDTH="779" HEIGHT="461" id="index" ALIGN="">
<PARAM NAME=movie VALUE="template.swf?userinformation=<%=ip%><BR><%=os%>">
<PARAM NAME=quality VALUE=high>
<PARAM NAME=scale VALUE=noscale>
<PARAM NAME=bgcolor VALUE=#EEEEEE>
<EMBED src="template.swf?userinformation=<%=ip%><BR><%=os%>" quality=high scale=noscale bgcolor=#EEEEEE WIDTH="779" HEIGHT="461" NAME="index" ALIGN=""
TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED>
</OBJECT></td>
</tr>
</table>
</BODY>
</HTML>
