% 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") %>
|
|
Contribute A Story/Poem
We encourage all teens to contribute by submitting stories and poems using the form below. Getting your story or poem posted on WE READ is simple and easy, and your work will be read by thousands of other teenagers each month!. Please keep in mind the following guidelines:
|
|
|
|
Read Teen
Stories | Read
Teen Poems | Write
A Story or Poem |
|