Uploading Pictures According to the data

[baby]

hi danial
Thanks for your help. The code works!

really appericate it


Btw when i try to modify the coding to suit my function for updating. It gives me a error msg

Error Type:
Dundas.Upload.2 (0x80004005)
Failed to get the boundary.
/project_virtual/process_update.asp, line 26


any idea what does Failed to get bounday means???

[Danial]

Originally posted by baby
hi danial
Thanks for your help. The code works!

really appericate it


Btw when i try to modify the coding to suit my function for updating. It gives me a error msg

Error Type:
Dundas.Upload.2 (0x80004005)
Failed to get the boundary.
/project_virtual/process_update.asp, line 26


any idea what does Failed to get bounday means???

I have no idea, I have never used this component before, just wrote the code using the example and help file. I use pure code to upload files as some server does not allow installing component.

Post line 25, and few lines before and after it, i might figure out the problem.

Danial

[baby]

hm... i didnt modify any of the coding before line 26 and after that.. I only modify the adding of sql statment

I think its some problem when passing variables from one page to the other.. I am attaching my 2 pages

Search update and processupdate

search update display result in text box and allow user to change it and i include the picture browse inputbox to also allow user to change the picture.

Then this information is passed to processupdate to be updated into my DB.

[Danial]

I stripped out the DB code, and seem to work fine for me. Not that you can not use Request.Form("ElementName") use

objUpload.form("ElementName")

change this following line

lngRecordNo = Request.Form("txtcode")
to
lngRecordNo = objUpload.Form("txtcode")


Try now see if that solves the problem.

[baby]

hm.... after changing the coding to objupload.(txtcode) it can be successfully redirect to form.asp but the problem now is.

The database is not changed at all.. its still the same... What might be the cause of this?

Is it possible that objupload.(txtcode) is empty?

[Danial]

Yes it could be,

do the following

Dim SQL
Sql="SELECT * FROM projectlog WHERE Project_Code like '%" & lngRecordNo&"%'"
 
'take the following two line when you have the code working
response.write sql
response.end
''''''''''''''''''
 
RS.Open sql, Conn, 3, 2

That will tell you the sql query you are passing, will show you if u are passing the right sql.

[baby]

argh~~~ the error come back up Failed to get boundary again!

Using objupload.(txtcode) but still have this error...

[baby]

ok after some try managed to get rid of the failed to get boundary error....

Now the sql looks like this when i do a response.write sql

SELECT * FROM projectlog WHERE Project_Code like '%%'

It doesnt have any value!

same goes for

rs.fields("Date")=objUpload.Form("Date")
        rs.fields("Company")=objUpload.Form("Company")
        rs.fields("Project_Coordinator")=objUpload.Form("Coordinator")
        rs.fields("Designers")=objUpload.Form("Designer")
        rs.fields("Project_Description")=objUpload.Form("Description")
        rs.fields("Picture")=ImagePath

Only imagepath have value. But those with objupload.(element) got no value..

[Danial]

Thats because the field names in the process_update.asp and search_update do not match !

e.g in process_update you have txtcode

but in search_update you are using

objUpload("Code"). Either change the field name in process_update.asp or change it in search_update.asp to
objUpload("txtcode")

Do that for all the field names, and it should work




PS: what was reason behind the boundary error?

[baby]

Oh...

Yah but i got the field name right for txt code.

For my search update i have

<input name="txtcode" type="text" value="<%response.write(Session("uCode"))%>" size="" maxlength="20" disabled="true">

for my proces_update i have

lngRecordNo = objUpload.Form("txtcode")
 
 
ConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("projectdb.mdb")
 
Set conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
 
Conn.Open(ConString)
'sql="SELECT * FROM projectlog WHERE Project_Code like '%" & lngRecordNo &"%'", Conn, 3, 2
sql="SELECT * FROM projectlog WHERE Project_Code like '%" & lngRecordNo &"%'"
    RS.Open sql, Conn, 3, 2
    response.write sql
    response.end

the field name matches for both page. When i do the

response.write sql

