<%@ Language=VBScript %> <% DIM strEmail, strFirstName, strLastName, strSubject, strComments, Mail strEmail = request.form("Email") strFirstName = request.form("FirstName") strLastName = request.form("LastName") strSubject = request.form("Subject") strComments = request.form("Comments") DIM strMsgHeader Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.nkol.net" Mail.From = strEmail Mail.AddAddress "webmail@nkol.net" 'Mail.AddAddress "rajeshrg9@yahoo.com" 'Mail.AddCC "rajesh_9_g@hotmail.com" Mail.Subject = "Testing: Online Form" strMsgHeader = "This email was delivered from the ASP Web Pro website." & vbCrLf & vbCrLf Mail.Body = strMsgHeader & "Email: " & strEmail & vbCrLf & _ "First Name: " & strFirstName & vbCrLf & _ "Last Name: " & strLastName & vbCrLf & _ "Subject: " & strSubject & vbCrLf & vbCrLf & _ "Comments: " & vbCrLf & strComments Mail.Send Set Mail = Nothing 'test code response.write "
Error = " & Error & "
" IF Error <> 0 THEN Response.Write "There has been an error and your message could not be sent through email. Please contact us directly at 1-716-768-6221. " & Err.Description ELSE Response.Write strFirstName & ",
" Response.Write "Your message has been successfully sent." END IF %>,