<% rid = 0 rid=CInt(Request.QueryString("rid")) %> คลิป vdo clip
คลิปเสียว คลิปเสียว ../
<% End If %>
<% If rid = 0 Then %> <%Else Set conn = Server.CreateObject("ADODB.Connection") conn.Open mm_connect sql = "select * from room Where roomid="&rid set rs = conn.Execute(sql) %>
คลิปเสียว
โหลด VDO คลิปเสียวใส้
ดาวน์โหลด คลิป อสุภกรรมฐาน
<% if LastUpdateEnable="1" then %> <% End If %> <% if CountReadEnable="1" then %> <% End If %> <% rs.Close set rs=nothing thmonth=array("ม.ค.","ก.พ.","มี.ค.","เม.ย.","พ.ค.","มิ.ย.","ก.ค.","ส.ค.","ก.ย.","ต.ค.","พ.ย.","ธ.ค.") pageno = 1 If Request.QueryString("pageno") <> "" Then pageno = Request.QueryString("pageno") End If roomcheck = "" If rid <> "" Then roomcheck = "Where RoomID="&rid End If If pageno_s <> "" Then pageno = CInt(pageno_s) End If Set rs = Server.CreateObject("ADODB.Recordset") sql = "Select QID, MemberID, QTopic, QName, Qdate,QUpdatedate,NAnswer,Nread From Question "&roomcheck&" Order By " & QuestionSortBy rs.Open sql, conn, 1, 3 On Error Resume Next rs.pagesize=5 total = rs.RecordCount totalpage = rs.PageCount rs.AbsolutePage = pageno firstpage = 1 lastpage = totalpage previouspage = (pageno - 1) Nextpage = (pageno +1) For a=1 to rs.PageSize If rs.EOF Then Exit For %> <% if LastUpdateEnable="1" then %> <% End If %> <% if CountReadEnable="1" then %> <% End If %> <% rs.MoveNext Next rs.Close conn.Close %>
ID สื่อคลิป VDO, เสียง เกี่ยวกับ

.jpg" width="90" height="70"> #<%=Right("0000"&rs("QID"),5)%>

+ " target="_blank"> <%=rs("QName")%>

นำเสนอวันที่ : <%=day(rs("qdate")) & " " & thmonth(month(rs("qdate"))-1) & " " & right(year(rs("qdate"))+543,2) %> ผู้ชม : <%=rs("NRead")%> แสดงความคิดเห็น : <%=rs("NAnswer")%>
  <%If pageno <> 1 and pageno <> 2 Then %> << หน้าแรก | <% End If %> <%If pageno <> 1 Then %> < หน้าที่ผ่านมา | <% End if %> <% For b =1 To totalpage %> <% If b = pageno Then %> [<%=b%>] <% Else %> <%=b%> <%End If %> <%If b <> totalpage Then%> | <%End If %> <% Next %> <%If pageno <> totalpage Then %> | หน้าต่อไป > <% End If %> <%If pageno <> totalpage And pageno <> totalpage-1 Then %> | หน้าล่าสุด >> <% End If %>

วัดเกาะวาลุการาม อ.เมือง จ.ลำปาง E-mail : webmaster@watkoh.com