<% Dim strPath Dim strSQL Dim strEmailSubject, strEmailBody Dim txtcode txtIndustry=StripSpecialChar(Replace(trim(Request.Form("txtIndustry")),"'","''")) txtCompsize=StripSpecialChar(Replace(trim(Request.Form("txtCompsize")),"'","''")) txtContactname=StripSpecialChar(Replace(trim(Request.Form("txtContactname")),"'","''")) strEmail=StripSpecialChar(Replace(trim(Request.Form("txtContactemail")),"'","''")) txtCompname=StripSpecialChar(Replace(trim(Request.Form("txtCompname")),"'","''")) txtCompadd=StripSpecialChar(Replace(trim(Request.Form("txtCompadd")),"'","''")) txtCompphone=StripSpecialChar(Replace(trim(Request.Form("txtCompphone")),"'","''")) txtCompphone1=StripSpecialChar(Replace(trim(Request.Form("txtCompphone")),"'","''")) txtExt=StripSpecialChar(Replace(trim(Request.Form("txtExt")),"'","''")) txtExt1=StripSpecialChar(Replace(trim(Request.Form("txtExt")),"'","''")) if txtExt <> "" then txtCompphone = txtCompphone& " Ext. "&txtExt end if txtCompfax=StripSpecialChar(Replace(trim(Request.Form("txtCompfax")),"'","''")) txtCountry=StripSpecialChar(Replace(trim(Request.Form("txtCountry")),"'","''")) txtProbudget=StripSpecialChar(Replace(trim(Request.Form("txtProbudget")),"'","''")) txtTimebudget=StripSpecialChar(Replace(trim(Request.Form("txtTimebudget")),"'","''")) textdescription=StripSpecialChar(Replace(trim(Request.Form("textdescription")),"'","''")) selTime=StripSpecialChar(Replace(trim(Request.Form("selTime")),"'","''")) txtcode=StripSpecialChar(Replace(trim(Request.Form("code")),"'","''")) If StripSpecialChar(Request.Form ("cmdsubmit")) = "Submit" and txtmsg ="" then set rs = server.createobject("ADODB.Recordset") rs.open "select * from tbl_rfp",Conn,2,3 rs.addnew rs("industry")=txtIndustry rs("company_size")=txtCompsize rs("contact_name")=txtContactname rs("email")=txtContactemail rs("company_name")=txtCompname rs("company_address")=txtCompadd rs("phone")=txtCompphone rs("fax")=txtCompfax rs("country")=txtCountry rs("project_budget")=txtProbudget rs("timeline_project")=txtTimebudget rs("description")=textdescription rs("contact_time")=selTime rs.update rs.close strEmailSubject = "Request for Proposal - binarysemantics.com" strEmailBody = "Request for Proposal - binarysemantics.com

