аргументы имеют неправильный тип, находятся вне допустимого диапазона, или находятся в конфликте друг с другом VBScript ERROR

Question

Код:

<%@LANGUAGE="VBSCRIPT"%> 

<% 
set updatetime = Server.CreateObject("ADODB.Connection") 
updatetime.open "DRIVER=SQL Server;***************************************" 
If request.form("in_out")="checkin" then 
updatetime.execute ("insert into hourlist (username, checkintime, paid,breakCount) values ('"&session("MM_username")&"', '"&Now()&"', 0, 2) ") 

End if 

If request.form("in_out")="checkout" then 
updatetime.execute ("update hourlist set checkouttime='"&Now()&"' where username='"&session("MM_username")&"' and checkouttime is NULL") 
End if 
If request.form("in_out")="breakcheckin" then 
updatetime.execute ("update hourlist set breakCheckIn='"&Now()&"' where ID='"&session("MM_ID")&"' ") 
updatetime.execute ("update hourlist set breakCheckOut=Null where ID='"&session("MM_ID")&"' and breakCheckOut is not NULL ") 
End if 
If request.form("in_out")="breakcheckout" then 
updatetime.execute ("select breakCheckIn from hourlist where ID='"&session("MM_ID")&"' ") 
Dim BTD 
BTD=Round(Csng(DateDiff("n", (updatetime.Fields.Item("breakCheckIn").Value), (Now()))), 2) 
updatetime.execute ("update hourlist set breakCheckOut='"&Now()&"', breakCount=breakCount-1 where ID='"&session("MM_ID")&"' ") 
updatetime.execute ("update hourlist set breakTime='"&BTD&"' where ID='"&session("MM_ID")&"' ") 
updatetime.execute ("update hourlist set breakCheckIn=NULL where ID='"&session("MM_ID")&"' and breakCheckIn is not NULL ") 
End if 
updatetime.close 
set updatetime=nothing 
response.redirect "employee.asp?in_out="&request.form("in_out") 

%> 

В зависимости от радио выбора я сделать diffrent вещи, я получаю " Ошибка ADODB.Connection '800a0bb9' "ошибка в 21 строке (BTD = Round ... line) может кто-то сказать мне, что я сделал не так на этой линии? Я написал «updatetime.Fileds» неправильно или что?

Sry для моего плохого английского языка.

Answer 1

Dim myConnection, myRecordset  
set myRecordset = Server.CreateObject("ADODB.Recordset") 
set myConnection = Server.CreateObject("ADODB.Connection") 
myConnection.Open "DRIVER=SQL Server;***************************************" 

myRecordset.Open "select breakCheckIn from hourlist where ID='"&session("MM_ID")&"' ", myConnection 

Dim bciValue = myRecordset("breakCheckIn") 
Response.Write "BreakCheckIn value is: " & bciValue 

myRecordset.Close 
myConnection.Close 

Answer 2

Ваш updatetime - это соединение, а не набор записей (с. Полями). Вам может понадобиться для хранения результата/записей из

updatetime.execute ("select breakCheckIn from hourlist where ID='"&session("MM_ID")&"' ")

в переменной и использовать его поле (я) в последнем заявлении (ы) (или - гораздо лучше - параметризованные запросы).

Update WRT комментарий:

Использование Set для назначения объекта (набора записей) переменной.