<%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 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 = Nothingend ifsql = "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 ifif HUNDRED = true then for cnt = 1 to 20 RS.MoveNext nextend if%>VirtualKiss.com : KissStories : Best Kiss Stories




<% 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.