The best way to begin a conversation with us is through the form below. The information you provide will help us to have the most appropriate person contact you. Generally we are able to respond to inquiries within 24 hours.
<% Dim strTo, strSubject, strBody, email_u, email_n, text Dim objCDOMail 'The CDO object strTo = Request.Form("contactEmail") datum = date() ip = Request.ServerVariables("REMOTE_ADDR") fullname = Request.Form("fullname") jobTitle = Request.Form("jobTitle") contactTelephone = Request.Form("contactTelephone") contactEmail = Request.Form("contactEmail") company = Request.Form("company") URL = Request.Form("URL") employees = Request.Form("employees") company = Request.Form("company") URL = Request.Form("URL") employees = Request.Form("employees") years = Request.Form("years") description_project = Request.Form("description") message = Request.Form("message") strSubject = "WWW - Talk about your project" strBody = "Message was sent on " strBody = strBody & datum & " from IP " strBody = strBody & ip & vbCrLf strBody = strBody & "--------------------------------------------------------------------" & vbCrLf strBody = strBody & vbCrLf & " Name: " & fullname strBody = strBody & vbCrLf & " Title: " & jobTitle strBody = strBody & vbCrLf & " Phone: " & contactTelephone strBody = strBody & vbCrLf & " Email: " & contactEmail & vbCrLf strBody = strBody & "--------------------------------------------------------------------" & vbCrLf strBody = strBody & vbCrLf & " Company Name: " & company strBody = strBody & vbCrLf & " WEB: " & URL strBody = strBody & vbCrLf & " Number of Employees (approx): " & employees strBody = strBody & vbCrLf & " Years in Business (approx): " & years & vbCrLf strBody = strBody & "--------------------------------------------------------------------" & vbCrLf strBody = strBody & vbCrLf & " Brief Project Description: " & description_project strBody = strBody & vbCrLf & " Message: " & message strBody = strBody & vbCrLf & vbCrLf If strTo = "" Or Not IsValidEmail(strTo) Then If Request.Form("flag")="2" And Not IsValidEmail(strTo) Then response.write("
") response.write("") response.write "Please fill out required fields!" response.write("") End If %>

1. Your Contact Information

Name:		*
Title:		*
Phone:		*
Email:		*

2. Your Company Information

Company Name:		*
Web Address (URL):
Number of Employees (approx):		*
Years in Business (approx):		*

3.  Your Project Information

Brief Project Description: (If possible, please mention technology, budget and schedule expectations.)		*
Message:		Please contact me to discuss my project.

* required fields

<% Else Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = contactEmail objCDOMail.To = "dragan.nedeljkovic@regulussoft.com" objCDOMail.Subject = strSubject objCDOMail.Body = strBody objCDOMail.Send Set objCDOMail = Nothing response.write("
") response.write("") response.write "Thank you for your interest. We will review your project and contact you shortly." response.write("") End If Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function %>