<% Option Explicit Response.Buffer = True Dim Connect ' As ADODB.Connection Dim rsMem ' As ADODB.Recordset Dim strSQL ' As String Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "wereadorg" Set rsMem = Connect.Execute("SELECT * FROM teens WHERE status='Approved' ORDER BY ID DESC") %> WE READ - Literacy & Education for Life
 

 


Read Teen Stories
 


Read Teen Poems
 


Write A Story or Poem
 


Book Recommendations


Email This Site to a Friend

 

 

 

 

 

 

       

E-mail This Site 
To A Friend!

Please fill in the below fields to send our site link to a friend. 

Your name:
Your e-mail address:
Recipient's name:
Recipient's e-mail:
E-mail comments: Hey! Check out this cool Web site I found with stories written by other teens, poetry, book reviews, and other cool stuff!  http://www.weread.org 

 

 


Back to Top

 

  

Read Teen Stories | Read Teen Poems | Write A Story or Poem
Book Recommendations | Email This Site to a Friend | WE READ Home