<%@LANGUAGE="VBSCRIPT"%>
<%
'*********************************
'* *
'* ONLY UPLOAD *
'* http://www.DwZone-it.com *
'* *
'*********************************
server.ScriptTimeout = 5400
Dim RG_Connection, RG_editColumn, RG_recordId, Form, editAction, editRedirectUrl, RG_Files, RG_formName, UploadType, ParamVal, ParamList, MaxFieldNumber, TmpVal, x, y, Key, ProgressBar, UploadStatus, NumFile
Dim RG_altVal, RG_columns, RG_Cong, RG_dbValues, RG_dbValuesTmp, RG_delim, RG_editCmd, RG_editQuery, RG_editQueryTmp, RG_emptyVal, RG_Ext, RG_Extensions, RG_fields, RG_FieldValueTmp, RG_FileDel, RG_FileExt, RG_formVal, RG_FS, RG_i, RG_L, RG_Len, RG_Max, RG_Name, RG_New, RG_newName, RG_Num, RG_Path, RG_Rec, RG_ret, RG_Save, RG_tableValues, RG_tableValuesTmp, RG_tst, RG_typeArray, RG_z
Dim tmpField_Name(), tmpValue_Name(), tmpField_Size(), tmpValue_Size(), QtyRecord, TotalFileSize, valueToRedirectSend
Set Form = New ASPForm
UploadID = Form.NewUploadID
ProgressBar = ""
TotalFileSize = "3000"
editRedirectUrl = "thankyou-images.html"
RG_Files = ";3;;jpg,eps,psd,gif,bmp,pdf;3000;1;;1;;;;0;;;;;;GOS1|;3;;jpg,eps,psd,gif,bmp,pdf;3000;1;;1;;;;0;;;;;;GOS2|;3;;jpg,eps,psd,gif,bmp,pdf;3000;1;;1;;;;0;;;;;;GOS3@_@_@0@_@_@ @_@_@@_@_@./"
RG_formName = "form1"
UploadType="Upload"
UploadStatus = ""
valueToRedirectSend = ""
NumFile = 0
if len(Request.QueryString("UploadID"))>0 then
Form.UploadID = Request.QueryString("UploadID")
end if
if (Request.QueryString <> "") Then
editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) & "?" & Request.QueryString & "&UploadID=" & UploadID
else
editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) & "?UploadID=" & UploadID
End If
Const fsCompletted = 0
If Form.State = fsCompletted Then
if Form.State = 0 then
Set ParamVal = CreateObject("Scripting.Dictionary")
tmp = split(RG_Files,"@_@_@")
ParamList = split(tmp(0),"|")
MaxFieldNumber = ubound(ParamList)
for x=0 to Ubound(ParamList)
TmpVal = Split(ParamList(x),";")
for y=0 to ubound(TmpVal)
Key = right("00" & cstr(x),3) & cstr(y)
ParamVal.add Key, TmpVal(y)
next
next
Form.Files.Save
response.write(getRedirect())
response.end
End If
ElseIf Form.State > 10 then
response.write " Some form error. Error code: " & Form.State & " Error List: 0 Form was successfully processed. 1 Request method is NOT post 2 Zero length request (there are no data in a source form) 3 Form is in a middle of process. 5 Initial form state 11 Boundary of multipart/form-data is not specified. 12 Unknown source form (Content-type must be multipart/form-data) 15 Client was disconnected before upload was completted. 16 Unexpected error from Request.BinaryRead method (ASP error).
"
End If
function GetFolderName(str): select case Str: case "GOS1": Ris = server.MapPath("UPLOADED-IMAGES/" & session.sessionID): case "GOS2": Ris = server.MapPath("UPLOADED-IMAGES/" & session.sessionID): case "GOS3": Ris = server.MapPath("UPLOADED-IMAGES/" & session.sessionID): end select: GetFolderName = Ris : end function
function myGetFileName(str): myGetFileName = Ris : end function
%>
Glen Oak Studio - CONTACT US
Ordering Memories Posters Information
Questions:Email glen@glenoakstudio.com or call 1-309-828-8417 should you have any questions or need clarification about our Memories Posters.
Sales Tax: Sales tax is applicable on all orders originating within the state of Illinois on the full amount of the purchase. There is no sales tax for purchases from other states or countries.
Placing Your Order: Email or give us a call to place an order. Because we will be working with your memorabilia, arrangements will need to be clarified on deliver of the items to the studio.
1. If you reside in McLean County, IL, delivering your memorabilia to the studio is the best option.
2. If you reside outside of McLean County, you will have to use some form of delivery service. When mailing your items to the studio, we urge you to insure your package. We will return your items upon completion of the project. We use the US Postal Service for our shipments.
Prints: Prints are printed on Kodak Endura Professional paper. Tested light keeping is equivalent to 100+ years before noticeable fading occurs in typical home display. These prints are capable of achieving the ultimate in image fidelity, color accuracy, unsurpassed sharpness and detail. Prints are produced at Miller Professional Imaging, which is one of the world’s finest professional labs.
Print Size: The Memories Poster Series is only available in a 16 x 24 format.
Pricing: The cost is $69 plus $15.00 for shipping and handling.
Return Policy: Glen Oak Studio must be notified by email glen@glenoakstudio.com or phone 1.309.828.8417 within 10 days of receipt of any damaged or defective merchandise. Glen Oak Studio cannot accept returns of items that have been altered in any way from their original form. Merchandise cannot be returned to Glen Oak Studio unless defective or damaged in shipping. Since the US Postal Service is the carrier, a claim must be filed with your local Post Office to process the refund.
