<%@ Page Language="VB" %> <%@ Import Namespace = "System.Net" %> <%@ Import Namespace="System.Net.Mail" %>

<% Dim mail As New MailMessage() mail.To.Add("mail@superbowlgameparty.com") mail.From = New MailAddress("mail@superbowlgameparty.com") mail.Subject = "New SuperBowl Bet" mail.Body = "New SuperBowl Pool Bet" & vbCrLf & "fName: " & Request.QueryString("fname") & vbCrLf & "Last Name:" & Request.QueryString("lname") & vbCrLf & "Squares: " & Request.QueryString("Squares") & vbCrLf & "Bet combined scoreBet: " & Request.QueryString("scoreBet") & vbCrLf & "Combined Score at the end: " & Request.QueryString("score") & vbCrLf & "Bet for winner: " & Request.QueryString("winbet") & vbCrLf & "Winner: " & Request.QueryString("Winner") & vbCrLf & "WinBy: " & Request.QueryString("WinBy") & vbCrLf & "comments: " & Request.QueryString("comments") & vbCrLf & "IP: " & Request.ServerVariables("REMOTE_ADDR") Dim smtp As New SmtpClient("superbowlgameparty.com") smtp.Credentials = New NetworkCredential("mail@superbowlgameparty", "superbowl#2018") smtp.Send(mail) Response.Redirect("http://www.superbowlgameparty.com/messages.asp") %>

First Name:
Last Name:
E-mail: