Kan någon se varför inte bildvariabeln följer med från den ena sidan till den andra
Syftet med dessa filer är att en normalbild ska sparas och sen ska en förminskad bild sparas i en separat mapp
Från denna fil
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("/upload/images/cards"))
For Each file In Upload.Files
If File.ImageType = "UNKNOWN" Then
Response.Redirect "/error.asp?msg=wrongFileType"
File.Delete
End If
Next
For Each file In Upload.Files
If file.Size = 100000 Then
'This means the file was truncated
Response.Redirect "/error.asp?msg=fileTooBig"
File.Delete
End If
Next
Set File = Upload.Files
sender = replace(Upload.form("txtSender"),"'","''")
If NOT File Is Nothing Then
On Error Resume Next
strFileName= Upload.Files("blob").ExtractFileName
END IF
Dim objConn
SET objConn = connect()
picture = "INSERT INTO tblMotive"
picture = picture & "(motive,sender,cardOK) "
picture = picture & "VALUES('" & strFileName & "','"& sender &"',-1)"
objConn.Execute picture
%>
<%response.redirect "/persist-small-image.asp?pic="& strFileName &""%>
Kan någon se varför inte bildvariabeln följer med från den ena sidan till den andra
Syftet med dessa filer är att en normalbild ska sparas och sen ska en förminskad bild sparas i en separat mapp
Från denna fil
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("/upload/images/cards"))
For Each file In Upload.Files
If File.ImageType = "UNKNOWN" Then
Response.Redirect "/error.asp?msg=wrongFileType"
File.Delete
End If
Next
For Each file In Upload.Files
If file.Size = 100000 Then
'This means the file was truncated
Response.Redirect "/error.asp?msg=fileTooBig"
File.Delete
End If
Next
Set File = Upload.Files
sender = replace(Upload.form("txtSender"),"'","''")
If NOT File Is Nothing Then
On Error Resume Next
strFileName= Upload.Files("blob").ExtractFileName
END IF
Dim objConn
SET objConn = connect()
picture = "INSERT INTO tblMotive"
picture = picture & "(motive,sender,cardOK) "
picture = picture & "VALUES('" & strFileName & "','"& sender &"',-1)"
objConn.Execute picture
%>
<%response.redirect "/persist-small-image.asp?pic="& strFileName &""%>