like you told me. The lngRecodNo is blank.. =(

[baby]

ah man... I finally fixed the post error..

I used get instead of post in form action. They showed me that information is passed to process_updated form.

But txtcode is not passed over. That makes me wonder.
The culprit is disabled="true".. Seems like once u disabled a text box the information cant be passed over to other pages.

Or at least in my case.


Danial, is it possible to forced a resolution for the picture displayed? Eg: 500 x 400. Picture bigger that this will be scaled down. is that possible?

[Danial]

Yes it is, use the code from link link to get the image size. Now put a if statement like

if lngWidth>500 then
imgWidth=500
end if

if lngHeight>400 then
imgHeight=400
end if

response.write "<img src='" & rs("Picture") & "' width=" & imgWidth & " height=" & imgHeight & ">"


Or you could use javascript on client side to resize the image, but that wont look good, as when loaded the image will be shown as big and resized after few mili second.

[Danial]

Originally posted by baby
The culprit is disabled="true".. Seems like once u disabled a text box the information cant be passed over to other pages.

Dont use Disabled=true, use Readonly instead

e.g
<input name="txtcode" type="text" value="<%response.write(Session("uCode"))%>" size="" maxlength="20" Readonly>

Also do not use Get, use post, as you are passing image data. It wont work.

Hope this helps.

Danial

[baby]

oh thx alot danial =)

[baby]

hi danial

i went the 4guys site and downloaded the image resize coding. but dun seem to understand how does it work for my situation.

Do you have any example that i can follow thru?

[abhijit]

Check if ReadOnly works in Netscape Browser. I don't think it does.

Cheers,
Abhijit

[Danial]

Originally posted by baby
Do you have any example that i can follow thru?

Here you go, Make sure you specify a valid image path by changing the path name.

<%
    dim Path
 
    'enter your image path
    path=server.mappath("help.gif")
    'path="your path here"
 
    dim w,h,c,strType
 
    if gfxSpex(Path, w, h, c, strType) = true then
              response.write "Width : " & w & "<br>"
              response.write "Height : " & h & "<br>"
              response.write "Color : " & c & "<br>"
    end if
%>
 
<%
 
  function GetBytes(flnm, offset, bytes)
 
     Dim objFSO
     Dim objFTemp
     Dim objTextStream
     Dim lngSize
 
     on error resume next
 
     Set objFSO = CreateObject("Scripting.FileSystemObject")
 
     ' First, we get the filesize
     Set objFTemp = objFSO.GetFile(flnm)
     lngSize = objFTemp.Size
     set objFTemp = nothing
 
     fsoForReading = 1
     Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading)
 
     if offset > 0 then
        strBuff = objTextStream.Read(offset - 1)
     end if
 
     if bytes = -1 then     ' Get All!
 
        GetBytes = objTextStream.Read(lngSize)  'ReadAll
 
     else
 
        GetBytes = objTextStream.Read(bytes)
 
     end if
 
     objTextStream.Close
     set objTextStream = nothing
     set objFSO = nothing
 
  end function
 
 
  ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  ':::                                                             :::
  ':::  Functions to convert two bytes to a numeric value (long)   :::
  ':::  (both little-endian and big-endian)                        :::
  ':::                                                             :::
  ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  function lngConvert(strTemp)
     lngConvert = clng(asc(left(strTemp, 1)) + ((asc(right(strTemp, 1)) * 256)))
  end function
 
  function lngConvert2(strTemp)
     lngConvert2 = clng(asc(right(strTemp, 1)) + ((asc(left(strTemp, 1)) * 256)))
  end function
 
 
  ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  ':::                                                             :::
  ':::  This function does most of the real work. It will attempt  :::
  ':::  to read any file, regardless of the extension, and will    :::
  ':::  identify if it is a graphical image.                       :::
  ':::                                                             :::
  ':::  Passed:                                                    :::
  ':::       flnm        => Filespec of file to read               :::
  ':::       width       => width of image                         :::
  ':::       height      => height of image                        :::
  ':::       depth       => color depth (in number of colors)      :::
  ':::       strImageType=> type of image (e.g. GIF, BMP, etc.)    :::
  ':::                                                             :::
  ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  function gfxSpex(flnm, width, height, depth, strImageType)
 
     dim strPNG
     dim strGIF
     dim strBMP
     dim strType
     strType = ""
     strImageType = "(unknown)"
 
     gfxSpex = False
 
     strPNG = chr(137) & chr(80) & chr(78)
     strGIF = "GIF"
     strBMP = chr(66) & chr(77)
 
     strType = GetBytes(flnm, 0, 3)
 
     if strType = strGIF then               ' is GIF
 
        strImageType = "GIF"
        Width = lngConvert(GetBytes(flnm, 7, 2))
        Height = lngConvert(GetBytes(flnm, 9, 2))
        Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1)
        gfxSpex = True
 
     elseif left(strType, 2) = strBMP then      ' is BMP
 
        strImageType = "BMP"
        Width = lngConvert(GetBytes(flnm, 19, 2))
        Height = lngConvert(GetBytes(flnm, 23, 2))
        Depth = 2 ^ (asc(GetBytes(flnm, 29, 1)))
        gfxSpex = True
 
     elseif strType = strPNG then           ' Is PNG
 
        strImageType = "PNG"
        Width = lngConvert2(GetBytes(flnm, 19, 2))
        Height = lngConvert2(GetBytes(flnm, 23, 2))
        Depth = getBytes(flnm, 25, 2)
 
        select case asc(right(Depth,1))
           case 0
              Depth = 2 ^ (asc(left(Depth, 1)))
              gfxSpex = True
           case 2
              Depth = 2 ^ (asc(left(Depth, 1)) * 3)
              gfxSpex = True
           case 3
              Depth = 2 ^ (asc(left(Depth, 1)))  '8
              gfxSpex = True
           case 4
              Depth = 2 ^ (asc(left(Depth, 1)) * 2)
              gfxSpex = True
           case 6
              Depth = 2 ^ (asc(left(Depth, 1)) * 4)
              gfxSpex = True
           case else
              Depth = -1
        end select
 
 
     else
 
        strBuff = GetBytes(flnm, 0, -1)     ' Get all bytes from file
        lngSize = len(strBuff)
        flgFound = 0
 
        strTarget = chr(255) & chr(216) & chr(255)
        flgFound = instr(strBuff, strTarget)
 
        if flgFound = 0 then
           exit function
        end if
 
        strImageType = "JPG"
        lngPos = flgFound + 2
        ExitLoop = false
 
        do while ExitLoop = False and lngPos < lngSize
 
           do while asc(mid(strBuff, lngPos, 1)) = 255 and lngPos < lngSize
              lngPos = lngPos + 1
           loop
 
           if asc(mid(strBuff, lngPos, 1)) < 192 or asc(mid(strBuff, lngPos, 1)) > 195 then
              lngMarkerSize = lngConvert2(mid(strBuff, lngPos + 1, 2))
              lngPos = lngPos + lngMarkerSize  + 1
           else
              ExitLoop = True
           end if
 
       loop
       '
       if ExitLoop = False then
 
          Width = -1
          Height = -1
          Depth = -1
 
       else
 
          Height = lngConvert2(mid(strBuff, lngPos + 4, 2))
          Width = lngConvert2(mid(strBuff, lngPos + 6, 2))
          Depth = 2 ^ (asc(mid(strBuff, lngPos + 8, 1)) * 8)
          gfxSpex = True
 
       end if
 
     end if
 
  end function
  %>

