<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Transfert Base de données
Begin Transfert ...
<%
Dim DateInt
Dim IdTime
Dim CustInt
Dim idEpml
Dim IdInt
Dim FullDay
Dim BeginTime
Dim EndTime
Set rs_read = Server.CreateObject("ADODB.Recordset")
sql_read = "SELECT * FROM reldatelieupers ORDER BY DateInt Asc"
openrs rs_read, sql_read
While not rs_read.eof
DateInt = ""
IdTime = 0
CustInt = ""
idEpml = 0
FullDay = 0
BeginTime = ""
EndTime = ""
DateInt = rs_read("DateInt")
tmpmonth = month(DateInt)
tmpday = day(DateInt)
tmpyear = year(DateInt)
DateInt = tmpyear & "-" & tmpmonth & "-" & tmpday
IdTime = rs_read("IdTime")
CustInt = rs_read("CustInt")
idEmpl = rs_read("idEmpl")
sql_write = "insert into reldatelieupers_2 (" & _
"DateInt," & _
"IdTime," & _
"CustInt," & _
"idEmpl," & _
"FullDay," & _
"BeginTime," & _
"EndTime)" & _
" values (" & _
ToSQL(DateInt, "Text") & "," & _
ToSQL(IdTime, "Number") & "," & _
ToSQL(CustInt, "Text") & "," & _
ToSQL(idEmpl, "Number") & ","
If IdTime = 3 then
FullDay = 1
BeginTime = "00:00:01"
EndTime = "24:00:00"
else
FullDay = 0
If IdTime = 1 then
BeginTime = "09:00:00"
EndTime = "13:00:00"
else
BeginTime = "14:00:00"
EndTime = "18:00:00"
end if
end if
sql_write = sql_write & _
ToSQL(FullDay, "Number") & "," & _
ToSQL(BeginTime, "Text") & "," & _
ToSQL(EndTime, "Text") & _
")"
' Response.Write(sql_write & "
")
Set rs_write = Server.CreateObject("ADODB.Recordset")
openrs rs_write, sql_write
sql_write = ""
rs_read.movenext
Wend
rs_read.close
set rs_read = nothing
%>
Transfert Done