<% 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 = "" STORY_AGE = "" if IsNumeric(STORY_ID) and STORY_ID > 0 then Set RS = Conn.Execute("select * from best_kiss 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 = Nothing end if sql = "select fk_id, fk_name, fk_age, fk_story, fk_hometown from best_kiss " & _ "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 %>

<% if HUNDRED = true then %> Here are the latest 100 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 Kiss Stories. We add 20 new stories every day, so be sure to check back! If you've missed a day, you can always read through the ?h=t">previous 100 Best Kiss stories. <% 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 Kiss Story. <% ' 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("" & CR) Response.Write("" & CR) RS.MoveNext Loop RS.Close Set RS = Nothing Conn.Close Set Conn = Nothing %> First name - hometown - age at time of best kiss " & 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 FirstKiss stories! <% end if %> Click HERE to submit your BestKiss story. Click HERE for FirstKiss stories. Click HERE to WorstKiss stories.