[Danial]

Originally posted by abhijit
Check if ReadOnly works in Netscape Browser. I don't think it does.

Cheers,
Abhijit

Depends on what version of Netscape you are using. Older version of NS does not support ReadOnly, but neither does it support Disabled! It is supported in newer version of NS. Opera and Mozilla supports it as far as i know.

ReadOnly is a valid property as described in the W3 HTML Specification.

http://www.w3.org/TR/html401/interac...#adef-readonly

When the disabled property is used in any form element the content of the field is not submited.

[baby]

thanks alot danial. Will start to go thru the coding. And be prepared to be irritated by my question later on haha


Oh and thx for the info on the disabled property. Now i know the disabled is a killer!

[baby]

Danial! i just wanna say you are really very helpful...

I just managed to do the scaling. If not for ya, i would not have learn so much about uploading image...

If in anychange you need my help just let me know =)

I will certainly try my best to help ya =)

My icq is #73247670

[Danial]

Originally posted by baby
Danial! i just wanna say you are really very helpful...

I just managed to do the scaling. If not for ya, i would not have learn so much about uploading image...

If in anychange you need my help just let me know =)

I will certainly try my best to help ya =)

My icq is #73247670

Thanks for the compliment . We are all here to help and learn from each other.

I think teaching some one else is one of the greate way to learn...

Sorry stopped using ICQ for about 3 years.

Good luck.

Danial

[baby]

yeah we are all here to help each other =)

alright no problem drop me a email if you want to contact me

[baby]

Danial - Remeber that time u helped me on storing the pathing of where the picture is stored into the Database?

It stored a path EG: c:\inetpub\pictures\upload\123.gif

This is fine when i run the asp on my computer.

But when i tried accessing the asp pages from other computer. They cant find the image file. Becos its pointing to c:\inetpub\pictures\upload\123.gif but this file is not on their computer.

Anyway to fix this????

[abhijit]

Store the images on the webserver and not on your local pc.

Also use Server.MApPath to get the relative path of the image.

