<% STORY_ID = Request("id") Randomize FLYCAST = CStr(Session.SessionId) & CStr(Int((1000000) * Rnd)) ANCHOR_END = "" HUNDRED = false if Request("h") = "t" then HUNDRED = true ANCHOR_END = "&h=t" end if Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open CONNSTRING STORY_BODY = "" STORY_TELLER = "" STORY_HOMETOWN = "" if IsNumeric(STORY_ID) and STORY_ID > 0 then Set RS = Conn.Execute("select * from best_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") RS.Close Set RS = Nothing end if sql = "select fk_id, fk_name, fk_age, fk_story, fk_hometown from best_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 if if HUNDRED = true then for cnt = 1 to 20 RS.MoveNext next end 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 Best Date Stories         date stories · best 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 Best 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 Best Date Story. " & CR) Response.Write("" & CR) RS.MoveNext Loop RS.Close Set RS = Nothing Conn.Close Set Conn = Nothing %> First name - hometown <% ' 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 Best Date Stories! <% end if %> Click HERE to submit your Best Date story. Click HERE for First 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

Join our list! get updates and other great dating info right to your email!