<% ip = Request.ServerVariables("REMOTE_ADDR") body = "Their IP address is: " & ip & vbcrlf & "Time is: " & Now & vbcrlf & vbcrlf dim msgbody dim cdomail set cdomail=createobject("cdonts.newmail") cdomail.from="info@questormd.com" cdomail.to="swift@noriskweb.com" cdomail.subject="Someone has viewed the new Flash Demo" cdomail.body= body cdomail.send %> Questor Medical Devices Inc. Software for Clinical Medicine since 1987