%@ Language=VBScript %> <% Option Explicit Response.Buffer = true %> <% Dim TagCounter Randomize TagCounter = Int((7 * Rnd) + 1) %> <% ' ************************************************************************************* ' ' Project: Kuhnlaw.com Email Contact Form ' ' Coded By: ' Create Date: 12/15/02 ' ' Description: Email contact information form. ' ' ************************************************************************************* '************************************************************************************** ' Main Entry Point '************************************************************************************** 'On error resume next Call main() if ( Err.number <> 0 ) then call subErrorHandler( Err ) end if On error goto 0 '************************************************************************************** ' Main Function '************************************************************************************** sub main() %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||