<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim video__MMColParam video__MMColParam = "1" If (Request.QueryString("id") <> "") Then video__MMColParam = Request.QueryString("id") End If %> <% Dim video Dim video_numRows Set video = Server.CreateObject("ADODB.Recordset") video.ActiveConnection = MM_Loja_STRING video.Source = "SELECT * FROM videos WHERE id = " + Replace(video__MMColParam, "'", "''") + "" video.CursorType = 0 video.CursorLocation = 2 video.LockType = 1 video.Open() video_numRows = 0 %> Untitled Document
<% if instrrev(ucase(video.Fields.Item("arquivo").Value), ".WMV") then %> " /> " width="<%=(video.Fields.Item("largura").Value)%>" height="<%=(video.Fields.Item("altura").Value)%>" autostart="True" type="application/x-mplayer2" pluginspage="http://www.microsoft.com/windows/mediaplayer/download/default.asp" name="WMPlay" transparentatstart="True" showcontrols="1" showdisplay="0" showstatusbar="1" animationatstart="0" filename="<%=(video.Fields.Item("arquivo").Value)%>" autosize="0"> <% elseif instrrev(ucase(video.Fields.Item("arquivo").Value), ".FLV") then %> &height=<%=(video.Fields.Item("altura").Value)%>&file=<%=(video.Fields.Item("arquivo").Value)%>&flashvars=&autostart=true&javascriptid=jstest&enablejs=true" width="<%=(video.Fields.Item("largura").Value)%>" height="<%=(video.Fields.Item("altura").Value)%>"> <% end if %>
<% video.Close() Set video = Nothing %>