%
Option Explicit
Dim intQuoteID
Dim strImageURL
Dim strPerson
Dim strQuote
' Randomize
' intQuoteID = Int((13 * Rnd) + 1)
If Session("quoteid") = "" Then
intQuoteID = 1
Else
intQuoteID = CInt(Session("quoteid"))
End If
Select Case intQuoteID
Case 1
strImageURL = "http://truthforyouth.com/images/patbourne.jpg"
strPerson = "PAT BOONE"
strQuote = "I salute Tim Todd for packaging God's Word and His specific instruction of the issues that face all young people today in such a gripping and contemporary way. God bless each reader!"
Case 2
strImageURL = "http://truthforyouth.com/images/billyjoe.jpg"
strPerson = "PASTOR BILLY JOE DAUGHERTY"
strQuote = "Congratulations to Tim Todd for The Truth For Youth Bible that is relevant for young people today. It makes reading the Bible exciting. America is ripe for this powerful tool to get God's Word into the hearts of a desperate generation."
Case 3
strImageURL = "http://truthforyouth.com/images/jerryfalwell.jpg"
strQuote = "The Truth For Youth Bible for teens clearly challenges today's young people about the issues they are facing today. The unique format grabs their attention with the Biblical truths that will transform their lives. I recommend it!"
strPerson = "DR. JERRY FALLWELL"
Case 4
strImageURL = "http://truthforyouth.com/images/billygraham.jpg"
strQuote = "It was interesting to hear about The Truth For Youth Bible. We were pleased to know that many young people are being won to the Lord through this book. We wish you God's best as you continue to minister to young people."
strPerson = "DR. BILLY GRAHAM"
Case 5
strImageURL = "http://truthforyouth.com/images/tdjakes.jpg"
strQuote = "The Truth For Youth Bible is a wonderful tool that is a deterrent to the decadence that this generation confronts on a daily basis. In light of all the violence in America's public schools The Truth For Youth Bible is timely! It falls in line with what God is speaking to my heart."
strPerson = "BISHOP T.D. JAKES"
Case 6
strImageURL = "http://truthforyouth.com/images/stevehill.jpg"
strQuote = "Let me tell you what has happened, because I love the teenagers of America. Brother Tim, every ""Truth For Youth"" Bible that you have printed and struggled to raise money for: the design, the thoughts and everything about it. Little rubies and little diamonds are being placed in a crown for you in Heaven. Why? Because it is not a selfish ambition. It is to get kids into the Word and to get them growing in God."
strPerson = "STEVE HILL"
Case 7
strImageURL = "http://truthforyouth.com/images/deanjones.jpg"
strQuote = "Tim Todd's Truth For Youth Bible is making a difference in the lives of young people. One of these Bibles in the hands of every American teenager could change the course of our nation."
strPerson = "ACTOR DEAN JONES"
Case 8
strImageURL = "http://truthforyouth.com/images/artlinkletter.jpg"
strQuote = "The Truth For Youth Bible is reaching young people using their language. The full color comic stories that address the issues facing our youth will help to deliver many of them from drugs, drinking and sexual promiscuity. Congratulations, Tim, for your work."
strPerson = "ART LINKLETTER"
Case 9
strImageURL = "http://truthforyouth.com/images/williamjmurray.jpg"
strQuote = "The Truth For Youth Bible is your weapon against the lies of our secular society."" Son of leading atheist Madalyn Murray O'hair,"
strPerson = "WILLIAM J. MURRAY"
Case 10
strImageURL = "http://truthforyouth.com/images/rodparsley.jpg"
strQuote = "The Truth For Youth, the astounding and anointed Bible designed specifically for this final generation, is literally changing young people everywhere. While it tackles the issues facing our children today, it arrests them with the Gospel of Jesus Christ. I believe those who dare to read The Truth For Youth Bible will be forever changed and liberated from the trappings of Satan."
strPerson = "PASTOR ROD PARSLEY"
Case 11
strImageURL = "http://truthforyouth.com/images/mikepurkey.jpg"
strQuote = "Hard hitting and powerful, Tim Todd's Truth For Youth Bible speaks to the heart of today's youth culture. Tim has done his homework and understands the great pressures our young people face. The Truth For Youth packages the Word of God with a straight forward honesty that today's youth relate to. The Truth For Youth Bible is a MUST resource for every classroom in America!"
strPerson = "PASTOR MIKE PURKEY"
Case 12
strImageURL = "http://truthforyouth.com/images/michaelreagan.jpg"
strQuote = "The Truth for Youth is the most powerful outreach tool available for use by the Holy Spirit to change the lives of young people today!"
strPerson = "MICHAEL REAGAN"
Case 13
strImageURL = "http://truthforyouth.com/images/dduron.jpg"
strQuote = "The Truth for Youth Bible is an extraordinary tool to reach young people in the most relevant way. I recommend it for every youth pastor to give to every teenager!"
strPerson = "DENNY DURON"
Case 14
strImageURL = "http://truthforyouth.com/images/rickscarborough.jpg"
strQuote = "I couldn't be more excited about The Truth For Youth Bible, a real tool for reaching and teaching the teenagers of America. Everyone recognizes the problems that confront the new millennium generation of teenagers but few are offering solutions. Your innovative and yet scriptural approach of taking God's Word and applying it directly to the great issues of life encourages me to press on in the full belief that God will restore this nation and send us one more sweeping revival.
Author of best seller book, Enough Is Enough,"
strPerson = "RICK SCARBOROUGH"
End Select
If intQuoteID < 14 Then
Session("quoteid") = intQuoteID + 1
Else
Session("quoteid") = 1
End If
%>
|
|
<%= strPerson %> |