<%@Language="VBScript"%> <%Script_Name = Request.ServerVariables("SCRIPT_NAME") if Request("Page") <> "" Then Page = Request("Page") Else Page = 1%> Send Form By Mail v.2.0 <%If Page = 1 Then%>
Share ViewpointEnergy.com with
Friends and Co-workers!

Your E-Mail Address:

Recipients E-Mail Address:

Subject Line:

Comments:


   
<%End if if Page = 2 Then%> <% fromemail=request.form("fromaddy") toemail=request.form("toaddy") subject=request.form("subline") body=request.form("comments") Dim objMail Set objMail = CreateObject("CDONTS.NewMail") objMail.Send fromemail,toemail,subject,body if err Then response.Write err.Description Else%> Message Sent! <%End if%> <%End if%>