<% SUB SendMailCDO(strTo,strToName,strSubject,strMsg) Dim objNewMail, stringy Set objNewMail = CreateObject("CDO.Message") objNewMail.From = "willhoneywill@gmail.com" objNewMail.To = strTo objNewMail.Subject = strSubject objNewMail.TextBody = strMsg 'objNewMail.Bcc = strSupportMail objNewMail.Send set objNewMail=nothing End Sub Dim erro, password,page erro = "" proceed = 0 if Request.Form("formSubmit") = "1" Then password = Trim(Request.Form("txtPass")) username = Trim(Request.Form("username")) if username = "" then erro = "Please enter your Username. " proceed = 1 end if if password = "" then erro = erro & "Please enter your password." proceed = 1 end if if proceed = 0 then sql = "select * from tblpassword where username ='" & username & "'" rs.open sql,myconn,3,3 if rs.recordcount > 0 then sql = "select * from tblpassword where password ='" & password & "'" rs.open sql,myconn,3,3 if rs.recordcount > 0 then session("rights") = rs("page") page = rs("page") sql = "select id from tblpassword where username ='" & username & "'" rs2.open sql,myconn,3,3 if rs2.recordcount > 0 then school = rs2("id") else school = "Unknown school" end if rs2.close sql = "SELECT * FROM LoginHistory" rs2.open sql,myconn,3,3 rs2.addnew rs2("School") = school rs2("Page") = page rs2("LoginDate") = now() rs2.update rs2.close strMsg = "The following school has logged into the Ppit downloads page:" & VbCrLf & VbCrLf &_ "School: " & school & VbCrLf & VbCrLf &_ "Downloads page: " & page & VbCrLf & VbCrLf &_ "Login time: " & now() & VbCrLf SendMailCDO "if.wilson@btinternet.com","Ian Wilson","PpiT Login Notification",strMsg response.Redirect(page) Else erro = "That password is incorrect, please try again. Contact us if you have forgotten your password." End If rs.close Else erro = "That username is incorrect, please try again. Contact us if you have forgotten your username." End If rs.close end if End If%> Ppit - Downloads

Downloads

To download an item, right click the item and select ‘save target as’.

General information

PpiT (Year) leaflet

PpiT (Key Stage) leaflet

PpiT (Early Years Foundation Stage) leaflet

 

User area

This section, available to Licensees, contains a range of useful guidance and tutorials on the PpiT programmes including Setting up PpiT, How to use PpiT to raise standards, Setting targets, Provision mapping, A guide for SENCOs, Analysing data etc.

<% if erro <> "" Then %>

<%=erro%>

<% End If %>

Enter your username

Enter your password