hey people ,
i'm stuck on this for a day or two this is my code . it is giving me Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'FormatDateTime'
please help on this
-
dim i
-
dim checkboxValue
-
dim TextBoxValue
-
-
dim Count
-
dim Count1
-
dim postion
-
dim postion1
-
position=0
-
postion1=0
-
i=0
-
Checkbox1= Request.Form("same")
-
Comments=Request.Form("Comments")
-
strDate=Request.Form("Date")
-
a=Split(Comments ,",")
-
c=Split(strDate,",")
-
b=Split(Checkbox1,",")
-
-
TextBoxValue=UBound(a)
-
checkboxValue=UBound(b)
-
for i=0 to checkboxValue-1 step 1
-
if b(i)<>"" then
-
objRIMSConn.Execute "Insert into Eot_returned (Contract_no,Asset_id,Date_to_be_excepted,Comments) values ('" + Session("Contract_no") + "'," + b(i) + ",'" + FormatDateTime(c(i))+ "','"+ a(i) +"');"
-
else
-
exit for
-
end if
-
next
-
-
