<% Function isgoodemail(email) dim temp2, temp temp2 = false If Instr(email, "@")then temp = right(email, len(email)- instr(email, "@")) IF Instr(temp, ".") Then temp2 = true end if end if isgoodemail = temp2 end function %> <% sub cltmail dim cmd dim cntcnm dim state dim email dim phone dim address dim city dim zip dim information dim problem dim estimate dim reason dim objmail cntcnm=request.form("cntcnm") email=request.form("email") state=request.form("state") phone=request.form("phone") address=request.form("address") city=request.form("city") zip=request.form("zip") information=request.form("information") problem=request.form("problem") estimate=request.form("estimate") reason=request.form("reason") set objMail = Server.Createobject("cdonts.newmail") objmail.from = "info@pellmanelectric.com" objmail.to = email objmail.subject = "Info Requested " objmail.body = "One of our staff members will contact you with the info you've requested." objmail.send set objmail = nothing end sub %> <% sub signupmail dim htmltext dim cmd dim cntcnm dim state dim email dim phone dim address dim city dim zip dim information dim problem dim estimate dim reason dim objmail cntcnm=request.form("cntcnm") email=request.form("email") state=request.form("state") phone=request.form("phone") address=request.form("address") city=request.form("city") zip=request.form("zip") information=request.form("information") problem=request.form("problem") estimate=request.form("estimate") reason=request.form("reason") htmltext = "" htmltext = htmltext & "" htmltext = htmltext & "" htmltext = htmltext & "" htmltext = htmltext & "" htmltext = htmltext & "
" htmltext = htmltext & "

The Following Person has Requested Info: " htmltext = htmltext & cntcnm htmltext = htmltext & "

" htmltext = htmltext & "Their Email address is: " htmltext = htmltext & email htmltext = htmltext & "

" htmltext = htmltext & "Their phone number is:
" htmltext = htmltext & phone htmltext = htmltext & "

" htmltext = htmltext & "Their address is:
" htmltext = htmltext & address & " " htmltext = htmltext & city & " " htmltext = htmltext & state & " " & zip & " " htmltext = htmltext & "

" htmltext = htmltext & "The information requested is:
" htmltext = htmltext & information htmltext = htmltext & "

" htmltext = htmltext & "The electrical problem is:
" htmltext = htmltext & problem htmltext = htmltext & "

" htmltext = htmltext & "They would like an estimate on:
" htmltext = htmltext & estimate htmltext = htmltext & "

" htmltext = htmltext & "Contact them by:
" htmltext = htmltext & reason htmltext = htmltext & "
" htmltext = htmltext & "

" set objMail = Server.Createobject("cdonts.newmail") objmail.from = email objmail.to = "info@pellelectric.com" objmail.subject = name & " request info " objmail.bodyformat = 0 objmail.mailformat = 0 objmail.body = htmltext objmail.send set objmail = nothing end sub %> <% dim ckd1 dim ckd2 dim ckd3 dim ckd4 dim ckd5 dim ckd6 dim ckd7 dim ckd8 dim ckd9 dim ckd0 dim cmd dim acctnm dim plan dim cntcnm dim state dim email dim phone dim address dim zip dim information dim problem dim estimate dim reason dim errz dim erra dim err dim errp dim errc dim erro dim errt dim errh dim errf dim errv dim errs dim str cmd=request.form("cmd") acctnm=request.form("acctnm") cntcnm=request.form("cntcnm") email=request.form("email") plan=request.form("plan") state=request.form("state") phone=request.form("phone") address=request.form("address") city=request.form("city") zip=request.form("zip") info=request.form("information") problem=request.form("problem") estimate=request.form("estimate") reason=request.form("reason") err="" if cmd="" then ckd1="selected" end if if plan="pla" then ckd2="selected" end if if plan="plb" then ckd3="selected" end if if plan="plc" then ckd4="selected" end if if plan="pld" then ckd5="selected" end if if plan="ple" then ckd6="selected" end if if plan="plf" then ckd7="selected" end if if plan="plg" then ckd8="selected" end if if plan="plh" then ckd9="selected" end if if plan="pli" then ckd0="selected" end if if cmd="chk" Then if phone="" then errp=errp+"**PLEASE FILL IN YOUR PHONE NUMBER**
" end if if phone="" then err=err+"A" end if if address="" then erra=erra+"**PLEASE FILL IN YOUR MAIL ADDRESS**
" end if if address="" then err=err+"A" end if if city="" then errc=errc+"**PLEASE FILL IN YOUR CITY**
" end if if city="" then err=err+"A" end if if zip="" then errz=errz+"**PLEASE FILL IN YOUR ZIP CODE**
" end if if zip="" then err=err+"A" end if if cntcnm="" then errt=errt+"**PLEASE FILL IN YOUR NAME**
" end if if cntcnm="" then err=err+"A" end if if state="" then errs=errs+"**PLEASE FILL IN YOUR STATE**
" end if if state="" then err=err+"A" end if if reason="blank" then errf=errf+"**PLEASE SELECT ONE**
" end if if reason="blank" then err=err+"A" end if if not isgoodemail(email) then errh=errh+"**PLEASE FILL IN A PROPER EMAIL**
" end if if not isgoodemail(email) then err=err+"A" end if if err="" then signupmail end if if err="" then cltmail end if if err="" then response.redirect("thankyou2.asp") end if end if %> Info Request

Welcome to Pellman Electric's Info Request Page:
If you would like additional information on Pellman Electric, Inc., it's services or would like to have a representative contact you, please fill in the information below.

We appreciate all comments, inquiries and suggestions
<% response.write(errt)%> Your Name: >
<% response.write(errh)%> Email Address: >
<% response.write(errp)%> Phone Number: >
<% response.write(erra)%>Mail Address: >
<% response.write(errc)%> City: >
<% response.write(errs)%> State: >
<% response.write(errz)%> Zip Code: >
I am interested in more info on the following:

I have the following electrical problems:

I would like an estimate on the following:

<% response.write(errf)%> Please contact me by:  

Privacy Policy
At Pellman Electric, Inc., we hold your privacy in highest regard. The only information collected and retained by Pellman Electric, Inc. is information you submit. This information is used for internal company purposes only. Your information will never be given, sold, or traded to any other parties for marketing purposes.

If you would like to be removed from our e-mail list, please forward the original e-mail address with the subject and message stating such removal to info@pellmanelectric.com.

We believe that our policy provides our customers and visitors of the website with the professionalism necessary. Please direct any comments, concerns, questions or suggestions to info@pellmanelectric.com.