"&_ "Industry : "& StripSpecialChar(trim(Request.Form("txtIndustry"))) & "
" &_ "Company Size : "& StripSpecialChar(trim(Request.Form("txtCompsize"))) & "
" &_ "Contact Name : "& StripSpecialChar(trim(Request.Form("txtContactname"))) & "
" &_ "Contact Email : "& StripSpecialChar(trim(Request.Form("txtContactemail"))) & "
" &_ "Company Name : "& StripSpecialChar(trim(Request.Form("txtCompname"))) & "
" &_ "Company Address : "&StripSpecialChar( trim(Request.Form("txtCompadd"))) & "
" &_ "Company Phone : "& txtCompphone & "
" &_ "Company Fax : "&StripSpecialChar( trim(Request.Form("txtCompfax")) )& "
" &_ "Country Name : "& StripSpecialChar(trim(Request.Form("txtCountry"))) & "
" &_ "Project Budget : "&StripSpecialChar( trim(Request.Form("txtProbudget")) )& "
" &_ "Time Budget : "& StripSpecialChar(trim(Request.Form("txtTimebudget"))) & "
" &_ "Project Description :"& StripSpecialChar(trim(Request.Form("textdescription")) )& "
" &_ "Best Time for Contact : "& StripSpecialChar(trim(Request.Form("selTime")) )& "
" ON Error Resume Next Const cdoSendUsingPickup = 1 Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSendUsingExchange = 3 Const cdoAnonymous = 0 Const cdoBasic = 1 Const cdoNTLM = 2 Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Dim objConfig ' As CDO.Configuration Dim Fields ' As ADODB.Fields ' Get a handle on the config object and it's fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields ' Set config fields we care about With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort '.Item(cdoSMTPServer) = "192.168.34.228" .Item(cdoSMTPServer) = "64.106.249.160" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPConnectionTimeout) = 10 .Update End With 'Dim myMail1 'set myMail1 = server.CreateObject("CDO.Message") ' myMail1.From = "ProtsAdministrator@Binarysemantics.com" ' ' myMail1.Subject = "Summary Report of PROTS" 'myMail1.HTMLBody = mailBody 'myMail1.To = "asoni@binarysemantics.com;marketing@binarysemantics.com;" 'myMail1.Send 'set myMail1 = nothing Set objMail= Server.CreateObject("CDO.Message") Set objMail.Configuration = objConfig 'Set objMail= server.CreateObject("CDO.Message") objMail.To="romi@binarysemantics.com;ypmanchanda@bslindia.com;" objMail.To="marketing@binarysemantics.com" objMail.Cc="webmaster@bslindia.com; noopurg@binarysemantics.com;samrat@binarysemantics.com;" objMail.Bcc="noopurg@binarysemantics.com;" objMail.Subject=strEmailSubject objMail.From=strEmail objMail.HTMLBody=strEmailBody objMail.Send Set objMail = Nothing '************* commented by kuldeep sidhu starts ********** 'ON Error Resume Next 'Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" 'Const cdoSendUsingPort = 2 'Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver" 'Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport" 'Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" 'Const cdoBasic = 1 'Dim objConfig ' As CDO.Configuration 'Dim Fields ' As ADODB.Fields ' Get a handle on the config object and it's fields 'Set objConfig = Server.CreateObject("CDO.Configuration") 'Set Fields = objConfig.Fields ' Set config fields we care about 'With Fields ' .Item(cdoSendUsingMethod) = cdoSendUsingPort ' .Item(cdoSMTPServer) = "mail.binarysemantics.com" ' .Item(cdoSMTPServerPort) = 25 ' .Item(cdoSMTPConnectionTimeout) = 10 ' .Update 'End With 'Set objMail= Server.CreateObject("CDO.Message") 'Set objMail.Configuration = objConfig 'Set objMail= server.CreateObject("CDO.Message") 'objMail.To = "ajain@binarysemantics.com" 'objMail.To = "malvinder@binarysemantics.com; ypmanchanda@bslindia.com" 'objMail.Cc = "noopurg@binarysemantics.com" 'objMail.Cc = "webmaster@bslindia.com; noopurg@binarysemantics.com" 'objMail.Subject = strEmailSubject 'objMail.From= strEmail 'objMail.HTMLBody=strEmailBody 'objMail.Send 'Set objMail = Nothing '***************** commented by kuldeep sidhu ends ************* Set Conn = nothing Response.Redirect("thankyou.html") 'Response.End() end if Sub DisplayBody() %> BINARY SEMANTICS: Request for Proposal, Quote RFP, RFQ and RFI

Get a Free Quote for Your Project

Easily get a free Software Development quote or submit your RFP, RFQ or RFI! Complete this form and your Software Development quote request will be immediately delivered to you....

Fields with * are mandatory

Please Fill the Below Form

Industry :
Company Size :
Contact Name :*
Contact Email :*
Company Name:*
Company Address:
Phone No.:
Ext.:
Company Fax:
Country Name:*
Project Budget :
Timeline for Project :
Project Description :
Best Time for Contact:
Type the code shown
Try different image