ee=formatdatetime(time,4)
SS=Second(time)
rr=replace(ee,":","")
SS=SS+20 

If SS >= 60 then 
SS=0
rr=rr+1
Total=rr&SS&"0"
 
else
  
Total=rr&SS

END IF

SET oConn = server.CreateObject("ADODB.Connection")
    oConn.ConnectionString = "provider=SQLOLEDB.1;data source=PC258;Database=msdb;uid=sa;pwd=;"
    oConn.open

SQL="Sp_add_jobschedule @job_name='NewReg',@name='41',@enabled=1,@freq_type=1,@freq_interval=1,@active_Start_time="&Total
'response.write SQL
'response.end 
oConn.execute SQL



oConn.close