Please help with form validation

Hi Guys, I'm new to asp and wondering if you can help me out. I have this code below and need to make the fields required before it sends the email to me. Can you please advise how to do it?


<%

Option Explicit



Dim objErrMail

Dim strTo

Dim strFrom

Dim strSubject

Dim strBody



Dim strFirstName

Dim strEmail

Dim strPhone

Dim strLastName



strFirstName = Request.Form("FirstName")

strEmail = Request.Form("email")

strPhone = Request.Form("phone")

strLastName = Request.Form("LastName")





strFirstName = Replace(strFirstName,"'","''")



strEmail = Replace(strEmail,"'","''")


strPhone = Replace(strPhone,"'","''")

strLastName = Replace(strLastName,"'","''")




strTo = "peter@cbfx.com"

strFrom = "info@cbfx.com"

strSubject = "Spot Analytics Email"



strBody = "Here's the data: " & vbCrLf & vbCrLf

strBody = strBody & "FirstName: " & strFirstName & vbCrLf

strBody = strBody & "Email: " & strEmail & vbCrLf

strBody = strBody & "Phone: " & strPhone & vbCrLf

strBody = strBody & "LastName: " & strLastName & vbCrLf



Set objErrMail= Server.CreateObject("CDO.Message")



With objErrMail

.From = strFrom

.To = strTo

.Subject = strSubject

.TextBody = strBody

'.HTMLBody = strBody

'.Configuration.Fields.Item ("(URL address blocked: See forum rules)") = 2

'.Configuration.Fields.Item("(URL address blocked: See forum rules)") = ""

'.Configuration.Fields.Item("(URL address blocked: See forum rules)") = 25

.Configuration.Fields.Update

.Send

End With






%>

 

for each of the required values:


If strFirstName = "" Then
'display message
End If