<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Session("ConnectionString") LogonError = "" Action = Request("Action") UFName = Request("UFName") ULName = Request("ULName") UEmail = Request("UEmail") UPass = Request("UPass") message = 0 MySession = Session("Logon") & Session("Password") If Session("Success") = MySession AND Session("Success") <> "" AND Session("EnableLog") = 1 Then Response.Redirect ("PrivIntro.asp") If Action = "Send Request" Then MyCode = 0 If Trim(Request.Form("ImageField")) = Session("ImageNo") Then HTML = "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "Bichon.org Access Request" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "
First Name:" & UFName & "
Last Name:" & ULName & "
Email / Username:" & UEmail & "
Password:" & UPass & "
" HTML = HTML & "" HTML = HTML & "" Set myMail = CreateObject("CDO.Message") myMail.From = "AccessRequest@Bichon.org" myMail.To = "LisaD@AllureBichons.com" myMail.Subject = "Bichon.org Access Request" myMail.HTMLBody = HTML myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="relay-hosting.secureserver.net" myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 myMail.Configuration.Fields.Update myMail.Send set myMail = nothing message = 1 Else MyCode = 1 End If End If %> BFCA Members Login
  <%=LogonError%>
<% If message = 0 Then %> <% Else %> <% End If %>

Members Access Request


first name:
last name:
email:
password:
<% Dim ImageNo, RndNum Randomize Timer ImageNo = CStr(Fix(99999 * Rnd)) 'Here you can set the max number of images to be shown, ie. 99999999 Session("ImageNo") = ImageNo 'Session variable of the final number to be shown For i = 1 To Len(ImageNo) RndNum = 99999 * Rnd 'Random number to avoid caching ' here, 'img' shows which number should be displayed, we write the image tag ' to get the image from asp page. Response.Write "" Next %>
Please copy the numbers above in the field below before submitting
<% If MyCode = 1 Then %> THE CODE YOU ENTERED WAS WRONG
PLEASE TRY AGAIN
<% End If %>
Thank you

We successfully received your request

[Bichon Frise Information]   [Membership Inquiries]   [Boutique and Supplies]   [Caring and Training]
[Health Information]   [National Specialty Info.]   [Bichon Rescued]   [Photo Gallery]   [Other Links]   [Contact us]

 

<% Conn.Close %>