<%@ LANGUAGE="VBScript" %>
<%
'
' Open Database
'
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open "Provider=MSDAORA;Data Source=phdb.world;User ID=;Password="
'
' This SQL statement gives an ordered list of actions related to run of type run_type
'
' SQLStmt1 = " select run,sequence from phoffline.runseqs order by run,sequence whre run between 5599 and 5600 "
'
' response.write(SQLStmt1)
'
' Set RS1 = Connection.Execute(SQLStmt1)
SQLStmt2 = " select run,to_char(log_date,'MM/DD/YYYY HH24:MI:SS') ddate from phoffline.start_seqs where run between 0 and 5743 order by run,log_date "
' response.write(SQLStmt2)
Set RS2 = Connection.Execute(SQLStmt2)
%>
versioncheck.asp
<%
irun_old=-10
Do While Not RS2.EoF
'
' read run, date and add sequence,
'
run=Cint(RS2("run"))
ddate=CStr(RS2("ddate"))
If run<>irun_old Then
nseq=-1
irun_old=run
End If
nseq=nseq+1
' Response.write(CInt(run) & "," & Cint(nseq) & "," & ddate & "
")
SQLStmt3 = " insert into phoffline.test_seqs(run,sequence,log_date) values(" & run & "," & nseq & ",to_date('" & ddate & "','MM/DD/YYYY HH24:MI:SS')) "
' response.write(SQLStmt3 & "
")
Connection.Execute(SQLStmt3)
RS2.MoveNext
Loop
Connection.Execute("COMMIT")
Connection.Close
Set RS2=nothing
%>