Upload/download til SQL Server 2000 med komponenten SAFileUp
Hi,Jeg anvender FileUp's mulighed for upload til database (SQL Server 2000). Selve uploadfunktionen virker efter hensigten - tror jeg. Filen bliver helt sikkert uploadet til c:/temp på serveren, men når jeg går ind i SQL Server via SQL Enterprise Manager står der blot <Binary> i feltet hvor filen skulle være uploadet til - kan det passe? Burde der ikke (som i Accsess) være en angivelse af, hvad det er for en type data/fil der ligger i feltet?
En indikation på at der er noget galt er at når jeg downloader "filen" (for noget kan jeg godt downloade) fylder den lige præcis 0,0 kb og filen er som oftest umulig at åbne i den tilhørende applikation.
Dette er koden for upload (modificeret fra samples fra SA):
<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = "c:\temp"
%>
<% If Not IsObject(upl.Form("inpFile")) Then %>
snip
<% ElseIf upl.Form("inpFile").IsEmpty Then %>
snip
<% ElseIf upl.Form("inpFile").ContentDisposition <> "form-data" Then %>
snip
<%Else %>
<p>Filen er uploadet til serveren.</p>
<%
'Open Recordsets
set rsBlob = Server.CreateObject("adodb.recordset")
rsBlob.Open "BlobTable", "driver={SQL Server};server=[IP-nummer];uid=[db_owner];pwd=[db_owner pwd];database=IFI_ifiintra", 2, 3
'Add new record and update
rsBlob.AddNew
rsBlob.Fields("Author") = upl.form("inpAuthor")
rsBlob.Fields("Description") = upl.form("inpDescription")
rsBlob.Fields("Type") = upl.form("inpType")
upl.form("inpFile").SaveAsBlob rsBlob.Fields("filecol")
%>
<%
'--- Add file name
FileName = Mid(upl.UserFilename, InstrRev(upl.UserFilename, "\") + 1)
Response.Write "<p>File name send to SQL Server:" & Filename & "</p>"
rsBlob.Fields("Filename") = FileName
rsBlob.Update
rsBlob.Close
Set rsBlob = Nothing
%>
/Lars
