ร้านอินเตอร์เน็ตทั่วไทย

<%if request("no") ="" then pageno =1 else pageno=request("no") end if%>

ร้านอินเตอร์เน็ตทั่วไทย
www.hamanan.com

ค้นหาคำว่า :

<% thmonth=array("ม.ค.","ก.พ.","มี.ค.","เม.ย.","พ.ค.","มิ.ย.","ก.ค.","ส.ค.","ก.ย.","ต.ค.","พ.ย.","ธ.ค.") ' ---- ส่วนติดต่อกับฐานข้อมูลเพื่อแสดงรายการคำถาม Set Conn=Server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../cgi-bin/superinternet.mdb") if request("keyword") <> "" then Sql="Select qhomepage,qnumber,qname,qemail,qnote,qdate,tel,qprovince from question where (Qnote like '%"&request("keyword")&"%') or (Qname like '%"&request("keyword")&"%') or (QEmail like '%"&request("keyword")&"%') or (QProvince like '%"&request("keyword")&"%') or (QHomepage like '%"&request("keyword")&"%') order by QNumber desc" else Sql="Select qhomepage,qnumber,qname,qemail,qnote,qdate,tel,qprovince from question order by QNumber desc" end if Set RS =Server.CreateObject("ADODB.Recordset") RS.open Sql,Conn,1,3 total=RS.Recordcount if total=0 then%>

ไม่พบคำที่คุณต้องการค้นหา ลองคำอื่นดูนะครับ

<%else pagesize=10 totalpage=total\pagesize if (total mod pagesize) <> "0" then totalpage= totalpage+1 end if RS.Move pagesize*(pageno-1) a=1 if trim(pageno) <> trim(totalpage) then endrecord = pagesize else if (total mod pagesize)=0 then endrecord=10 else endrecord=(total mod pagesize) end if end if For a=1 to endrecord%> <%ano=rs("QNote") ano=replace(ano,"<","<") ano=replace(ano,chr(13),"
") if flag=0 then flag=1 color="3082C3" else flag=0 color="0077AB" End If %>

<%=right("0000" & RS("QNumber"),5)%>

ชื่อร้านอินเตอร์เน็ต : : : : : : : <%=RS("QEmail")%>
ที่ตั้งร้านอินเตอร์เน็ต : : : : : :<%=RS("QHomepage")%>
จังหวัด : : : : : : : : <%=RS("QProvince")%>
เบอร์โทรศัพท์ : : : <%=rs("tel")%>
รายละเอียดร้านอินเตอร์เน็ต :
<%=RS("QNote")%>

<%=RS("QName")%> --> [<%=formatdatetime(rs("Qdate"),1)%> ... เวลา <%=formatdatetime(rs("Qdate"),3)%>]

<%RS.MoveNext Next rs.close conn.close%>

จำนวนร้านอินเตอร์เน็ตที่แนะนำทั้งหมด <%=total%> ร้าน

เชิญแนะนำร้านอินเตอร์เน็ตได้เลยครับ | กลับหน้าแรก

<% response.write " กำลังแสดงหน้าที่ " & pageno & "/" & totalpage & "
" %> หน้าที่ <%For b=1 to totalpage%> "><%=b%> | <%Next%><%end if%>

Power by : : : http://www.thaiasp.net

กลับด้านบน

::::::::: แก้ไขจ้า ::::::::