<% Dim strPath Dim strSQL Dim strName Dim strEmail Dim strRName Dim strREmail strName =StripSpecialChar(trim(Request.Form("txtName"))) strEmail = StripSpecialChar(trim(Request.Form("txtYEmail"))) strRName =StripSpecialChar(trim(Request.Form("RName"))) strREmail = StripSpecialChar(trim(Request.Form("txtREmail"))) If Request.Form("cmdsubmit") = "Submit" 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 = "Binarysemantics.com" 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 if (strName <> "" and strEmail <> "") and (strRName <> "" and strREmail <> "") then strEmailBody = "" & strName & " has sent you Email from www.binarysemantics.com
" Set objMail= Server.CreateObject("CDO.Message") Set objMail.Configuration = objConfig objMail.To=strREmail & ";" 'objMail.To="romi@binarysemantics.com;ypmanchanda@bslindia.com;" 'objMail.To="marketing@binarysemantics.com" 'objMail.Cc="noopurg@binarysemantics.com;samrat@binarysemantics.com;" objMail.Bcc="hchandra@binarysemantics.com;lohumihem@gmail.com;" objMail.Subject=strEmailSubjectt objMail.From=strEmail objMail.HTMLBody=strEmailBody objMail.Send Set objMail = Nothing End if end if Dim ComMsg if (strName <> "" and strEmail <> "" and strRName <> "" and strREmail <> "") then ComMsg=strName & "(" & strEmail & ") has sent the mail to " & strRName & "(" & strREmail & ")" end if if (strName <> "" and strEmail <> "" and strRName <> "" and strREmail <> "") then strEmailBody = "" & ComMsg & "
" Set objMail= Server.CreateObject("CDO.Message") Set objMail.Configuration = objConfig 'objMail.To="romi@binarysemantics.com;ypmanchanda@bslindia.com;" objMail.To=strREmail & ";" 'objMail.To="marketing@binarysemantics.com" ' objMail.Cc="noopurg@binarysemantics.com;samrat@binarysemantics.com;" objMail.Bcc="hchandra@binarysemantics.com;lohumihem@gmail.com;" objMail.Subject=strEmailSubjectt objMail.From=strEmail objMail.HTMLBody=strEmailBody objMail.Send End if Set Conn = nothing Response.Redirect("thankyou_email.html") end if Sub DisplayBody() %> BINARY SEMANTICS INC: Request Info