Probe-IV-4140B Software

<% ' Response.write Request.ServerVariables("PATH_TRANSLATED") emailSent = false if (Request.Form("emailsent") <> "") then 'stage two: download the file 'download software Server.Transfer( "/cgi-bin/downloadprobeiv.asp" ) 'Response.Redirect( "/cgi-bin/downloadprobeiv.asp" ) elseif Request.Form("recipient") <> "" then 'form was submitted 'verify output and redirect if successful s="" if Request.Form("company") = "" then s = s + "

Please enter your company name

" end if if Request.Form("realname") = "" then s = s + "

Please enter your full name

" end if if Request.Form("phone") = "" then s = s + "

Please enter your phone number

" end if if Request.Form("email") = "" then s = s + "

Please enter your email address

" elseif not IsValidEmail(Request.Form("email")) then s = s + "

The email address you entered is invalid.

" end if if Request.Form("address") = "" then s = s + "

Please enter your mailing address

" end if if s <> "" then validationerrors = "

" + s + "" else 'form values are good! 'submit entries to email--so ken is notified of any downloads url = "http://www.americanprobe.com/cgi-bin/formmail.pl" ' url = "http://www.mindbucket.com/posttest/postCollector.php" s = Request.Form set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.open "POST", url, false xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xmlhttp.send s 'Response.write xmlhttp.responseText 'Response.write s set xmlhttp = nothing emailSent = true end if end if 'The IsValidEmail function checks for a valid email 'IsValidEmail returns True if the email address is a valid email 'IsValidEmail returns false if the email address isn't proper syntax 'The code is well commented and should explain what is happening Function IsValidEmail(emailAddress) 'Declare variables Dim ValidEmail, emailParts, iLoopCounter, emailChar, acceptableChars ValidEmail = True 'set the default result to True 'acceptableChars are the characters that we will allow in our email acceptableChars="abcdefghijklmnopqrstuvwxyz.-_@" 'use the Split function to create an array with the @ as the separator 'so if your email was test@tester.com the email would be split into an array 'with the first array element holding "test" and the second "tester.com" emailParts = Split(emailAddress, "@") 'check to make sure that there is only 1 @ and that there are 2 parts 'remember arrays are zero based 'Using the UBound function will return the highest element in the array 'So if it's a valid email the UBound function will return 1, i.e. 0 start If UBound(emailParts) <> 1 Then ValidEmail = false Else 'Check the length of each part of the email address 'first part can be just one character, 2nd part must be atleast 4 If Len(emailParts(0))<1 OR Len(emailParts(1))<4 Then ValidEmail = false End If 'check first character on the left part isn't a "." using Left function If Left(emailParts(0), 1)="." Then ValidEmail = false End If 'check the last & 2nd character from right part using Right function If Right(emailParts(1), 1) = "." OR Right(emailParts(1), 2) = "." Then ValidEmail = false End If 'check that there is a . in the second part of the email address - .com If InStr(emailParts(1), ".") <= 0 Then ValidEmail = false End If 'check that there shouldn't be a _ in the second part of the email address If InStr(emailParts(1), "_") >0 Then ValidEmail = false End If End If 'loop through each character of email For iLoopCounter = 1 to Len(emailAddress) 'Use Lcase & Mid functions, Mid function used to return each individual character 'in the email, and then Lcase converts it into lowercase emailChar = Lcase(Mid(emailAddress, iLoopCounter, 1)) 'Check if the emailAddress characters are acceptable If InStr(acceptableChars, emailChar) = 0 and Not IsNumeric(emailChar) Then ValidEmail = false End if Next 'check if there is 2 . in a row If InStr(emailAddress, "..") > 0 Then ValidEmail=false End If 'check if there is @. in a row If InStr(emailAddress, "@.") > 0 Then ValidEmail=false End If IsValidEmail=ValidEmail End function %> Probe-IV-4140B Software

Policies/Statements

Web Links

American Probe & Technologies, Inc.
471 Montague Expressway,
Milpitas,
California 95035-6800
United States of America
Tel: 408 263-3356
Fax: 408 263-3797

<% if (not emailSent) then %>

Thank you for your interest in the Probe-IV-4140B Software. Please enter in your contact information to receive a link to the download page.

<%=validationerrors %> American Probe & Technologies Licensing End User License Agreement License agreement
By downloading or using software of American Probe & Technologies Incorporated or its subsidiaries ("APT") you agree to the following terms and conditions. If you do not agree with such terms and conditions; do not download or use the software. The terms of an end user license agreement accompanying a particular software file upon installation or download of the software shall supersede the terms presented below.

By downloading or using an American Probe & Technologies software product you are certifying that you are not a national of any country to which the United States embargoes goods and that you are not a person on the Table of Denial Orders; the Entity List; or the List of Specially Designated Nationals.

If the software is designed for use with an application software product (the "Host Application") published by American Probe & Technologies; American Probe & Technologies grants you a non-exclusive license to use such software with the Host Application only; provided you possess a valid license from American Probe & Technologies for the Host Application. Except as set forth below; such software is licensed to you subject to the terms and conditions of the End User License Agreement from American Probe & Technologies governing your use of the Host Application. If you are downloading or using the software to be used separate from a Host Application, American Probe & Technologies grants you a limited non-exclusive license to install and use the software on one Computer for the purpose of resolving certain file corruption issues. "Computer" means a virtual or physical computer device that accepts information in digital or similar form and manipulates it for a specific result based on a sequence of instructions.

For the avoidance of doubt, no modification or distribution rights are granted to you for the software.

DISCLAIMER OF WARRANTIES: YOU AGREE THAT AMERICAN PROBE & TECHNOLOGIES HAS MADE NO EXPRESS WARRANTIES TO YOU REGARDING THE SOFTWARE AND THAT THE SOFTWARE IS BEING PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND. AMERICAN PROBE & TECHNOLOGIES DISCLAIMS ALL WARRANTIES WITH REGARD TO THE SOFTWARE; EXPRESS OR IMPLIED; INCLUDING; WITHOUT LIMITATION; ANY IMPLIED WARRANTIES OF FITNESS FOR A PARTICULAR PURPOSE; MERCHANTABILITY; MERCHANTABLE QUALITY OR NONINFRINGEMENT OF THIRD PARTY RIGHTS. Some states or jurisdictions do not allow the exclusion of implied warranties; so the above limitations may not apply to you.

LIMIT OF LIABILITY: IN NO EVENT WILL AMERICAN PROBE & TECHNOLOGIES BE LIABLE TO YOU FOR ANY LOSS OF USE; INTERRUPTION OF BUSINESS; OR ANY DIRECT; INDIRECT; SPECIAL; INCIDENTAL; OR CONSEQUENTIAL DAMAGES OF ANY KIND (INCLUDING LOST PROFITS) REGARDLESS OF THE FORM OF ACTION WHETHER IN CONTRACT; TORT (INCLUDING NEGLIGENCE); STRICT PRODUCT LIABILITY OR OTHERWISE; EVEN IF AMERICAN PROBE & TECHNOLOGIES HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. Some states or jurisdictions do not allow the exclusion or limitation of incidental or consequential damages; so the above limitation or exclusion may not apply to you.

Company Name
Full Name
Phone
Email
Full Address

<% else %>

Thank you for your interest in the ProbeIV-4140B Software.

Download ProbeIV-4140B [17.9 MB]

<% end if %>

[ APT Home Page ] [ Probing Solutions ] [ Products ] [ Contact Information ] [ Inquiry Form ]

[ Shopping Cart ] Policies/Statements [ Web Links ]