<%@language="vbscript"%>
<%response.buffer=true%>
<%response.expires=0%>
<%Dim DestinationPath
Dim name1
Dim details
Dim Externalpath
Dim con_email
DestinationPath = Server.mapPath("..\..\UploadFolder")
'DestinationPath = "../WebData/forms"
'response.Write(DestinationPath)
Dim Form: Set Form = New ASPForm
'Server.ScriptTimeout = 2000
Form.SizeLimit = &H100000
If Form.State = 0 Then 'Completted
Dim DestFileName
Dim File
CNTFILES=0
For Each File In Form.Files.Items
CNTFILES=CNTFILES+1
If Len(File.FileName) > 0 Then
if cntfiles=1 then
DestFileName1 = GetUniqueFileName(File.FileName, DestinationPath)
File.SaveAs DestinationPath & "\" & DestFileName1
end if
end if
next
End If
'Form.State = 0 then
Dim gFS
'creates an unique filename
'in filename.ext, filename-1.ext, filename-2.ext, filename-3.ext, ... schema
Function GetUniqueFileName(FileName, DestPath)
'delete the existing file starts here
dim deletefilefs,f
set deletefilefs=Server.CreateObject("Scripting.FileSystemObject")
'set f=fs.GetFile("c:\theparsidirecotyr\admin\achalproc.txt")
if (deletefilefs.FileExists(server.MapPath(".") & "..\..\uploadfolder\" & "&filename&"))=true then
set f=fs.GetFile(server.MapPath(".") & "..\..\uploadfolder\" & "&filename&")
Response.Write ((server.MapPath(".") & "..\..\uploadfolder\" & "&filename&"))
f.Delete
set f=nothing
set deletefilefs=nothing
end if
'delete the existing file ends here
GetUniqueFileName = FileName
End Function
%>
<%
if Form("submit")="Submit" then
Name=Form("Name")
Category=Form("Category")
FirstName=Form("FirstName")
LastName=Form("LastName")
PCountry=Form("PCountry")
PArea=Form("PArea")
PNumber=Form("PNumber")
Email=Form("Email")
Website=Form("Website")
Comments=Form("Comments")
Set objSendmail = Server.CreateObject("CDO.Message")
mailbody= "Testing mail function from mercury"
With objSendmail
.From = Email'"ashykad@yahoo.com"
.to = "amod.barve@dwekam.org, dnhmum@dnhsecheron.net" 'form_to
.Subject = "Supplier Sheet details :: Enquired through website"
.HTMLBody="
Registration Information
Product Category
:
"&Category&"
Company Name
:
"&Name&"
Conatct Person
:
"&FirstName&" "&LastName&"
Conatct No.
:
+"&PCountry&" "&PArea&" "&PNumber&"
Website
:
"&Website&"
Email Address
:
"&Email&"
Comments
:
"&Comments&"
"
' .HTMLBody = u_name & " " & u_mess & " " & u_add & " " & u_phone & " " & u_fax & " " & u_mail & " " & u_web
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="64.69.33.43"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
.Configuration.Fields.Update
'if (DestFileName1)<>"" then
' .AddAttachment DestinationPath & "\" & DestFileName1
'end if
.Send
End With
set objSendMail = NOTHING
status="Y"
end if
%>
We offer more than products a COMPLETE SOLUTION
“Send
an email for an enquiry. We will promptly answer to
your question”
D&H Sécheron continues to be dedicated to
better quality with better material.
Information Registration The raw material D&H Sécheron uses
includes MILD STEEL WIRE ROD, STAINLESS STEEL WIRE ROD
AND FINSIH WIRE, PACKING MATERIAL HM & LDP, FERRO
ALLOY, MINERALS, NICKEL WIRE.
