<% Response.Expires = 0 Response.Buffer = True byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) 'response.write byteCount Dim UploadRequest Set UploadRequest = server.CreateObject("Scripting.Dictionary") PosBeg = 1 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13))) boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg) boundaryPos = InstrB(1,RequestBin,boundary) Do Until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--"))) Dim UploadControl Set UploadControl = CreateObject("Scripting.Dictionary") 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) If PosFile<>0 And (PosFile"" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(Server.mappath(filename)) For i = 1 to LenB(value) 'response.write Server.mappath(filename)&chr(AscB(MidB(value,i,1))) MyFile.Write chr(AscB(MidB(value,i,1))) Next MyFile.Close set scriptobject = nothing end if ''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' strBody="Order Information" &vbcrlf _ &"Full Name:- "&nn &vbcrlf _ &"E-Mail:- "&mail1 &vbcrlf _ &"Instant Messenger:- "&messenger &vbcrlf _ &"Company:- "&company &vbcrlf _ &"Company Position: "&job &vbcrlf _ &"Company URL: "&cURL &vbcrlf _ &"Country:- "&country &vbcrlf _ &"State :- "&state &vbcrlf _ &"City:- "&city &vbcrlf _ &"Phone:- "&phone &vbcrlf _ &"Zip: "&zip &vbcrlf _ &"Company activity: "&cactivity &vbcrlf _ &"The services you are intersted in:"&ch1 &" , "&ch2&" , "&ch3&" , "&ch4 &" , "&ch5&" , "&ch6 &" , "&ch7 &" , "&ch8 &vbcrlf _ &"Budget:- "&R &vbcrlf _ &"Budget Comment"&budgetComment &vbcrlf _ &"deadline: "&project &vbcrlf _ &"Site Definition:- "&s1 &vbcrlf _ &"Suggested visual/audio effects:- "&C1&" , "&C2&" , "&C3&" , "&C4&" , "&C5 &vbcrlf _ &"What sites have FUNCTIONALITY close to desired? "&ta1 &vbcrlf _ &"The sites with the same look and feel: "&ta2 &vbcrlf _ &"The material provided:- "&chh1&","&chh2&" , "&chh3&" , "&chh4&" , "&chh5 &" , "&chh6 &vbcrlf _ &"The company goals:- "&ta3 &vbcrlf _ &"The suggested functionality:- "&cc1&" , "&cc1&" , "&cc2&" , "&cc3&" , "&cc4&" , "&cc5&" , "&cc6&" , "&cc7&" , "&cc8&" , "&cc9&" , "&cc10&","&cc11&" , "&cc12&" , "&cc13&" , "&cc14&" , "&cc15&" = "&other &vbcrlf _ &"Number of pages needed"&s2 &vbcrlf _ &"hosting:- "&s3 &vbcrlf _ &"Additional Information:- "&ta5 &vbcrlf _ &"File:- "&file &vbcrlf _ &"Knowing us from:- "&t 'response.write strbody 'response.write "mail="&mail1 result = sendmail(mail1, "nagyhosny@yahoo.com",nn, "admin", "mail.dotlook.com", "USER DETAILS En", strBody,"CDONTS" ) %>

  << Contact Us     

 

  |  Get quotation for your project  |  Contact us  |

 
 

 

 

 

 

 




<% if result = "sent" then response.write"

Your Data is posted successfully to the site's administrator...." else response.write"sending E-Mail........." end if %>

 

 

 

 

 
   
   

 

       | About us | Packages | Services | Clients | Support | Contact us |       

All Rights Resered to Dotlook.com 2002 - 2007