<% Set oVal = New CValidate If Request.Form.Count > 0 Then '' Validate the email to be sent oVal.Check Request.Form("name"),"your name",CHECK_EMPTY oVal.Check Request.Form("from"),"your email address",CHECK_EMAIL oVal.Check2 Request.Form("from"), _ Request.Form("from2"), _ "your email address", _ "verify your email address" oVal.Check Request.Form("subject"),"subject",CHECK_EMPTY oVal.Check Request.Form("body"), "your message",CHECK_EMPTY If oVal.NumErrors = 0 Then Set oMailMgt = Server.CreateObject("ASPPW.SMTP") oMailMgt.SMTP="64.39.14.211" ' v-domain '' oMailMgt.SMTP="24.218.36.75" ' home oMailMgt.MailFrom=Request.Form("from") oMailMgt.MailTo="webmaster@cryptovb.com" oMailMgt.MailSubject=Request.Form("subject") oMailMgt.MailContent=Request.Form("body") oMailMgt.LogEvent = False bReturnCode = oMailMgt.SendMail() set oMailMgt = Nothing If bReturnCode Then Response.Redirect "thank_you/thank_you.html" Else oVal.AddErrMsg "An error occurred with the email program. Please report the error to the Web master!" End If Else ' oVal.ListErrors is called below End If End If %> contact

Please use this form to contact the Web master of www.cryptovb.com. If this mail form encounters a problem, you can send email to richardbondi@alumni.virginia.edu.

(If you are looking for help with the Wiley CryptoAPI COM Objects, or the book Cryptography for Visual Basic, you can search or join the wcco listserv.)

 

<% If oVal.NumErrors > 0 Then Response.Write "
" oVal.ListErrors "","" Response.Write "
" End If %>

your name

" SIZE=40 MAXLENGTH=100>

your email address

" SIZE=40 MAXLENGTH=200>

verify your email address

" SIZE=40 MAXLENGTH=200>

subject

" SIZE=40 MAXLENGTH=200>

your message

 

contact