Fit For Marriage
<% set conntemp=server.createobject("adodb.connection") myconnect="provider=SQLOLEDB;data source=(local);initial catalog=SQLDB645;Integrated Security=SSPI;" conntemp.Open myconnect If(request.form("Submit") = "Get Password") Then Dim Query, RecSet Query = "SELECT * FROM Enrollment WHERE Email = '" & request.form("Email") & "'" set RecSet = conntemp.Execute(Query) If RecSet.eof then Response.Write("

There is no user with that email address in our system. Click here to enroll.

") else dim cdoMessage Set cdoMessage = Server.CreateObject("CDONTS.NewMail") dim BODY BODY = "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "
" BODY = BODY & "
" BODY = BODY & " " BODY = BODY & " " BODY = BODY & " " BODY = BODY & " " BODY = BODY & "
" BODY = BODY & "  
" BODY = BODY & "
" BODY = BODY & "

" BODY = BODY & "Hi " & RecSet("CallName") & ",

" BODY = BODY & "The password you have requested for FitForMarriage.com is " & RecSet("Password") & "" BODY = BODY & "

" BODY = BODY & "Heirs together of the grace of life (1 Peter 3:7)," BODY = BODY & "

" BODY = BODY & "C. Russell Yates, director" BODY = BODY & "
" BODY = BODY & "Family Foundation Ministry" BODY = BODY & "

" BODY = BODY & "


" BODY = BODY & "Family Foundation Ministry
" BODY = BODY & "ryates@fitformarriage.com
" BODY = BODY & "PO BOX 10432
" BODY = BODY & "College Station, TX 77842
" BODY = BODY & "" BODY = BODY & "" cdoMessage.BodyFormat = 0 cdoMessage.MailFormat = 0 cdoMessage.From = "ryates@fitformarriage.com" cdoMessage.To = request.form("Email") cdoMessage.Subject = "FitForMarriage.com Password" cdoMessage.Body = BODY cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing Response.Write("

Your password has been emailed to " & request.form("Email") & ". Click here to login.

") end if Else %>

Enter your email address:

<% End If %>

What do you want to do next?

To participate in the Fit For Marriage program will take some time. But it will change your life—you'll never be the same again!