<%QNow = Month(Now) &"/"& Day(Now) &"/" & Year(Now) & " " & Hour(Now) & ":" & minute(Now) &":"& second(Now) %> <% name = replace(Request.Form("name"),"'","") telephone = replace(Request.Form("telephone"),"'","") email = replace(Request.Form("email"),"'","") topic = replace(Request.Form("topic"),"'","") detail = replace(Request.Form("detail"),"'","") ip =Request.ServerVariables("REMOTE_ADDR") if request("Send") = "ส่งคำถาม" Then sql2 = "INSERT INTO QTopic(name, telephone, email, topic, detail, ip, dateQuestion) " sql2 = sql2 & " VALUES('" & name & "','" & telephone & "','" & email & "'," sql2 = sql2 & "'" & topic & "','" & detail & "','" & ip & "',#" & QNow & "#)" set Rs2 = Server.CreateObject("ADODB.Recordset") Rs2.Open sql2,Cn msg = "การส่งข้อมูลเรียบร้อยแล้ว!!" End If sql = "SELECT * FROM QTopic " sql = sql & " WHERE IsShow = True " sql = sql & " ORDER BY DateQuestion Desc" set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open sql,Cn,1,3 %> ถาม - ตอบ สารพัน โครงการบริหารทั่วไป (ภาคสมทบ)
ค้นหาข้อมูล E-mail ม.เกริก เกริกลิงค์
ยินดีต้อนรับสู่ Ex-BA
ประกาศและข่าวสารต่าง ๆ ของโครงการ
ข่าวรับสมัครนักศึกษาใหม่
แจ้งงดบรรยายและแจ้งการสอนชดเชย
ตารางเรียน
ตารางสอบ
ปฏิทินการศึกษา
กิจกรรม
ถาม-ตอบ

ศิลปศาสตรบัณฑิต (ศศบ.)
Bachelor of Arts (B.A.)
(EX-BA)
เกี่ยวกับโครงการฯ

 

 
 
ถาม - ตอบ สารพัน โครงการหลักสูตรศิลปศาสตร์บัณฑิต สาขาวิชาการจัดการ ภาคพิเศษสำหรับ ผู้บริหารและผู้มีประสบการณ์ทำงาน
<%if rs.EOF then %>

 

** ชื่อ - นามสกุล :
โทรศัพท์ :
   
(กรณีที่ต้องการให้ติดต่อกลับ)
** อีเมลล์ :
** เรื่อง :
** รายละเอียด :
 

<%=msg%>

<% else Dim maxPage 'ประกาศตัวแปรที่ใช้สำหรับเก็บจำนวนหน้าสูงสุด Rs.PageSize = 20 'กำหนดขนาดของหน้าในการแสดงผลข้อมูล pages = Request("pages") If pages <> "" Then Rs.AbsolutePage = pages 'กำหนดหน้าปัจจุบัน Else Rs.AbsolutePage = 1 'กำหนดหน้าปัจจุบัน End If maxPage = CInt(Rs.PageCount) %> ี
 

** ชื่อ - นามสกุล :
โทรศัพท์ :
   
(กรณีที่ต้องการให้ติดต่อกลับ)
** อีเมลล์ :
** เรื่อง :
** รายละเอียด :
 

<%=msg%>

<% Dim iCount no = Rs.RecordCount + 1 'iCount = 0 %> <%do while not rs.EOF and iCount < rs.PageSize iCount = iCount + 1 if rs.AbsolutePage = 1 then no = no - 1 else ' no = (rs.PageSize * rs.AbsolutePage) + icount - rs.PageSize no = (rs.RecordCount - (rs.PageSize * rs.AbsolutePage)) + rs.PageSize - icount +1 end if %> <% rs.MoveNext loop %>
 <%=no%>. ถาม  " target="_blank"><%=rs("topic")%>  โดย <%=rs("name")%>    เมื่อวันที่ <%=formatdatetime(rs("dateQuestion"),1)%> เวลา <%=formatdatetime(rs("dateQuestion"),4)%> น.   ( จำนวน <%=rs("Views")%> คน)

<%For b=1 to maxPage%> ><%=b%> | <%Next rs.close Cn.close %>
 
<% End If %>
 
 

 

 

 

 
โครงการหลักสูตรศิลปศาสตร์บัณฑิต สาขาวิชาการจัดการ (ภาคพิเศษสำหรับผู้บริหารและผู้มีประสบการณ์ทำงาน) เรียนเฉพาะวันเสาร์-อาทิตย์
43/1111 อนุสาวรีย์ - หลักสี่ ถนนรามอินทรา กม.1 กรุงเทพฯ 10220 โทรศัพท์ 0-2552-3500-9 เบอร์ตรง 0-2973-6743
Bachelor Arts (B.A.) : 43/1111 Ram-indra Rd. Km 1 Bangkok 10220 Tel. 0-2552-3500-9, 0-2973-6743