<% Dim strPath Dim strSQL Dim strName Dim strCompany Dim strPhone Dim strEmail Dim strCountry Dim strComments Dim txtcode strName =StripSpecialChar( trim(Request.Form("txtName"))) strCompany =StripSpecialChar( trim(Request.Form("txtCompany"))) strPhone =StripSpecialChar( trim(Request.Form("txtPhone"))) strPhone1 =StripSpecialChar( trim(Request.Form("txtPhone"))) strExt = StripSpecialChar(trim(Request.Form("txtExt"))) if strExt <> "" then strPhone = strPhone& " Ext. "&strExt end if strEmail = StripSpecialChar(trim(Request.Form("txtEmail"))) strCountry = StripSpecialChar(trim(Request.Form("txtCountry"))) strComments =StripSpecialChar( trim(Request.Form("txtComments"))) txtcode =StripSpecialChar( trim(Request.Form("code"))) If StripSpecialChar(Request.Form ("cmdsubmit")) = "Submit" and txtmsg ="" then strSQL = "Insert into RequestInfo(UserName,Company,Phone,Email,Country,Comments) values('" & strName & _ "','" & strCompany & "','" & strPhone & "','" & strEmail & "','" & strCountry & "','" & strComments & "')" Conn.Execute strSQL,1 'ON Error Resume Next strEmailSubject = "Request Info(Contact Us)- binarysemantics.com" strEmailBody = "Request Info(Contact Us)- binarysemantics.com

"&_ "Name : "& strName & "
" &_ "Company's Name : "& strCompany & "
"&_ "Phone : "& strPhone & "
"&_ "Email : "& strEmail & "
"&_ "Country : "& strCountry & "
"&_ "Comments : "& strComments & "
" Const cdoSendUsingPickup = 1 Const cdoSendUsingPort = 2 Const cdoSendUsingExchange = 3 Const cdoAnonymous = 0 Const cdoBasic = 1 Const cdoNTLM = 2 'Sends an email To aTo email address, with Subject And TextBody. 'The email is In text format. 'Lets you specify BCC adresses, Attachments, smtp server And Sender email address on error resume Next Dim Message 'As New CDO.Message '(New - For VBA) 'Create CDO message object Set Message = CreateObject("CDO.Message") 'Set configuration fields. With Message.Configuration.Fields 'Original sender email address .Item("http://schemas.microsoft.com/cdo/configuration/sendemailaddress") = strEmail 'SMTP settings - without authentication, using standard port 25 on host smtp .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "64.106.249.163" 'SMTP Authentication .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoAnonymous .Update End With 'Set other message fields. With Message 'From, To, Subject And Body are required. .From = strEmail .To = "ypmanchanda@bslindia.com" '.To = "kuldeep@bslindia.com" .Cc = "romi@binarysemantics.com; webmaster@bslindia.com; noopurg@binarysemantics.com;samrat@binarysemantics.com " .Subject = strEmailSubject 'Set TextBody property If you want To send the email As plain text '.TextBody = "This is a test for CDO.message" 'Set HTMLBody property If you want To send the email As an HTML formatted .HTMLBody = strEmailBody 'Blind copy And attachments are optional. ' If Len(BCC)>0 Then .BCC = BCC 'If Len(Files)>0 Then .AddAttachment Files 'Send the email .Send End With '************ commented by kuldeep sidhu starts *********** '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 = "kuldeep@bslindia.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 Set Conn = nothing Response.Redirect("thankyou.html") Response.End() end if Sub DisplayBody() %> Contact Binary Semantics Inc: Request Info, Request Information Online