<%@ language = vbscript%>
<!-- #include file="../helpdesk_system/conn.asp" -->
<%
sql1 = "Select * from Helpdesk_Job_type"
set rsjobtype = Conn_helpdesk.execute(sql1)
sql2 = "select * from Helpdesk_Service_order"
set rs_s = Conn_helpdesk.execute(sql2)
set rs_s = Server.CreateObject("adodb.recordset")
'rs_s.Open sql2,Conn_helpdesk,1,3
'*******************************************************
a_date = now()
'**************************************************
SQL="SELECT * FROM Helpdesk_Service_order WHERE a_date = #"& year(date)&"/"&month(date)&"/"&day(date)&"#"
'**************************************************
set RS = Conn_helpdesk.execute(SQL)
set RS = Server.CreateObject("adodb.recordset")
RS.Open SQL,Conn_helpdesk,1,3
'**************************************************
If Request.Form("Job_Id")<>"" Then
'=========ส่วนการสร้าง ID ในขอบเขตวันที่
IDdate=Right(year(date),2) '== สร้าง ID 1-2 ด้วยหลักหน่วยและหลักสิบของ ค.ศ.
If len(Month(date))=1 then '== สร้าง ID 3-4 ด้วย ค่าเดือนและเช็คหลักด้วย ถ้ามีหลักเดียวก็ เติม 0
IDdate=IDdate & "0" & Month(date)
Else
IDdate=IDdate & Month(date)
End If
If len(day(date))=1 then '== สร้าง ID 5-6 ด้วย ค่าวันและเช็คหลักด้วย ถ้ามีหลักเดียวก็ เติม 0
IDdate=IDdate & "0" & day(date)
Else
IDdate=IDdate & day(date)
End If
'=========ส่วนการสร้าง ID ในขอบข่าย จำนวน
RS.AddNew
RS("Service_id")=IDdate & Request.Form("Job_Id") & "001"
RS("a_date")=year(date)&"/"&month(date)&"/"&day(date)
RS.Update
Else
'=========ส่วนการสร้าง ID ในขอบเขตวันที่
IDdate=Right(year(date),2) '== สร้าง ID 1-2 ด้วยหลักหน่วยและหลักสิบของ ค.ศ.
If len(Month(date))=1 then '== สร้าง ID 3-4 ด้วย ค่าเดือนและเช็คหลักด้วย ถ้ามีหลักเดียวก็ เติม 0
IDdate=IDdate & "0" & Month(date)
Else
IDdate=IDdate & Month(date)
End If
If len(day(date))=1 then '== สร้าง ID 5-6 ด้วย ค่าวันและเช็คหลักด้วย ถ้ามีหลักเดียวก็ เติม 0
IDdate=IDdate & "0" & day(date)
Else
IDdate=IDdate & day(date)
End If
'=== ตรวจสอบค่าขอบข่ายจำนวน
topstaffID=0
RS.MoveFirst
Do Until RS.EOF
If Request.Form("Job_Id")=Mid(RS("Service_id"), 7, 1) Then
if cInt(Right(RS("Service_id"),3))>topstaffID Then topstaffID=cInt(Right(RS("Service_id"),3))
End If
RS.MoveNext
Loop
'=========ส่วนการสร้าง ID ในขอบข่าย จำนวน
IDstaff=cInt(Right(RS("Service_id"),3))+1 '=== นำค่า 3 ตัวของ ID มา แปลงเป็นเลขจำนวนเต็ม
IDstaff=topstaffID+1
If len(IDstaff)=1 Then
IDstaff="00" & IDstaff
ElseIf len(IDstaff)=2 Then
IDstaff="0" & IDstaff
End If
RS.AddNew
RS("Service_id")=IDdate & Request.Form("Job_Id") & IDstaff
RS("a_date")=year(date)&"/"&month(date)&"/"&day(date)
RS.Update
End If
RS.Close
Set RS=Nothing
End If
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC SQL Server Driver][SQL Server]Line 1: Incorrect syntax near '#'.
/helpdesk_system/select_job_type.ASP, line 17
แล้วถ้าเปลี่ยนจากเครื่องหมาย # เป็น % จะแสดง Error
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC SQL Server Driver][SQL Server]Line 1: Incorrect syntax near '2006'.
/helpdesk_system/select_job_type.ASP, line 17
หรือถ้าไม่ใส่เครื่องหมายอะไรเลยก้อจะ error
Error Type:
ADODB.Recordset (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/helpdesk_system/select_job_type.ASP, line 56
error ตรงนี้อ่ะค่ะ[RS.MoveFirst]
Load balance : Server 04
