bajCons.com - Your Technology Conscience

You can contact us with any questions via the information listed below. Please note in the subject line which service(s) you are inquiring about;

bajCons, LLC - your technology conscience…
631 Frailey Road
Irvona, PA 16656

Telephone: (814) 414-4194
Email: info@bajcons.com

or, you can use the following form to inquire about our service(s).

<% if Request.Form("Email") <>"" then ' ' Send the e-mail ' ' Use Windows Server 2003 built-in collaborative data ' objects and the IIS SMTP server ' Dim objSendMail, cdoConfig, objFields, strBody strBody = "" strBody = strBody & "

" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "


Organization:	" & Request.Form("org") & "
Name:	" & Request.Form("name") & "
Address:	" & Request.Form("address") & "
Address 2:	" & Request.Form("address2") & "
City:	" & Request.Form("city") & "
State:	" & Request.Form("state") & "
Zip:	" & Request.Form("zip") & "
Phone:	" & Request.Form("phone") & "
E-mail:	" & Request.Form("email") & "

Consulting:	" & Request.Form("consulting") & "
Web Hosting:	" & Request.Form("webhost") & "
Data Recovery:	" & Request.Form("dr") & "
Mail Hosting:	" & Request.Form("mailhost") & "
Support:	" & Request.Form("support") & "
Offsite Backup:	" & Request.Form("offbackup") & "
Ip Telephony:	" & Request.Form("iptel") & "
Virtual / Dedicated Server Hosting:	" & Request.Form("vdsrv") & "
Website Design:	" & Request.Form("webdesign") & "
Comments:	" & Request.Form("comments") & "

" tstrBody = "" tstrBody = tstrBody & "Organization: " & Request.Form("org") & vbCrLf& vbCrLf tstrBody = tstrBody & "Name: " & Request.Form("name") & vbCrLf& vbCrLf tstrBody = tstrBody & "Address: " & Request.Form("address") & vbCrLf& vbCrLf tstrBody = tstrBody & "Address 2: " & Request.Form("address2") & vbCrLf& vbCrLf tstrBody = tstrBody & "City: " & Request.Form("city") & vbCrLf& vbCrLf tstrBody = tstrBody & "State: " & Request.Form("state") & vbCrLf& vbCrLf tstrBody = tstrBody & "Zip: " & Request.Form("zip") & vbCrLf& vbCrLf tstrBody = tstrBody & "Phone: " & Request.Form("phone") & vbCrLf& vbCrLf tstrBody = tstrBody & "E-mail: " & Request.Form("email") & vbCrLf& vbCrLf& vbCrLf& vbCrLf tstrBody = tstrBody & "Consulting: " & Request.Form("consulting") & vbCrLf& vbCrLf tstrBody = tstrBody & "Web Hosting: " & Request.Form("webhost") & vbCrLf& vbCrLf tstrBody = tstrBody & "Data Recovery: " & Request.Form("dr") & vbCrLf& vbCrLf tstrBody = tstrBody & "Mail Hosting: " & Request.Form("mailhost") & vbCrLf& vbCrLf tstrBody = tstrBody & "Migration: " & Request.Form("support") & vbCrLf& vbCrLf tstrBody = tstrBody & "Offsite Backup: " & Request.Form("offbackup") & vbCrLf& vbCrLf tstrBody = tstrBody & "Ip Telephony: " & Request.Form("iptel") & vbCrLf& vbCrLf tstrBody = tstrBody & "Support: " & Request.Form("vdsrv") & vbCrLf& vbCrLf tstrBody = tstrBody & "Server Hosting: " & Request.Form("webdesign") & vbCrLf& vbCrLf tstrBody = tstrBody & "Comments: " & Request.Form("comments") & vbCrLf& vbCrLf sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "smtpserverport") = 25 .Item(sch & "sendusing") = 2 .Item(sch & "smtpauthenticate") = 1 .Item(sch & "sendusername") = "jarrod.sward@bajcons.com" .Item(sch & "sendpassword") = "6@jC0n511c" .Item(sch & "smtpserver") = "smtp.bajcons.com" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "jarrod.sward@bajcons.com" .To = "jarrod.sward@bajcons.com" .Subject = "bajCons Web Form Submission" .TextBody = tstrBody .HtmlBody = strBody .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing %> We have received your message!<%=strBody %> <% else %>

Organization
Contact Name
Address

City
State			Zip
Phone
E-mail

Please select the services that are of interest to you:
	Consulting	Website Hosting
	Data Recovery	Mail Hosting
	Support	Offsite Backup
	Ip Telephony	Virtual / Dedicated Server Hosting
	Website Design

Comments

<% end if %>

1-814-414-4194
Hours: M-F 8AM to 5PM EST

Feel free to contact us 24/7, by using our contact form and we will respond as soon as possible.

Home | Services | Support | Company | Contact