|
<%
dim sql
dim pathArray(5)
dim fileArray(5)
pathArray(0) = "renderings_hi"
'pathArray(1) = "renderings_md"
pathArray(2) = "renderings_lo"
pathArray(3) = "renderings_th"
'pathArray(4) = "renderings_zip"
' Create the FileUploader
Dim Uploader, File
Set Uploader = New FileUploader
' This starts the upload process
Uploader.Upload()
if Uploader.Form("submit") = "Insert" then
'+++++++ INSERT +++++++
Dim a,i,key,path
i=0
a=Uploader.Files.Keys
For Each File In Uploader.Files.Items
key=a(i)
path = pathArray(cStr(key))
' Save the file
File.SaveToDisk "C:\DOMAINS\abex.com\design_database\" & path & "\"
File.SaveToDisk "C:\DOMAINS\abex.com\design_database\renderings_lo\"
File.SaveToDisk "C:\DOMAINS\abex.com\design_database\renderings_th\"
fileArray(cStr(key)) = File.FileName
i = i + 1
Next
'========== added 01/27/2010-DWN:
Dim sSort
sSort = Uploader.Form("Project")
'==========
Set rsDesigns = Server.CreateObject("ADODB.Recordset")
rsDesigns.ActiveConnection = MM_AbexDesignsNew_STRING
'========== modified 01/27/2010-DWN:
sql = "INSERT INTO Table_Renderings (Project, Project_Sort, Web_Product, Web_Budget, Price, Client, Web_Configuration, Web_Options, Renderings, Renderings_HI, Renderings_LO, Renderings_TH, Size, Web_Size, Industry, ryn) VALUES("
'==========
sql = sql + "'" + Uploader.Form("Project") + "', "
'========== added 01/27/2010-DWN:
sql = sql + "'" + MakeSort(sSort) + "', "
'==========
sql = sql + "'" + Uploader.Form("Web_Product") + "', "
sql = sql + "'" + Uploader.Form("Web_Budget") + "', "
sql = sql + "'" + Uploader.Form("Price") + "', "
sql = sql + "'" + Uploader.Form("Client") + "', "
sql = sql + "'" + Uploader.Form("Web_Configuration") + "', "
sql = sql + "'" + Uploader.Form("Web_Options") + "', "
sql = sql + "'" + Uploader.Form("Renderings") + "', "
sql = sql + "'" + fileArray(0) + "', "
'sql = sql + "'" + fileArray(1) + "', "
'sql = sql + "'" + fileArray(2) + "', "
'sql = sql + "'" + fileArray(3) + "', "
sql = sql + "'" + fileArray(0) + "', "
sql = sql + "'" + fileArray(0) + "', "
'sql = sql + "'" + fileArray(4) + "', "
sql = sql + "'" + Uploader.Form("Size") + "', "
sql = sql + "'" + Uploader.Form("Web_Size") + "', "
sql = sql + "'" + Uploader.Form("Industry") + "', "
sql = sql + "'" + Uploader.Form("ryn") + "') "
' Response.write (" " + sql) rsDesigns.Source = sql rsDesigns.CursorType = 0 rsDesigns.CursorLocation = 2 rsDesigns.LockType = 1 rsDesigns.Open() Response.write "Record Updated Successfully" Response.end end if %> <% '========== added 01/27/2010-DWN: function MakeSort(sSrt) Dim s, s1, s2, s3 Dim i1, i2 s = sSrt s1 = "" s2 = "" s3 = "" If Len(s) > 0 Then ' get first part i1 = InStr(s, "-") If i1 = 0 Then i1 = Len(s) + 1 s1 = Left(s, i1 - 1) s = Mid(s, i1 + 1, Len(s)) End If If Len(s) > 0 Then ' get second part i1 = InStr(s, "-") If i1 = 0 Then i1 = Len(s) + 1 s2 = Left(s, i1 - 1) s = Mid(s, i1 + 1, Len(s)) End If If Len(s) > 0 Then ' get third part i1 = InStr(s, "-") If i1 = 0 Then i1 = Len(s) s3 = Left(s, i1) End If ' format our string here s = right("00000000" & trim(s1), 8) ' s = Format(CLng(s1), "00000000") If Len(s2) > 0 Then s = s & Right("0000" & s2, 4) Else s = s & "0000" If Len(s3) > 0 Then s = s & Right("0000" & s3, 4) Else s = s & "0000" MakeSort = s End Function '========== %> |