01.<% Option Explicit %>
02.<html>
03.<head>
04.<title>ThaiCreate.Com ASP & SQL Server Tutorial</title>
05.</head>
06.<body>
07.<%
08.Dim Conn,strSQL,objRec
09.Set Conn = Server.Createobject("ADODB.Connection")
10.Conn.Open "Driver={SQL Server};Server=localhost;Database=mydatabase;UID=sa;PWD=;"
11.strSQL = "SELECT TOP 2 * FROM customer ORDER BY NEWID() "
12.Set objRec = Server.CreateObject("ADODB.Recordset")
13.objRec.Open strSQL, Conn, 1,3
14.%>
15.<table width="600" border="1">
16. <tr>
17. <th width="91"> <div align="center">CustomerID </div></th>
18. <th width="98"> <div align="center">Name </div></th>
19. <th width="198"> <div align="center">Email </div></th>
20. <th width="97"> <div align="center">CountryCode </div></th>
21. <th width="59"> <div align="center">Budget </div></th>
22. <th width="71"> <div align="center">Used </div></th>
23. </tr>
24.<%
25. While Not objRec.EOF
26.%>
27. <tr>
28. <td><div align="center"><%=objRec.Fields("CustomerID").Value%></div></td>
29. <td><%=objRec.Fields("Name").Value%></td>
30. <td><%=objRec.Fields("Email").Value%></td>
31. <td><div align="center"><%=objRec.Fields("CountryCode").Value%></div></td>
32. <td align="right"><%=objRec.Fields("Budget").Value%></td>
33. <td align="right"><%=objRec.Fields("Used").Value%></td>
34. </tr>
35.<%
36. objRec.MoveNext
37. Wend
38.%>
39.</table>
40.<%
41.
42.%>
43.</body>
44.</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
