<% sub tellme %>
[Order Number ] [VRM ] [Make ] [Model ] [Collect Date ]
<%response.write rs(2) %> <%response.write rs(1) %> <%response.write rs(3) %> <%response.write rs(4) %> <%response.write FormatDateTime(rs("collecton"),1) %>
[From ] [Destination ]
<%response.write trim(rs(21)) & " " & trim(rs(22)) & " " & trim(rs(23)) & " " & trim(rs(26)) %> <%response.write trim(rs(33)) & " " & trim(rs(34)) & " " & trim(rs(35)) & " " & trim(rs("collectpcode")) %>
<% end sub %>

GCM Portal tester in July 2015


This is the test Job Queue, data may not be live:


<% dim used dim mypass dim lname dim g lname=request.querystring("rapart") mypass="46" if lname=mypass then myvar=lname Set cn = Server.CreateObject("ADODB.Command") DSN = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; " DSN = DSN & "DBQ=" & server.mappath("./ex.mdb") SQL = "SELECT * FROM exports where vrm = '" & trim(myvar) & "'" SQL = "SELECT * FROM exports where jobstate=1 order by collecton" cn.ActiveConnection = DSN cn.CommandText = SQL Set rs = Cn.Execute(sql) If rs.EOF = False and rs.BOF = False Then rs.movefirst do until rs.eof tellme rs.movenext loop else response.write ".........." response.write " There are no vehicles in the queue." %>


<% End If response.write "..........." %>


<% response.write " This transaction timed at " & formatdatetime(dateadd("H",6,now()),4) & " on " %>


<% response.write formatdatetime(now(),1) %>


<% else response.write ".........." response.write " Sorry, that's not a valid access code." End If %>