%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
sYouEmail="info@trimarkllc.com"
' Email Subject
EmailSubject="trimarkllc.com - Information Request"
' Heading font color
FontColor="#000000"
' Heading Background Color
HeadColor="#ffffff"
' Form Font Color
FormFontColor="#DE0000"
' Form Background Color
FormBackColor="#ffffff"
'Error Message Color
ErrorColor="blue"
Function ValidateField(sFieldvalue, sFieldtype)
ValidField = true
Select Case LCase(sFieldtype)
Case "name"
If Len(sFieldvalue) = 0 Then ValidField = False
Case "email"
If Len(sFieldvalue) < 5 Then
ValidField = False
Else
If InStr(1, sFieldvalue, "@", 1) < 2 Then
ValidField = False
Else
If InStr(1, sFieldvalue, ".", 1) < 4 Then
ValidField = False
End If
End If
End If
Case "message"
If Len(sFieldvalue) = 0 Then ValidField = False
Case "else"
ValidField = False
End Select
ValidateField = ValidField
End Function
Sub ShowForm
%>
Located in the Memphis area we are committed to land development throughout
Shelby County as well as other areas in the Mid-South. Please use
the following information to contact us so that we may serve you better.
Click here if you want to submit an information request.