home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Online_CD_214602362009.psc / IndianFunWorld / admin_cd.asp < prev    next >
Text File  |  2008-11-29  |  5KB  |  135 lines
  1. <%@language=VBScript%>
  2. <%Option Explicit%>
  3. <html>
  4. <head>
  5. <title>IndianFunWorld</title>
  6. <link href="style.css" rel="stylesheet" type="text/css" />
  7. <!--[if gte IE 5.5]>
  8. <script language="JavaScript" src="ie.js" type="text/JavaScript"></script>
  9. <![endif]-->
  10. </head>
  11. <body>
  12. <div id="header">
  13.       <img src="Images/banner.gif" width="1007" height="140" alt="" /></div>
  14.       <!-- end header -->
  15.       <br>
  16.         <%
  17.       if not(request.cookies("uname")="")then
  18.         response.write "<h4>Welcome to IndianFunWorld "& request.cookies("uname")  &"    <a href=Logout.asp>Logout</a>     <a href=setting.asp>Setting</a>"
  19.         response.write ""
  20.         response.write ""
  21.       else
  22.         response.write "<h4>Welcome to IndianFunWorld Guest</h4>"
  23.       End If
  24.       If not(request.cookies("uname")="")then
  25.           response.write"    <a href=cart.asp>View Cart</a>"
  26.       End If
  27.       If (request.cookies("uname")="admin")then
  28.           response.write"    <a href=admin.asp>Administration Tools</a></h3>"
  29.       End If
  30.       %>
  31. <form method=post action=search.asp>
  32. <input type=text name="searchname">
  33. <select name="type">
  34. <option>All</option>
  35. <option>CD</option>
  36. <option>DVD</option>
  37. </select>
  38. <select name="category">
  39. <option>All</option>
  40. <option>Movie</option>
  41. <option>Application</option>
  42. <option>Game</option>
  43. <option>Music</option>
  44. </select>
  45. <input type=Submit value="Search">
  46. </form>
  47. <div id="wrapper">
  48.       <dl id="browse">
  49.       <ul id="navmenu">
  50.   <li><a href="indexmain.asp">Home</a></li>
  51.   <li><a href="admin_cd.asp">Category +</a>
  52.     <ul>
  53.       <li><a href="admin_cd.asp">CD+</a>
  54.         <ul>
  55.           <li><a href="cd_movie.asp">Movie</a></li>
  56.           <li><a href="cd_app.asp">Application</a></li>
  57.           <li><a href="cd_game.asp">Games</a></li>
  58.           <li><a href="cd_music.asp">Music</a></li>
  59.         </ul>
  60.       </li>
  61.       <li><a href="admin_cd.asp">DVD+</a>
  62.         <ul>
  63.           <li><a href="dvd_movie.asp">Movie</a></li>
  64.           <li><a href="dvd_app.asp">Application</a></li>
  65.           <li><a href="dvd_game.asp">Games</a></li>
  66.           <li><a href="dvd_music.asp">Music</a></li>
  67.         </ul>
  68.       </li>
  69.     </ul>
  70.   </li>
  71.       <li><a href="login.html">Login</a></li>
  72.       <li><a href="register.html">Register</a></li>
  73.       <li><a href="feedback.html">FeedBack!!!</a></li>
  74.         
  75.   <li><a href="Aboutus.html">About Us</a></li>
  76.   <li><a href="Contact.html">Contact Us</a></li>
  77. </ul>
  78. <!-- end navmenu -->
  79. </dl>
  80. <!-- end browse -->
  81.   <div id="inner">
  82.     <div id="body">
  83.       <div class="inner">
  84.       <br><br>
  85.       <%
  86.       dim conn,rec
  87.       dim query
  88.        set conn=Server.CreateObject("ADODB.Connection")
  89.        set rec=Server.CreateObject("ADODB.RecordSet")
  90.        conn.Open="Provider=Microsoft.Jet.oledb.4.0;Data Source=C:\Inetpub\wwwroot\IndianFunWorld\db1.mdb"
  91.        query="Select * from [Disc]"
  92.        rec.open query,conn
  93.        if rec.EOF then
  94.              response.write"<h3>Nothing in Disc Stock<br><br><a href=admin.asp>Click Here to Return on Administration Tools</a></h3>"
  95.              response.write"<br><br><br><br><br><br><br><br><br><br><br>"
  96.        Else
  97.              response.write"<form method=post action=edit_disc.asp><table border=2><tr>"
  98.              response.write"<td><h3>Select</h3></td>"
  99.              response.write"<td><h3>Disc Title</h3></td>"
  100.              response.write"<td><h3>Category</h3></td>"
  101.              response.write"<td><h3>Type</h3></td>"
  102.              response.write"<td><h3>Edit</h3></td>"
  103.              response.write"<td><h3>Delete</h3></td></tr>"
  104.              do while not rec.EOF
  105.                   response.write"<tr>"
  106.                   response.write"<td><input type=radio name=id value="& rec.Fields(0) &" </td>"
  107.                   response.write"<td><h3>"& rec.Fields(1) &"</h3></td>"
  108.                   response.write"<td><h3>"& rec.Fields(5) &"</h3></td>"
  109.                   response.write"<td><h3>"& rec.Fields(6) &"</h3></td>"
  110.                   response.write"<td><input type=Submit name=action value=Edit></td>"
  111.                   response.write"<td><input type=Submit name=action value=Delete></td></tr>"
  112.                   rec.movenext
  113.              loop
  114.              response.write"</table><br><br>"
  115.              response.write"<input type=Submit name=action value='Add Disc'>"
  116.              response.write"</form>"
  117.         End If
  118.       %>
  119.       
  120.       <br><br><br><br><br><br><br><br>
  121.      </div>
  122.     <!-- end inner -->
  123.     </div>
  124.     <!-- end body -->
  125.     <div class="clear"></div>
  126.     <div id="footer">  Best View on Mozilla FireFox at 1024X786 resolution.</div>
  127.     <!-- end footer -->
  128.   </div>
  129.   <!-- end inner -->
  130. </div>
  131. <!-- end wrapper -->
  132.  
  133. </body>
  134. </html>
  135.