<%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%>DatingFun.com : Stories
dating astrology
horoscopes · profiles
compatibility
mingle mania
pickup lines · chat
boards · polls · quizzes
online dating
drinking fun
bar guide · BAC
drink guide · games
sex education
sex positions · techniques
condoms · std's · trivia
dating advice
articles · tommy · dr. drew
dating doctor · lessons
date planning
ideas · tips · pointers
dating supplies
flowers · painkillers · candy
music · must-haves · gear
dating guide
etiquette · timeline · gifts
date-free days · movies
dating services
dating stories
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