home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 40 / IOPROG_40.ISO / SOFT / asp / SEARCH.ZIP / admin / forminsert.asp < prev    next >
Encoding:
Text File  |  2000-02-23  |  4.9 KB  |  126 lines
  1. <%
  2. response.buffer="true"
  3. %>
  4. <!---#INCLUDE FILE="config/config.asp"--->
  5. <!---#INCLUDE FILE="dbthemes.asp"--->
  6. <!---#INCLUDE FILE="themes/themes.asp"--->
  7. <%
  8. if Session("login") = "" then 
  9. response.redirect "admin.asp" 
  10. else
  11.  
  12. if Session("dbname") = "" then
  13.    response.redirect "../dbname.asp"
  14. else
  15. 'troubleshooting
  16. 'response.write Session("dbname")
  17. end if
  18.  
  19. user = Session("user")
  20. level = Session("level")
  21.  
  22.  
  23. logout = "<a href='login.asp?logout=y'>Log Out</a><font color='red'> ..</font>"
  24. logged = "<font face=Arial size=2>Logged in as:<font color=#FF0000><strong>" & user & "</strong>"
  25. logged = logged & "</font> Level: </font><font color=#FF0000 face=Arial size=2><strong>" & level
  26. end if
  27.  
  28. name = replace(request.form("name"),"'","''")
  29. link = replace(request.form("link"),"'","''")
  30. description = replace(request.form("description"),"'","''")
  31. keywords = replace(request.form("keywords"),"'","''")
  32. name = replace(request.form("name"),"''","''''")
  33. link = replace(request.form("link"),"''","''''")
  34. description = replace(request.form("description"),"''","''''")
  35. keywords = replace(request.form("keywords"),"''","''''")
  36.  
  37. username = Session("sname")
  38. userpass = Session("pass")
  39.  
  40.      Set conninsert = Server.CreateObject("ADODB.Connection")
  41.      conninsert.Open Session("dbname")
  42.  
  43. Set RS = conninsert.Execute("INSERT INTO search (name, link, description, keywords, dte, username, userpass) Values ('" & name & "', '" & link & "', '" & description & "', '" & keywords & "', '" & DATE & "', '" & username & "', '" & userpass & "');")
  44.  
  45. set RS = nothing
  46. conninsert.close
  47. set conninsert = nothing
  48.  
  49. sname = Session("name")
  50. slevel = Session("level")
  51. %>
  52. <html>
  53.  
  54. <head><%
  55. 'these meta tags can change
  56. %>
  57.  
  58. <meta name="AUTHOR"
  59. content="Rory Knowles - ASP bahamas / Administrator for Knowles Realty's Web Site at www.KnowlesRealty.com">
  60. <meta name="GENERATOR" content="Microsoft FrontPage 3.0">
  61. <meta name="KEYWORDS"
  62. content="bahamas, bahama, bahamas business, bahamas bahamas, bahamian, yellow, pages, business, realty, real, estate, bahama, islands, island, business, listings, directory, listing, ad, classified, advertisment, home, online, internet, web, web bahamas">
  63. <%
  64. 'keep these meta tags in for free distribution
  65. 'these are the distributors ad tags
  66. %>
  67. <meta http-equiv="ad1" content="<%= ad1 %>">
  68. <meta http-equiv="ad2" content="<%= ad2 %>">
  69. <meta http-equiv="ad3" content="<%= ad3 %>">
  70. <meta http-equiv="ad4" content="<%= ad4 %>">
  71. <style>
  72. <!--
  73.     SPAN {color:<%= getSiteFontColor() %>; background-color:<%= getSiteHighliteColor() %>}
  74. -->
  75. </style>
  76. <title>Search Engine - <%= title %></title>
  77. </head>
  78.  
  79. <body vlink="<%= getSiteBGVlink() %>" bgcolor="<%= getSiteBGColor() %>"
  80. link="<%= getSiteBGLink() %>">
  81. <!---#INCLUDE FILE="includes/headernorm.asp"--->
  82.  
  83. <table border="0" width="600" cellspacing="0" cellpadding="0" align="center">
  84.   <tr>
  85.     <td width="100%" valign="top" height="277"><table border="0" cellpadding="0"
  86.     cellspacing="0" width="600">
  87.       <tr>
  88.         <td width="100%" height="19" bgcolor="<%= getSiteTitleNameBGColor() %>" valign="middle"
  89.         colspan="2"><% = fontTagStart(3, getSiteFontColor(), Y, N, N) %>
  90. <p>  <%= titlename %><% = fontTagEnd(Y, N, N) %> </td>
  91.       </tr>
  92.       <tr>
  93.  <td height="19" bgcolor="<%= getSiteMainLinksBGColor() %>" valign="middle" width="305"><% = fontTagStart(2, getSiteFontColor(), Y, N, N) %>  <a href="addurl.asp">Add URL</a> | <a href="editurl.asp">Edit URL</a> | <a href="user_control.asp">Users</a> | <a href="theme.asp">Theme</a> | <%= logout %><% = fontTagEnd(Y, N, N) %></td>
  94.         <td height="19" bgcolor="<%= getSiteMainLinksBGColor() %>" valign="middle" width="295"><p align="right"><% = fontTagStart(2, getSiteFontColor(), Y, N, N) %><a href="admin.asp">ADMIN</a><% = fontTagEnd(Y, N, N) %><% = fontTagStart(2, "#FF8040", Y, N, N) %> ><% = fontTagEnd(Y, N, N) %><% = fontTagStart(2, "#008000", Y, N, N) %>> <% = fontTagEnd(Y, N, N) %><%= logged%> 
  95.  
  96. </td>
  97.       </tr>
  98.       <tr>
  99.         <td width="600" height="62" bgcolor="#FFFFFF" valign="middle" colspan="2"><!---#INCLUDE FILE="includes/banners.asp"---> </td>
  100.       </tr>
  101.       <tr>
  102.         <td width="600" bgcolor="<%= getSitePageNameBGColor() %>" valign="middle" colspan="2"><% = fontTagStart(3, getSitePageNameFontColor(), Y, N, N) %>
  103. <p> 
  104.         Utilities<% = fontTagEnd(Y, N, N) %></td>
  105.       </tr>
  106.       <tr>
  107.         <td width="100%" bgcolor="#FFFFFF" valign="middle" colspan="2"><p
  108.         align="center"><br>
  109.         <br>
  110. <% = fontTagStart(2, getSiteFontColor(), N, N, N) %>        Thank you. Your information has been submitted.<br>
  111.         <a href="addurl.asp">Click Here</a> to Add another link<% = fontTagEnd(N, N, N) %><br><br><br><br><br><br><br>
  112.         </td>
  113.       </tr>
  114.     </table>
  115.     </td>
  116.   </tr>
  117. </table>
  118. <!---#INCLUDE FILE="../includes/footer.asp"--->
  119.  
  120. <p><br>
  121. <br>
  122. <br>
  123. </p>
  124. </body>
  125. </html>
  126.