<% ' Checks to see if the user inputted a value ' If so, remove leading and trailing blanks and upcase it u_email=trim(request.form("u_email")) u_subject=trim(request.form("u_subject")) u_body=trim(request.form("u_body")) u_submit=trim(request.form("u_submit")) ' Grab the length of the email address inputted email_len=len(u_email) ' if the user has inputted a value start checking it if trim(u_email) <> "" then ' Loop that will check each character of the inputted value ' for the @ and the dot for counter = 1 to email_len 'If there is an @ set u_at to the position it was found in if mid(u_email,counter,1)="@" then ' count the number of @'s at_counter=at_counter+1 ' if there is more than one add it to the message if at_counter > 1 then message = message &"There are multiple @'s in the email address.
" end if ' if this is the 1st @ note the location in the string if u_at = "" then u_at=counter end if ' end check for first @ end if ' end check for the @ 'If there is an dot (.) set u_dot to the position it was found in if mid(u_email,counter,1)="." then if u_dot = "" then u_dot=counter end if 'end check for the first dot end if 'end check for the dot next ' Check to see if the dot comes after the @ ' and that the first dot is not the last character if (u_dot < u_at) or (len(u_email) <= u_dot+1) or ((u_dot-u_at) < 2) or (u_at < 2)then message = message &"You must enter a valid working E-Mail address. Please try again.
" end if 'end check for dot after the @ ' Scan the user input to see that all inputted values are either a letter A-Z, ' a number 0-9 or if the character is a . or an @ or _. for counter=1 to len(u_email) if (mid(u_email,counter,1) <> "/") and ((mid(u_email,counter,1) > chr(45)) and (mid(u_email,counter,1) < chr(58))) or ((mid(u_email,counter,1) > chr(63)) and (mid(u_email,counter,1) < chr(91))) or ((mid(u_email,counter,1) > chr(96)) and (mid(u_email,counter,1) < chr(123))) or((mid(u_email,counter,1) > chr(94)) and (mid(u_email,counter,1) < chr(96)))then else ' If it's an invalid charcter add it to the display message message = message & "Invalid charcter "& mid(u_email,counter,1)& " found in email address
" end if 'end check for invalid characters next 'end loop for invalid characters end if 'end check for user input ' Check the email field for input if is blank ' then add to the display message if (u_email = "") and (u_submit <> "") then message= message & "Please enter your E-Mail address.
" end if ' If the email address is not OK than display the message(s) ' and show the text box for user input with the last value pre-filled if message <> "" or u_email = "" then response.write message %>

" method="post">

Just put your e-mail address here and send it!
Your E-Mail Address:
Please make sure that you've entered your address correctly and that you keep it up to date. Thanks!

Why sign up to the list?

SykoGrafix isn't the kind of site you go to just once and then forget about. You gotta keep coming back and seeing what's new to get the whole picture. Signing up to the list makes that easy. Every time this website is updated with major content additions, you will find a shiny new e-mail in your inbox telling you about all the new stuff you're about to behold. It's a great way to keep tabs of what's going on with SykoGrafix without having to constantly check yourself.

Newsletters may include:

- Updates on new Artwork.
- Updates on new Articles.
- Major website additions.
- First looks at new stuff.
- Cool links.
- Exclusive stuff you won't find on the website!

Likewise, I'm not going to bother you for any of these reasons alone.

- Updates to the weblog.
- Message board posts (duh).
- Webcam.
- Minor website updates.

You will not, under any circumstances, be spammed because of this mailing list! I take this issue very seriously, and I think it's quite obvious by the nature of this website that I do not tolerate such things. You address is 100% safe, and will not be resold or abused in any way, shape, or form. List mailings are only sent out when meaningful significant content has been added.

If you dig this site and want to keep seeing new stuff, then signing up to this list makes it simple for you to enjoy all of what SykoGrafix has to offer. Not only that, but having people sign up to the list shows me that people like what I do, and motivates me to keep making this site better and better. <% ' If all seems ok begin processing the email else ' Write the email contents to the browser response.write "