<% ' This is coded by nick@stilwell.ws 'using the upload.asp example from asp101.com ' and combining it with the mail object to allow ' you upload a pic from your pc and email to anyone anywhere ' at anytime maybe it should be called martini mail Response.Buffer = true Function BuildUpload(RequestBin) 'Get the boundary PosBeg = 1 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13))) boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg) boundaryPos = InstrB(1,RequestBin,boundary) 'Get all data inside the boundaries Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--"))) 'Members variable of objects are put in a dictionary object Dim UploadControl Set UploadControl = CreateObject("Scripting.Dictionary") 'Get an object name Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition")) Pos = InstrB(Pos,RequestBin,getByteString("name=")) PosBeg = Pos+6 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34))) Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg)) PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename=")) PosBound = InstrB(PosEnd,RequestBin,boundary) 'Test if object is of file type If PosFile<>0 AND (PosFile "" Then contentType = UploadRequest.Item("blob").Item("ContentType") filepathname = UploadRequest.Item("blob").Item("FileName") filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) FolderName = UploadRequest.Item("where").Item("Value") 'Response.Write "FolderName: " & FolderName & "
" Path = Mid(Request.ServerVariables("PATH_TRANSLATED"), 1, Len(Request.ServerVariables("PATH_TRANSLATED")) - Len(Request.ServerVariables("PATH_INFO"))) & "\" 'Response.Write "Path:" & Path & "
" ToFolder = Path & "\" & FolderName value = UploadRequest.Item("blob").Item("Value") filename = ToFolder & "\" & filename Set MyFileObject = Server.CreateObject("Scripting.FileSystemObject") Set objFile = MyFileObject.CreateTextFile(filename) 'Response.Write "Saved Path: " & filename For i = 1 to LenB(value) objFile.Write chr(AscB(MidB(value,i,1))) Next objFile.Close Set objFile = Nothing Set MyFileObject = Nothing End If ' ge the other form elements now MySubject = UploadRequest.Item("MySubject").Item("Value") MyTo = UploadRequest.Item("MyTo").Item("Value") MyText = UploadRequest.Item("MyText").Item("Value") MyFrom = UploadRequest.Item("MyFrom").Item("Value") Set UploadRequest = Nothing Set objCDOMail = Server.CreateObject("CDO.Message") Set cdoCON = Server.CreateObject ("CDO.Configuration") cdoCON.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.teal.net" cdoCON.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 cdoCON.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 cdoCON.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 cdoCON.Fields.Update Set objCDOMail.Configuration = cdoCON ObjCDOMail.From = MyFrom ObjCDOMail.To = MyTo ObjCDOMail.Subject = MySubject ObjCDOMail.TextBody = MyText 'heres an if statement to chk for an attachment ' I am sure theres another way but this does the job fine If Len(filename) > 5 then objCDOMail.AddAttachment filename,nikfile end if ObjCDOMail.Send Set ObjCDOMail = Nothing Set cdoCON = Nothing Response.Redirect("custom-order2.html") End If%> Angelo's Creations ~ Custom Design Jewelry, Order Jewelry

Custom Jewelry Design from Angelo's Creations

Custom Designed Jewelry Order Form for Custom Made Jewelry

Custom Designed Jewelry

      
Custom Jewelry Design Contact Angelo's Creations Order Custom Design Jewelry
 

A picture can be worth a thousand words, if you have one of a design you would like us to emulate or borrow features from, attach it here. [help]

File:
Comment:
 
No problem, just move on to step two.
 
 
Pricing: Determining the price for a custom design job is always tricky because each design is so unique. The basic price for just a ring (without gems) ranges from $400-$1,000 depending on how complex the ring is. If you want your ring (or other design) in Platinum the range goes up to $1,200-$2,000. For more detailed pricing information click on the link.

[Home] [Dreams to Reality] [Order] [Custom Design Gallery] [Contact Us] [Mall Entrance] [Custom Jewelry FAQ] [More Custom Design Information]

Custom Designed Jewelry
The Custom Design Process
Order your Custom Jewelry
Our Custom Design Gallery
Contact Angelo's Creations
Learn about Custom Jewelry
More Info on Custom Made Jewelry