Set InsertStart = CreateObject("ADODB.Command")
InsertStart.ActiveConnection=siteConn
InsertStart.Prepared = true
InsertStart.commandtext = "insert into ATime (ID, StartDate)values(?,?,?)"
InsertStart.Parameters.Append InsertStart.CreateParameter("@ID", adInteger, adParamInput, , strID)
InsertStart.Parameters.Append InsertStart.CreateParameter("@StartDate", adVarChar, adParamInput, 5, getTenure)
InsertStart.execute
Set InsertStart = CreateObject("ADODB.Command")
InsertStart.ActiveConnection=siteConn
InsertStart.Prepared = true
InsertStart.commandtext = "insert into ATime (ID, StartDate)values(?,?)"
InsertStart.Parameters.Append InsertStart.CreateParameter("@ID", adInteger, adParamInput, , strID)
InsertStart.Parameters.Append InsertStart.CreateParameter("@StartDate", adVarChar, adParamInput, 5, getTenure)
InsertStart.execute