เดิม
sql="select * from tbcarpost " & sWhere
sql1="select count(Qnumber) as num from tbcarpost " & sWhere
If request.QueryString("sType") = "1" then
sql = sql & " order by startpost DESC"
elseif request.QueryString("sType") = "2" then
sql = sql & " order by QPrice ASC"
end if
end if
Set rss = Server.CreateObject("ADODB.Recordset")
'Response.write sql
'Response.End()
rss.Open sql1,conn, 1, 3
cc = rss("num")
rss.close
Set rss = Nothing
Dim Rec, ppage
Rec = fix(Cint(cc) / 20)
ppage = (page*20)-20
If Cint(cc) mod 20<>"" Then
Rec = Rec + 1
End If
Set rs = Server.CreateObject("ADODB.Recordset")
' กำหนดจำนวนเรคคอร์ดที่จะแสดงในแต่ละหน้า
rs.PageSize = 20
rs.Open sql,conn
If Not rs.EOF Then
' กำหนดว่าต้องการแสดงผลลัพธ์จากหน้าไหน
Rs.Move ppage
rowCount = 0
%>
คือว่าอยากจะให้ 2 บรรทัดแรก เป็น sql แบบว่าไม่ต้องมี sql1 จะได้มั้ย ถ้าได้ set rs จะเขียนยังไง
แล้วถ้าไม่ได้ที่เขียนมาถูหรือป่าว
ช่วยดูให้หน่อยนะ
Load balance : Server 01
