<% daURL=Request.ServerVariables("http_host") TheFile=Request.ServerVariables("URL") TheirServer=Request.ServerVariables("server_name") TheirVariables=Request.ServerVariables("all_http") theirIP = Request.ServerVariables("REMOTE_ADDR") Dim Mailer Set Mailer = server.CreateObject("CDO.Message") Dim MailerConfig Set MailerConfig = server.CreateObject("CDO.Configuration") Dim Flds Set Flds = MailerConfig.Fields Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "gambit.webiness.com" Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 Flds( "http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup\" Flds.Update Set Mailer.Configuration = MailerConfig Mailer.From = "greetings@denniswest.com" Mailer.To = "greetings@denniswest.com" ' Mailer.Cc = "variables@dumbgun.com" Mailer.Subject = theirIP & " " & TheFile & " Dragon Hannah!" MessageBody = "This is their info from http" & vbcrlf MessageBody = MessageBody & TheirVariables & vbcrlf & vbcrlf MessageBody = MessageBody & "This is their server name" & vbcrlf MessageBody = MessageBody & TheirServer Mailer.TextBody = MessageBody Mailer.Send set Mailer=nothing %> Dragon Hannah: Our first day

Our first day

Thursday, June 5, 2008 — By Dragon Hannah

Dear Aunt Christina,

We are going on our dragon adventures today. We have a first aid kit and each other. I'm in charge of the camera and Emma is in charge of the binoculars. Uncle Marcus? Who knows where he is... he may be in Florida, or somewhere.


We will write to you often about what dragons we've found.

We hope to prove that dragons exist and can be raised by humans.

Hope to see you sometime!

Hannah

1 Comments:

Anonymous Anonymous said...

This sounds like a really great story and I cant wait to read more! :)

-Katie

June 7, 2008 5:37 PM  

Post a Comment

<< Home


Check out
what Hannah's reading!