<% if request.querystring("loc")= "cpc" then %>


Cyberpunk in Cinema Movie List

" method="post">

<% if request.querystring("mode")= "search" then %> ">Show All <% else %>   <% end if %>
<% else %>

Cyberpunk Video List

" method="post">

<% if request.querystring("mode")= "search" then %> ">Show All <% else %>   <% end if %>
<% end if %> <% Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") 'Conn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ '"e:\Inetpub\wwwroot\hr\test\search\RNS.mdb;" & _ '"Persist Security Info=False;" Conn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ "d:\home\ftp\gargoyle\db\RNS.mdb;" & _ "Persist Security Info=False;" if request.querystring("mode") = "search" then txtSearchTerms = request.form("searchbox") searchTerms = split(txtSearchTerms," ",-1,1) for i = Lbound(searchTerms) to UBound(searchTerms) 'response.write i 'response.write searchTerms(i) & "
" title = title & "title LIKE '%" & Replace(searchTerms(i),"'", "''") & "%' OR " plot = plot & "plot LIKE '%" & Replace(searchTerms(i),"'", "''") & "%' OR " actor_1 = actor_1 & "actor_1 LIKE '%" & Replace(searchTerms(i),"'", "''") & "%' OR " actor_2 = actor_2 & "actor_2 LIKE '%" & Replace(searchTerms(i),"'", "''") & "%' OR " actor_3 = actor_3 & "actor_3 LIKE '%" & Replace(searchTerms(i),"'", "''") & "%' OR " next sql = "SELECT * FROM cpvideo WHERE " & title & " " & plot & " " & actor_1 & " " & actor_2 & " " & actor_3 & " plot = '12frg6576' ORDER by Year" 'response.write sql RS.Open sql, Conn 'dim searchquery 'searchquery = Replace(Request.Form("searchbox"), "'", "''") 'searchquery = Replace(searchquery," "," & OR & ") 'sql = "SELECT * FROM cpvideo WHERE title like '%"&searchquery&"%' OR plot like '%"&searchquery&"%' OR actor_1 like '%"&searchquery&"%' OR actor_2 like '%"&searchquery&"%' OR actor_3 like '%"&searchquery&"%' ORDER by Year" 'response.write sql 'RS.Open sql, Conn %>
<% if request.querystring("loc")= "cpc" then %> <% else %> <% end if %> <% If RS.BOF And RS.EOF Then Response.write "" Else while not RS.EOF if row_color=1 then cell_color = "#FFFFFF" row_color = 0 else cell_color = "#C0C0C0" row_color = 1 end if %> <% rs.movenext Wend rs.close end if %>
Movie TitleYearStarringPlot
Movie TitleYearStarringPlot
Your query returned no records
<% = rs("title") %><% = rs("year") %><% = rs("actor_1") %>
<% = rs("actor_2") %>
<% = rs("actor_3") %>
<% = rs("plot") %>
<% else select case request.querystring("sort") case "" sql = "select * from cpvideo order by year, title" case "title" sql = "select * from cpvideo order by title" case "rating" sql = "select * from cpvideo order by rating DESC, title" end select 'On Error Resume Next RS.Open sql, Conn 'If err.number <> 0 then 'response.write "There is an error with the CP video database, Please check back later" 'else %>
<% if request.querystring("loc")= "cpc" then %> <% else %> <% end if %> <% while not RS.EOF if row_color=1 then cell_color = "#FFFFFF" row_color = 0 else cell_color = "#C0C0C0" row_color = 1 end if %> <% rs.movenext Wend rs.close %>
">Movie Title">YearStarringPlot
">Movie Title">YearStarringPlot
<% = rs("title") %><% = rs("year") %><% = rs("actor_1") %>
<% = rs("actor_2") %>
<% = rs("actor_3") %>
<% = rs("plot") %>
<% 'end if end if %> <% if request.querystring("loc")= "cpc" then %>

Cyberpunk in Cinema <% else %>

Return to Resources <% end if %>