|
|
|
|
Have you any special memories from your childhood that you would like to share with others? Are there any books you read that made an impact on you? Mail me with your memories and I will put them here to share with others.
|
Childhood Memories <% dim MyConn, MyRS, NL, vbTab, ConnStr ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Books\Books.mdb;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;User Id=Admin;PASSWORD=;" set MyConn=Server.CreateObject("ADODB.Connection") set MyRS=Server.CreateObject("ADODB.Recordset") NL=chr(13)+chr(10) vbTab=chr(9) 'Response.Write Connstr & "" MyConn.Open ConnStr MyRS.Open "Memories", MyConn MyRS.MoveFirst 'Response.Write "EOF=" & MyRS.eof while not MyRS.EOF if Not (MyRS("Censored")) then Response.Write " " & MyRS("WriterName") if isnull(MyRS("WriterFrom")) then Response.Write " writes:" else Response.Write " from " & MyRS("WriterFrom") & " writes:" end if Response.Write" " & NL Response.Write """ Response.Write MyRS("Memory") Response.Write "" " else ' response.write " Record # " & MYRS("MemoryID") & " was cesnored!!!" end if if MyRS("HasReply") then Response.Write " Debbie comments: " Response.Write """ Response.Write MyRS("ReplyText") Response.Write "" " end if Response.Write "" MyRS.MoveNext wend MyRS.Close MyConn.Close %> |
