<%
' #### This script Copyright (c) 2001 ASPjar.com, All Rights Reserved. NO WARRANTEE.
' #### You need CDONTS installed to be able to send mail
' #### Your sites information starts here ####
' Your Email Address - must be a valid domain or the mail will not send
sYouEmail="admin@manhattanmarketplace.com"
' Email Subject
EmailSubject="Manhattan Marketplace Web Contact Form"
' Heading font color
FontColor="#5e007f"
' Heading Background Color
HeadColor="#ffc500"
' Form Font Color
FormFontColor="#ffc500"
' Form Background Color
FormBackColor="#5e007f"
'Error Message Color
ErrorColor="red"
' That's it! - you may now wish to customize the header and footer files to suit your site.
' ####################################################################################
Function ValidateField(sFieldvalue, sFieldtype)
ValidField = true
Select Case LCase(sFieldtype)
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
End Select
ValidateField = ValidField
End Function
Sub ShowForm
%>
Thank you for your interest! This section is currently under development. Please check back soon!!