<%
' #### 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="info@subrosa.com.tr"
' Email Subject
EmailSubject="site'den form"
' Heading font color
FontColor="#000000"
' Heading Background Color
HeadColor="#FFFFFF"
' Form Font Color
FormFontColor="#000000"
' Form Background Color
FormBackColor="#FFFFFF"
'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 "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
%>