<% Option Explicit %> <html> <head> <title>ThaiCreate.Com Tutorial</title> </head> <body> <% Dim Conn,strSQL,objRec,intRows Set Conn = Server.Createobject("ADODB.Connection") Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/mydatabase.mdb"),"" , "" strSQL = "SELECT * FROM gallery " Set objRec = Server.CreateObject("ADODB.Recordset") objRec.Open strSQL, Conn, 1,3 Response.Write("<table border='0' cellspacing='1' cellpadding='1'><tr>") intRows = 0 While Not objRec.EOF intRows = intRows + 1 Response.Write("<td>") %> <center> <img src="thaicreate/<%=objRec.Fields("Picture").Value%>"><br> <%=objRec.Fields("GalleryName").Value%> <br> </center> <% Response.Write("</td>") If intRows Mod 2 = 0 Then Response.Write("</tr>") End If objRec.MoveNext Wend Response.Write("</tr></table>") objRec.Close() Conn.Close() Set objRec = Nothing Set Conn = Nothing %> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 00
