'อันนี้เป็นการ คิวรี ข้อมูลเพื่อใช้ในการดึงค่าออกมาใช้ค่ะ
<%
Set Connect_DB=Server.CreateObject("ADODB.Connection")
Connect_DB.Open "Driver=Microsoft Access Driver (*.mdb);DBQ="& Server.MapPath("database/dbtukcom.mdb")
sql="SELECT News.NewsID, News.Name FROM News ORDER BY News.NewsID DESC;"
Set Rs=Connect_DB.execute(sql)
%>
' จะอยู่ภายใน form
<select name="namenews">
<option>กรุณาเลือกชื่อของข่าว</option>
<%while Not Rs.EOF%>
<option value="<% =Rs("NewsID")%>"><% =Rs("Name")%></option>
<%Rs.MoveNext
wend
%>
' อันนี้เป็น ส่วนที่ทำการ add ค่ะ
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = "&Server.MapPath("database\dbxxx.mdb")
Sql="SELECT Picture.PicID FROM Picture ORDER BY Picture.PicID DESC;"
Set rs1=Server.CreateObject("ADODB.Recordset")
Set rs=Server.CreateObject("ADODB.Recordset")
rs1.Open Sql, conn,1,3
rs.Open "Picture", conn,1,3
Load balance : Server 01
