<%
option explicit
Response.Buffer = true
if session("company_id") <> "" then
dim conn
dim rs
dim ssql
dim objUpload
dim sPartner_Id
dim sPartner_Name
dim sPartner_URL
dim sPartner_Email
dim sImages
dim FileControler
dim myfile
dim fsize
dim return_page
dim item
dim value
dim file
%>
<%
set FileControler = server.CreateObject("Scripting.FileSystemObject")
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objUpload.Upload
For each file In objUpload.Files
sImages = file.FileName
Next
'Select each item in form
'************************
For each item In objUpload.Form
'Select each value of the current item
'*************************************
For each value In objUpload.Form(item)
'get information
if item = "partner_name" then
sPartner_Name = value
end if
if item = "partner_url" then
sPartner_URL = value
end if
if item = "partner_email" then
sPartner_Email = value
end if
Next
Next
sPartner_Id = day(now) & month(now) & year(now) & hour(now) & minute(now) & second(now)
If Len(sImages) > 0 Then
sImages = lcase(sImages)
objUpload.Save server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/images/")
set myfile = FileControler.GetFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/images/") & "/" & sImages)
fsize = myfile.size
else
fsize = 1
End If
if fsize >= session("partner_logo_file_size") then
FileControler.DeleteFile server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/images/") & "/" & sImages
Response.Write ""
Response.Write "Sorry, images size are limited at " & session("display_partner_logo_file_size")
Response.Write "
click here to modify..."
else
'add new data
set rs = server.CreateObject("adodb.recordset")
rs.Open "tbl_partner",conn,3,3
'add new data
rs.AddNew
rs.Fields("partner_id") = sPartner_Id
rs.Fields("partner_name") = sPartner_Name
rs.Fields("partner_url") = sPartner_URL
rs.Fields("partner_email") = sPartner_Email
rs.Fields("partner_logo") = sImages
rs.Update
rs.Close
conn.Close
set rs = nothing
set conn = nothing
return_page = ""
Response.Write return_page
end if
set FileControler = nothing
else
Response.Redirect "../../index.asp"
end if
%>