<%randomize:max=1000:min=1:randno=Int((max-min+1)*Rnd+min)%>
Players Video Page
<%
playerid=request.querystring("playerid")
if request.form("form1")="true" then
username=request.form("uname")
password=request.form("pwd")
Set rsusers= Server.CreateObject("ADODB.Recordset")
rsusers.ActiveConnection = con_string
strlang="SELECT video_requested_users.username,video_requested_users.playerid, video_requested_users.pwd FROM video_requested_users WHERE (((video_requested_users.username)='"&username&"') AND ((video_requested_users.pwd)='"&password&"'));"
rsusers.Source = strlang
rsusers.CursorType = 0
rsusers.CursorLocation = 2
rsusers.LockType = 1
rsusers.Open()
if not rsusers.eof then
session("videouser")=rsusers("username")
u_playerid=playerid
Set rsVideoLink= Server.CreateObject("ADODB.Recordset")
rsVideoLink.ActiveConnection = con_string
strsql = "SELECT * from players where id="&u_playerid&";"
rsVideoLink.Source = strsql
rsVideoLink.CursorType = 0
rsVideoLink.CursorLocation = 2
rsVideoLink.LockType = 1
rsVideoLink.Open()
videolink=rsVideoLink("videofilename")
set rsVideoLink=nothing
session("usererror")="false"
else
session("videouser")=videolink
u_playerid=playerid
Set rsVideoLink= Server.CreateObject("ADODB.Recordset")
rsVideoLink.ActiveConnection = con_string
strsql = "SELECT * from players where id="&u_playerid&";"
rsVideoLink.Source = strsql
rsVideoLink.CursorType = 0
rsVideoLink.CursorLocation = 2
rsVideoLink.LockType = 1
rsVideoLink.Open()
videolink=rsVideoLink("videofilename")
set rsVideoLink=nothing
session("usererror")="false"
end if
set rsusers=nothing
end if
dim theuserid
theuserid=session("videouser")
if videolink<>"" then
%>