home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Java / ScriptBuilder / NOSB30_TRIAL.exe / data1.cab / Program_Files / Sample / Asp / DATABASE.ASP next >
Encoding:
Text File  |  1998-10-05  |  1.3 KB  |  53 lines
  1. <%
  2. '////////////////////////////////////////////////////////////////////
  3. '//                                                                //
  4. '//   NetObjects ScriptBuilder ASP Samples   //
  5. '//   Sample : Data Access using ADO           // 
  6. '//                                                                //
  7. '////////////////////////////////////////////////////////////////////
  8.  
  9. ' DESCRIPTION: This sample shows how to connect to a database,
  10. ' execute a SQL query, and then display the retrieved data.
  11. %>
  12.  
  13. <%
  14. ' To use a different DSN, table or where clause, just modify the values below.
  15.  
  16.      DSN = "PDP"
  17.      TableName = "Employee"
  18.      WhereClause = "EmailName = 'Sal'"
  19. %>
  20.  
  21. <HTML>
  22. <HEAD>
  23. <TITLE>Data Access Sample</TITLE>
  24. </HEAD>
  25. <BODY BGCOLOR=#FFFFFF>
  26. <H3>Data Access Sample</H3>
  27. <%
  28. Set Conn = Server.CreateObject("ADODB.Connection")
  29. Conn.Open DSN
  30. Set RS = Conn.Execute("SELECT * FROM " & TableName & " WHERE " & WhereClause)
  31. %>
  32. <P>
  33. <TABLE>
  34. <TR BGCOLOR="blue">
  35. <% For i = 0 to RS.Fields.Count - 1 %>
  36.      <TD><B><% = RS(i).Name %></B></TD>
  37. <% Next %>
  38. </TR>
  39. <% Do While Not RS.EOF %>
  40.      <TR BGCOLOR="yellow">
  41.      <% For i = 0 to RS.Fields.Count - 1 %>
  42.           <TD VALIGN=TOP><% = RS(i) %></TD>
  43.      <% Next %>
  44.      </TR>
  45.      <%
  46.      RS.MoveNext
  47. Loop
  48. RS.Close
  49. Conn.Close
  50. %>
  51. </TABLE>
  52. </BODY>
  53. </HTML>