% 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 %>
1 Comments:
This sounds like a really great story and I cant wait to read more! :)
-Katie
Post a Comment
<< Home