<%@ Language=VBScript %> <%Response.Buffer = true%> Untitled Document <% if Request.Form("firsttime")="yes" then errstr = validate() if trim(errstr)="" then sendmail()%>

Thank You for your request. We will be contacting you shortly.
Click here to return to our home page.
<% Response.end end if end if %>
       
             
AC Fans DC Fans Accessories About Us Contact Us Home  


Selecting DC Cooling Fans
vs. AC Cooling Fans

Qwikflow fan guards consists of two right-angled, V-shaped spokes welded to concentric, chrome wire rings that together act as a barrier to debrit.

Our metal fan guards are available in a variety of sizes. The 40mm Metal Fan Guard is shown here and comes with four screws. However, we recommend using standard case screws to mount a grill to a 40x10mm fan such as the Sunon KD1204PFB1 to prevent breaking the thin plastic.

 

 

 

 
<% if trim(errstr)<>"" then Response.Write "
Unable to process request
" & errstr & "


" end if %>
Your Name* : ">
Title* : ">
Company* : ">
Your EMail address* : ">
Phone: ">
Fax: ">
How may we help you?
  Request for quote Have a sales rep contact me

Special Request:
  AC Fans | DC Fans | Fan Accessories | About Us | Contact Us | Home | Sitemap

<% function validate() estr="" if trim(Request.Form("name"))="" then estr=estr + "
  • Please Enter Name

    • " end if if trim(Request.Form("company2"))="" then estr=estr + "
  • Please Enter Company

    • " end if if trim(Request.Form("title"))="" then estr=estr + "
  • Please Enter Title

    • " end if if trim(Request.Form("email"))="" then estr=estr + "
  • Please Enter Email

    • " else status=validateemail() if status=1 then estr=estr+"
  • Enter Valid email address

    • " end if end if validate=estr end function function validateemail() redim sp_char_arr(26) sp_char_arr(0)=";" sp_char_arr(1)="*" sp_char_arr(2)=chr(32) sp_char_arr(3)=":" sp_char_arr(4)="!" sp_char_arr(5)=chr(34) sp_char_arr(6)="#" sp_char_arr(7)="$" sp_char_arr(8)="'" sp_char_arr(9)=chr(37) sp_char_arr(10)=chr(40) sp_char_arr(11)=chr(41) sp_char_arr(12)=chr(43) sp_char_arr(13)=chr(44) sp_char_arr(14)=chr(47) sp_char_arr(15)=chr(60) sp_char_arr(16)=chr(61) sp_char_arr(17)=chr(62) sp_char_arr(18)=chr(63) sp_char_arr(19)=chr(92) sp_char_arr(20)=chr(93) sp_char_arr(21)=chr(94) sp_char_arr(22)=chr(124) sp_char_arr(23)=chr(125) sp_char_arr(24)=chr(126) sp_char_arr(25)=chr(38) sp_char_arr(26)=chr(96) status=0 dot=instr(1,trim(Request.form("email")),".") if dot<=0 then status=1 end if if right(trim(Request.form("email")),1)="." then status=1 end if if left(trim(Request.form("email")),1)="." then status=1 end if count=0 pos=instr(1,trim(Request.form("email")),"@") if pos>0 then count=count+1 do while pos>0 pos=instr(pos+1,trim(Request.form("email")),"@") if pos>0 then count=count+1 end if 'Response.Write "pos="&pos&"
    " 'Response.Write "count="&count&"
    " loop if count>1 then status=1 'Response.Write " too many @" end if else status=1 'Response.Write "@ not found" end if ans=instr(1,trim(Request.form("email")),"@") if ans<=0 then status=1 'errorstr=errorstr+"
  • Enter Valid email address

    • " end if if ans=len(trim(Request.form("email"))) then status=1 'errorstr=errorstr+"
  • @ in endEnter Valid email address

    • " end if if ans=1 then status=1 'errorstr=errorstr+"@ in beg
    " end if if instr(1,Request.form("email"),chr(32))>0 then status=1 end if for i=0 to 26 if instr(1,Request.Form("email"),sp_char_arr(i)) then status=1 end if next 'if status=1 then ' if email address is not valid ' errorstr="
  • Enter Valid email address

    • " 'end if validateemail=status end function sub sendmail() Set myMail = CreateObject("CDONTS.NewMail") dim strbodytext strNewLine=chr(13) strBodyText = "This mail has been sent from the Website Solution Request Page" strBodyText = strBodyText & strNewLine & strNewLine strBodyText = strBodyText & strNewLine & "Name : " & Request.form("name") strBodyText = strBodyText & strNewLine & "Title : " & Request.form("title") strBodyText = strBodyText & strNewLine & "Company : " & trim(Request.form("company2")) strBodyText = strBodyText & strNewLine & "Email : " & trim(Request.form("email")) strBodyText = strBodyText & strNewLine & "Phone : " & Request.form("phone") strBodyText = strBodyText & strNewLine & "Fax : " & Request.form("fax") & strNewLine if Request.Form("Manf")<>"" then strBodyText = strBodyText & strNewLine & "Please provide me with a quote." end if if Request.Form("Dist")<>"" then strBodyText = strBodyText & strNewLine & "Please have a sales rep contact me." end if strBodyText = strBodyText & strNewLine & trim(Request.Form("message")) & strNewLine & strNewLine myMail.To = "info@qwikflow.com" myMail.From = trim(Request.form("name")) & "(" & trim(Request.form("email")) & ")" myMail.Subject = "QWIKFLOW.COM FORM SUBMISSION" myMail.BodyFormat = 1 myMail.MailFormat = 1 myMail.Body = strBodyText myMail.send end sub %>