<%STORY_ID = Request("id")RandomizeFLYCAST = CStr(Session.SessionId) & CStr(Int((1000000) * Rnd))ANCHOR_END = ""HUNDRED = falseif Request("h") = "t" then HUNDRED = true ANCHOR_END = "&h=t"end if Set Conn = Server.CreateObject("ADODB.Connection")Conn.Open CONNSTRINGSTORY_BODY = ""STORY_TELLER = ""STORY_HOMETOWN = ""STORY_AGE = ""if IsNumeric(STORY_ID) and STORY_ID > 0 then Set RS = Conn.Execute("select * from first_date where fk_id = " & STORY_ID) if RS.EOF then ErrorOut "Database error. Hit back and retry." end if STORY_BODY = RS("fk_story") STORY_TELLER = RS("fk_name") STORY_HOMETOWN = RS("fk_hometown") STORY_AGE = RS("fk_age") RS.Close Set RS = Nothingend ifsql = "select fk_id, fk_name, fk_age, fk_story, fk_hometown from first_date " & _ "where fk_valid = 1 order by fk_entrydate desc"Set RS = Conn.Execute(sql)if RS.EOF then RS.Close Set RS = Nothing Conn.Close Set Conn = Nothing ErrorOut "Sorry, there is a database problem at this time. Please try again later"end ifif HUNDRED = true then for cnt = 1 to 20 RS.MoveNext nextend if%>

horoscopes · profiles compatibility pickup lines · chat boards · polls · quizzes online dating bar guide · BAC drink guide · games sex positions · techniques condoms · std's · trivia articles · tommy · dr. drew dating doctor · lessons ideas · tips · pointers flowers · painkillers · candy music · must-haves · gear etiquette · timeline · gifts date-free days · movies dating services first date · best date worst date summer love · valentines day · holiday hook-up about us · contact us advertising info · link to us get our newsletter write for us · press mentions privacy policy First Date Stories         date stories · first date <% if HUNDRED = true then %>Here are the latest archived stories. We display ">20 new stories each day, but set this up to let you read more, in case you miss a day! <% else %>Presented below are today's First Date Stories. We add new stories as they are submitted, so be sure to check back! <% end if %><% if IsNumeric(STORY_ID) and STORY_ID > 0 then %> Name: <% = STORY_TELLER %> Hometown: <% = STORY_HOMETOWN %> Age: <% = STORY_AGE %> <% = STORY_BODY %> <% end if %> Click on the links below to read more stories. Or, submit your own First Date Story. " & CR) Response.Write("" & CR) RS.MoveNext Loop RS.Close Set RS = Nothing Conn.Close Set Conn = Nothing %> First name - hometown - age <% ' PREP THE DATA HERE! counter = 0 end_counter = 20 if HUNDRED = true then end_counter = 100 end if do while not RS.EOF counter = counter + 1 if counter > end_counter then exit do end if ' DEAL WITH THE AGE age = RS("fk_age") if age = "0" then age = " - N/A" else age = " - " & age end if ' DEAL WITH THE HOMETOWN hometown = RS("fk_hometown") if Len(hometown) < 2 then hometown = " - N/A" else hometown = " - " & hometown end if Response.Write(" " & RS("fk_name") & hometown & _ age & " Read Story <% if HUNDRED = true then %> ">Click HERE to see today's stories! <% else %> ?h=t">Click HERE to see the previous 100 First Date stories! <% end if %> Click HERE to submit your First Date story. Click HERE for Best Date stories. Click HERE for Worst Date stories. DatingFun.com : Everything Dating from Pick-up to Break-up Click Here to send this page to a friend! planning · astrology · drinking · mingling · sex · stories · supplies · guides · advice about · contact · advertising · link to us · newsletter · write · press · privacy All content ©2000-2016 Hays Internet Marketing, Inc. all rights reserved