Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,038

HOME > ASP > ASP Forum > ช่วยดูโค๊ดนี้ให้หน่อยค่ะ เป็นโค้ดแสดงตารางการจองรถ



 

ช่วยดูโค๊ดนี้ให้หน่อยค่ะ เป็นโค้ดแสดงตารางการจองรถ

 



Topic : 019797

Guest





เกิด error แบบนี้ค่ะ
Error Type
(0X800200009)
Exception Ocurred.
eoffice/viewBook.asp,line 90

ทุกครั้งที่ใส่ Rs.MoveNext มี error อย่างข้างต้นทุกครั้งทั้งๆที่ select ออกมาแล้ว ได้ถึง5 record แต่พอใช้ Rs.MoveLast มันแสดงผล แต่ได้แค่ Record แรก กับ Record สุดท้าย

ต้องขอโทษด้วยนะคะ ถ้าอ่านคำถามแล้วไม่เข้าใจ พอดีอยาก post รูป แต่ รู้สึกว่าจะ post ไม่ได้ใช่มั้ยคะ


<%
CurrentMonth = Month(Now)
CurrentYear = Year(Now)
%>
<!-- #include file = "dbconnect.asp"-->
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * From BookCar Where Month(bc_date_begin) = '"&CurrentMonth&"' Order by bc_date_begin,bc_time_begin ASC;"
Rs.Open sql,Conn,1,3
while not Rs.eof
Response.Write(Rs("bc_date_begin")&"&nbsp;"&Rs("bc_time_begin")&"-"&Rs("bc_time_end")&"<br>")
Rs.movenext
wend
Rs.MoveFirst
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="text">
<tr>
<td>&nbsp;</td>
</tr>
<tr>
<td><div align="center" class="text1">เดือน <%=MonthName(CurrentMonth)%>&nbsp;&nbsp;ปี <%=CurrentYear+543%> </div></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="1" class="text">
<tr class="item_color2">
<td width="20%"><div align="right">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="item_color2">
<tr>
<td><div align="right">เวลา</div></td>
</tr>
<tr>
<td>วันที่</td>
</tr>
</table>
</div></td>
<td width="10%" class="text_small"><div align="center">8.00-<br>
9.00</div></td>
<td width="10%" class="text_small"><div align="center">9.00-<br>
10.00</div></td>
<td width="10%" class="text_small"><div align="center">10.00-11.00</div></td>
<td width="10%" class="text_small"><div align="center">11.00-<br>
12.00</div></td>
<td width="10%" class="text_small"><div align="center">12.00-<br>
13.00</div></td>
<td width="10%" class="text_small"><div align="center">13.00-<br>
14.00</div></td>
<td width="10%" class="text_small"><div align="center">14.00-<br>
15.00</div></td>
<td width="10%" class="text_small"><div align="center">15.00-16.00</div></td>
</tr>
<%
'*********************************************************
'หาเดือนถัดจากเดือนปัจจุบัน
'*********************************************************
if CurrentMonth = 12 then
CurrentMonth = 1
CurrentYear = CurrentYear+1
else
CurrentMonth = CurrentMonth+1
end if
'********************************************************

LastDay = CDate("1"+"/"+CStr(CurrentMonth)+"/"+CStr(CurrentYear))-1 'หาวันสุดท้ายของเดือนปัจจุบัน
LastDay = DatePart("d",LastDay) 'ตัดเฉพาะวันที่เท่านั้น

DayCount = 1 'ใช้ค่าในตัวแปรนี้เขียนวันที่
%>

<%
Do While DayCount <= LastDay ' ป้องกันไม่ให้เขียนวันที่เกินวันสุดท้ายของเดือน%>
<tr bgcolor="#FFFFFF">
<%
i = 1
CurrentDay = DayCount&"/"&CurrentMonth-1&"/"&CurrentYear+543 'เขียนวัน เดือน ปี ในคอลัมน์แรก
Response.Write("<td><div align=center>"&CurrentDay&"</div></td>")
i = i+1

While i <= 9 'วนลูป ให้ครบทั้งหมด 9 คอลัมน์
if Rs("bc_date_begin") = Cdate(CurrentDay) then 'ถ้าวันที่ในฐานข้อมูลเท่ากับค่าวันที่ ณ ตอนนี้
TimeCount = i+6
if TimeCount = Rs("bc_time_begin") then
diff = Rs("bc_time_end") - Rs("bc_time_begin")

For n=1 to diff
Response.Write("<td bgcolor=CCCCCC></td>")
i = i+1
next
Rs.MoveNext

else
Response.Write("<td bgcolor =FFFFFF></td>")
i = i+1
end if

else
Response.Write("<td bgcolor = FFFFFF></td>")
i = i+1
end if
wend
DayCount = DayCount+1%>
</tr>
<%
Loop%>

</table></td>
</tr>
</table>
Rs.MoveNext


Tag : - - - -






Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 3 พ.ค. 2551 22:26:53 By : แก้ว View : 3965 Reply : 2
 

 

No. 1

Guest


แก้ไขได้แล้วค่ะ ขอบคุณทุกคนที่เข้ามาอ่านนะคะ


Date : 4 พ.ค. 2551 11:38:20 By : แก้ว
 


 

No. 2

Guest


อยากทราบโค๊ดเกี่ยวกับการเพิ่ม ลบ ค้นหา แก้ไข ข้อมูลพนักงาน
Date : 6 พ.ค. 2551 15:00:00 By : สุพินดา
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : ช่วยดูโค๊ดนี้ให้หน่อยค่ะ เป็นโค้ดแสดงตารางการจองรถ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
 Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 02
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2025 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่