Regards,
Abhijit

[baby]

hi abhijit can u give me a example how to use the server.MapPath?

But right now my this program is done on my this PC and i dun think my supervisor would have access to the webserver in our school.

[abhijit]

hi baby,
server.mappath can be used to map absolute paths to relative paths. Check This Link For More

u are developing your program on your pc, but you need to host it on a web-server so that everyone can access it.

How are you accessing the asp from another pc? Where is the location of the webserver?

Cheers,
Abhijit

[baby]

Originally posted by abhijit
hi baby,
server.mappath can be used to map absolute paths to relative paths. Check This Link For More

u are developing your program on your pc, but you need to host it on a web-server so that everyone can access it.

How are you accessing the asp from another pc? Where is the location of the webserver?

Cheers,
Abhijit

Oh i am accessing it by just typing the IP of my computer and the path of where my project is held.

EG 172.xxx.xx.23/project/index.asp

in this case anyway to fix this?

[abhijit]

Ok. My suggestion to you is store the mapped path inside the database instead of the absolute path.

Then when your asp reads the path, it will show the image correctly on your friend's pc as well.

Check it out.

Cheers,
Abhijit

[baby]

hm.. I think only danial could help me on this... Cos he did the componenent for upload for me..

I still dunnoe how i am going to put relative pathing.

currently theres a column in my database that store the picture pathing. Right now its storing absolute pathing..

EG: C:\inetpub\wwwroot\project\pictures\upload\emilia123.gif

i tried changing it to pictures\upload\emilia123.gif or project\pictures\upload\emilia123.gif but cant work =(

[abhijit]

Originally posted by baby

currently theres a column in my database that store the picture pathing. Right now its storing absolute pathing..

EG: C:\inetpub\wwwroot\project\pictures\upload\emilia123.gif

i tried changing it to pictures\upload\emilia123.gif or project\pictures\upload\emilia123.gif but cant work =(

Change it to

pictures/upload/emilia123.gif Notice the difference in the slash. And then check it out.

Cheers,
Abhijit

[baby]

after some tweaking i finally got it able to work


But i did this by hardcoding

this is what i did

server.MapPath("pictures\upload\ddtree.gif")

it works for this.. But this is not what i wanted cos i will be taking the path value from my database


i want it to be something like this

server.MapPath(rs.fields("Picture")) but i get a type mismatch error

cani noe the excat syntax?

[abhijit]

Originally posted by baby
after some tweaking i finally got it able to work


But i did this by hardcoding

this is what i did

server.MapPath("pictures\upload\ddtree.gif")

it works for this.. But this is not what i wanted cos i will be taking the path value from my database


i want it to be something like this

server.MapPath(rs.fields("Picture")) but i get a type mismatch error

cani noe the excat syntax?

your field contains the c:\ so its giving an error.
when you store you will have to do a server.mappath
that ways everyone accessing the page will be able to see the pictures.

-abhijit

[baby]

um.. can u give me a more detail explanation=) sorry cant really understand what you are trying to say

[abhijit]

Detailed Explanation follows:
+++++++++++++++++++++++++++++
When you upload the image, you are storing the image in your local drive.
You are also storing the same absolute path of the drive.
This is causing this path to be displayed in property of the img tag.
<img>c:\localpath\yourimage.jpg</img>

Instead of storing the local path of the image, my suggestion to you is to
store the relative path in the database.

So when your webpage is accessed through any pc, the path displayed in the localpath will be
<img>/localpath/yourimage.jpg</img>

Am I being clear or do you need some more explanations?

Cheers,
Abhijit

[baby]

ok this i know. Cos i already did it


But what i am puzzled right now is this

guys i need your here pls tell me what is wrong with this statement

My Picture column contain this picture\upload\123.gif

path=rs.fields(picture)
 
server.mappath(path)//error line

if i do the above code i will get a type mismatch error

path="picture\upload\123.gif"
 
server.mappath(path)

but if i do this then every thing turns out fine...

What is wrong with this!??

the above is taken off my post at here http://www.vbforums.com/showthread.p...hreadid=277869

[baby]

ok i think i know whats the problem already

Cos some of my picture column is empty

and i think server.mappath can handle empty string. Thats y the type mismatch error..



Ok any way to solve this??So that i can handle empty string?

[baby]

ok i solved it.. By doing another way around...By putting default value into my picture column... Thx all for the help.....

[abhijit]

Originally posted by baby
ok i solved it.. By doing another way around...By putting default value into my picture column... Thx all for the help.....

way to go baby!