Sypher Solutions Pvt. Ltd.

<% Dim ResultHTML Dim Form: Set Form = New ASPForm %> <% Server.ScriptTimeout = 1000 Form.SizeLimit = &H100000 Const fsCompletted = 0 If Form.State = fsCompletted Then 'Completted ResultHTML = ProcessForm ElseIf Form.State > 10 then Const fsSizeLimit = &HD Select case Form.State case fsSizeLimit: ResultHTML = "
Source form size (" & Form.TotalBytes & "B) exceeds form limit (" & Form.SizeLimit & "B)
" case else ResultHTML = "
Some form error.
" end Select End If if request.QueryString("Action") = "Cancel" then ResultHTML = "
Upload was cancelled" end if Function TempFolder() Dim FS Set FS = CreateObject("Scripting.FileSystemObject") 'Get temporary folder TempFolder = FS.GetSpecialFolder(2) & "\emailtemp" 'TempFolder = Server.MapPath("\test") & "\emailtemp" End Function Sub DeleteFile(FileName) Dim FS Set FS = CreateObject("Scripting.FileSystemObject") FS.DeleteFile FileName End Sub Function ProcessForm Dim eFrom, eTo, Subject, Message salutation=Form("salutation") FirstName=Form("FirstName") LastName=Form("LastName") Email=Form("Email") phone=Form("phone") City=Form("City") Company=Form("Company") URL=Form("URL") contact=Form("contact") Inquiry_Software=Form("Inquiry_Software") Inquiry_staff=Form("Inquiry_staff") Inquiry_back=Form("Inquiry_back") Inquiry_merger=Form("Inquiry_merger") Inquiry_sta=Form("Inquiry_sta") Inquiry_other=Form("Inquiry_other") Inquiry_otherbox=Form("Inquiry_otherbox") requirements=Form("requirements") eFrom = Email eTo = "dmanzer@thesagecloser.com" Subject ="Enquiry from www.thesagecloser.com" str="" str=str&"" str=str&"" str=str&"" str=str&"" str=str&"" str=str&"" str=str&"" str=str&"" str=str&"" str=str&"" str=str&"" str=str&"" str=str&"" str=str&"" str=str&"" str=str&"" str=str&"


Enquiry from theSageCloser.in
Contact Details
Salutation	"&salutation&"
First Name	"&FirstName&"
Last Name	"&LastName&"
Email	"&Email&"
Telephone Number	"&phone&"
City	"&City&"
Company URL	"&URL&"
Company	"&Company&"
Preferred method of initial contact	"&contact&"
Inquiry Details
Which of these services do you require?	"&Inquiry_Software&" "&Inquiry_staff&" "&Inquiry_back&" "&Inquiry_merger&" "&Inquiry_sta&" "&Inquiry_other&"
(Please Specify)	"&Inquiry_otherbox&"
* Please describe your requirements	"&requirements&"

" Dim HTML HTML = "
Server-side ASP script accepted source form with fields and files and email object was created. " HTML = HTML & "

Email parameters:" HTML = HTML & "
From: " & eFrom & "" HTML = HTML & "
To: " & eTo & "" HTML = HTML & "
Subject: " & Subject & "" HTML = HTML & "
Message: " & Message & "" HTML = HTML & "
Attachments:" For Each File In Form.Files.Items 'If source file is specified. If Len(File.FileName) > 0 Then HTML = HTML & "
" & File.Name & ": " & File.FileName & ", " & File.Length \ 1024 & "kB" FileName = TempFolder & "\" & File.FileName File.SaveAs FileName End If Next Set cdoConfig = Server.CreateObject("CDO.Configuration") 'sch = "http://schemas.microsoft.com/cdo/configuration/" cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = "mail.thesagecloser.com" 'mail.adsinmedia.com cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = Email cdoMessage.To = eTo cdoMessage.Subject = Subject cdoMessage.HTMLBody = str cdoMessage.AddAttachment FileName cdoMessage.Send cdoMessage.To = "dmanzer@thesagecloser.com" cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing 'delete temporary files For Each File In Form.Files.Items If Len(File.FileName) > 0 Then FileName = TempFolder & "\" & File.FileName on error resume next DeleteFile FileName End If Next HTML = HTML & "
" ProcessForm = HTML response.redirect"contact-us.asp?option=1123xxy" End Function %> Sypher Solutions Pvt. Ltd.


	Call us Today: (512) 255-SAGE

Contact The Sage Closer



				At The Sage Closer, we pride ourselves on close, individualized relationships with Sage Software Authorized Partners. Please contact us for a complimentary discussion of your sales and marketing needs, and possible outsourced solutions.
			The Sage Closer 16238 Hwy 620, Ste. F-247 Austin, TX 78717 (512) 255-SAGE (7243)


<% if request.querystring("option")="1123xxy" then response.write"Thank you for your valuable enquiry. We will get back to you in 24 hours." end if %>
* Required fields
Contact Details
Salutation
* First Name
* Last Name
* Email
Telephone Number
* City
* Company
Company URL
* Preferred method of initial contact
* Please describe your requirements
Please upload attachment here, if any
	Your privacy is valued.