<!-- #include file = "datacon.inc" -->
<!-- #include file = "adovbs.inc" -->
<%

 Dim strUsername, strFrom, strSubject, strMessage
 strUsername = Cstr(request.form("username"))
 strFrom = Cstr(request.form("fromemail"))
 strSubject = Cstr(request.form("subject"))
 strMessage = left(Cstr(request.form("message")),1000)

 if session("schoolID") <> "" then
 	schoolID = session("schoolID")
	schoolname = session("schoolname")
 end if

 Dim flag_strFrom
 flag_strFrom = 0
 
' insert new message
	dim objRec
	Set objRec = Server.createobject("ADODB.Recordset")
	objRec.Open "UserMessage",strConnect,adOpenDynamic,adLockOptimistic
	objRec.AddNew
	
	objRec("EmailAddress") = strFrom
	objRec("Subject") = strSubject
	objRec("UserName") = strUsername
	objRec("Message") = strMessage
	objRec("InsertDate") = date()
	objRec.Update
 	
	objRec.close
	set objRec = nothing
	
	
' validate and insert email address
 if strFrom <> "" then
	blnValidEmail = RegExpTest(strFrom)
	if blnValidEmail then flag_strFrom = 1
 end if
 
 if flag_strFrom = 1 then
	dim objRec1
	Set objRec1 = Server.createobject("ADODB.Recordset")
	objRec1.Open "UserEmail",strConnect,adOpenDynamic,adLockOptimistic
	objRec1.AddNew
	
	objRec1("EmailAddress") = strFrom
	objRec1.Update
 	
	objRec1.close
	set objRec1 = nothing 
 end if
	
	response.redirect("thankyou.asp")


Function RegExpTest(sEmail)
  RegExpTest = false

  Dim regEx, retVal
  Set regEx = New RegExp	' Create regular expression:

  ' Set pattern
  regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$"

  ' Set case sensitivity
  regEx.IgnoreCase = true

  ' Execute the search test
  retVal = regEx.Test(sEmail)

  If not retVal Then
    exit function
  End If

  RegExpTest = true
End Function

 %>