Bishopstrade Pty Ltd

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Bishopstrade Pty Ltd <% Dim strTo, strSubject, strBody 'Strings for recipient, subject, boby Dim objCDOMail 'The CDO object Dim regName, regSurname strTo = Session("bmsEmailAddress") strSubject = "New visitor requesting membership." regName = Session("bmsFirstName") regSurname = Session("bmsSurname") strBody = "
" strBody = strBody & "

" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "

" & (day(date)) & "-" & (Monthname(month(date),true)) & "-" & (Year(date)) & "

" & regName & " " & regSurname & "

Thank you. Your details have been recorded and we will get back to you shortly.

" strBody = strBody & "

" Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "info@bishopstrade.com" objCDOMail.To = strTo objCDOMail.Subject = strSubject objCDOMail.Body = strBody objCDOMail.BodyFormat = 0 ' CdoBodyFormatHTML objCDOMail.MailFormat = 0 ' CdoMailFormatMime objCDOMail.Send ' Set the object to nothing because it immediately becomes ' invalid after calling the Send method. Set objCDOMail = Nothing %>


	Member Registration Complete


	Thank you, <%=Session("bmsFirstName")%>. Your details have been recorded. We will get back to you shortly. Please click here to continue browsing this website.



	© Copyright Bishopstrade Limited 2004 - All Rights Reserved.