<%@LANGUAGE="VBSCRIPT"%>
<%
Dim AdminRS
Dim AdminRS_numRows
Set AdminRS = Server.CreateObject("ADODB.Recordset")
AdminRS.ActiveConnection = MM_psnetrev_STRING
AdminRS.Source = "SELECT top 1 * FROM Admin_Table"
AdminRS.CursorType = 0
AdminRS.CursorLocation = 2
AdminRS.LockType = 3
AdminRS.Open()
AdminRS_numRows = 0
%>
<%
Dim rsRegistred__MMColParam
rsRegistred__MMColParam = "1"
If (Request("EmailAddress") <> "") Then
rsRegistred__MMColParam = Request("EmailAddress")
End If
%>
<%
Dim rsRegistred
Dim rsRegistred_numRows
Set rsRegistred = Server.CreateObject("ADODB.Recordset")
rsRegistred.ActiveConnection = MM_psnetrev_STRING
rsRegistred.Source = "SELECT * FROM Admin_Table WHERE EmailAddress = '" + Replace(rsRegistred__MMColParam, "'", "''") + "'"
rsRegistred.CursorType = 0
rsRegistred.CursorLocation = 2
rsRegistred.LockType = 1
rsRegistred.Open()
rsRegistred_numRows = 0
%>
<%
'if AccessGroupID <> 2 then
if Request("selected") <> "" then
if rsRegistred.EOF And rsRegistred.BOF Then
Randomize Timer
rndnum=int(rnd*999999)+1000000
AdminRS.Addnew
'AdminRS("AdminUsername")=Request("AdminUsername")
'AdminRS("AdminPassword")=Request("AdminPassword")
AdminRS("FirstName")=Request("FirstName")
AdminRS("LastName")=Request("LastName")
AdminRS("EmailAddress")=Request("EmailAddress")
AdminRS("EldessChildName")=Request("EldessChildName")
AdminRS("EldestChildClass")=Request("EldestChildClass")
'AdminRS("Contacedat")=Request("Contacedat")
AdminRS("PostCode")=Request("PostCode")
AdminRS.update
UserEmail=Request("EmailAddress")
FirstName=Request("FirstName") & " " & Request("LastName")
EldestChildName=Request("EldessChildName")
EldestChildClass=Request("EldestChildClass")
AdminRS.Update
SendEmail
function SendEmail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.From = "website@muxtonschool.co.uk"
objCDOMail.To = "debs@kalidescope.co.uk"
objCDOMail.BCC = ""
objCDOMail.Subject = "New user signed up for the PDF Newsletter"
objCDOMail.Body = mailbody_New
objCDOMail.Send
Set objCDOMail = Nothing
end function
function mailbody_New
tmpstr=""
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.validateOnParse=True
objXML.load(Server.MapPath("xml/signup.xml"))
set objNodeXML=objXML.documentElement
tmpstr=objNodeXML.selectSingleNode("body").Text
Set objXML = Nothing
tmpstr=replace(tmpstr,"#EldestChildName#",EldestChildName)
tmpstr=replace(tmpstr,"#EldestChildClass#",EldestChildClass)
tmpstr=replace(tmpstr,"#UserEmail#",UserEmail)
tmpstr=replace(tmpstr,"#UserPassword#",UserPassword)
tmpstr=replace(tmpstr,"#FirstName#",FirstName)
mailbody_New=tmpstr
end function
End If
Response.Redirect "Newsletters_SignUP.asp?registered=True"
end if
'end if
%>
Muxton School ::
<% If Request.Querystring("registered") <> "True" Then %>
<% Else %>
Thank you for your details.
In future you will reveive all Muxton Matters via email.
