Jeg fant den første feilen selv ....
(glemte "tellefil = Request.QueryString")
Men nå får jeg feilmelding på FTP-objectet mitt :\
-------
if objFTP.bQPutFile(strServername, strUserID, strPassword, strSourceFile,
strTargetFile, lngTransferType,True)Then
--------
gir meg følgende feilmelding :
---------
Microsoft VBScript runtime error '800a01c2'
Wrong number of arguments or invalid property assignment: 'bQPutFile'
/telling/sendfil.asp, line 20
--------------
dizl <morten.bekkelund@varner.no> wrote in message
news:sWUa6.585$xM5.971@news1.oke.nextra.no...
> Kan noen finne en feil i denne filen ?
>
> Jeg får følgende feilmelding :
> ----------
> Server object error 'ASP 0177 : 800a0035'
>
> Server.CreateObject Failed
>
> /telling/sendfil.asp, line 6
>
> The operation completed successfully.
> -------------
>
>
> FTP objectet fant jeg forresten på
http://www.niblack.com/products.asp
>
> --------------------------------------------------------------------------
--
> ----------------------------------------------------
>
> <%
> Dim tellfil, objFSO, tid, objFTP
> tid = Hour(Time)
> Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
>
> objFSO.CopyFile "c:\bht\nyedata\" & tellefil & "", "c:\temp\" & tellefil
&
> "." & tid & ""
> objFSO.CopyFile "c:\bht\nyedata\" & tellefil & "", "c:\bht\backup\" &
> tellefil & "." & tid & ""
> 'objFSO.CopyFile "c:\bht\nyedata\" & tellefil & "", "f:\" & tellefil & ""
> 'fungerer ikke pga rettigheter på iusr_
>
> Set objFTP = Server.CreateObject("NIBLACK.ASPFTP")
>
> strServerName = "hugin.butikk.varner.no"
> strUserID = "xxxxx"
> strPassword = "xxxxx"
> strSourceFile = Request.QueryString
> strTargetFile = Request.QueryString
> lngTransferType = "TRANSFER_TYPE_ASCII"
>
> if objFTP.bQPutFile(strServername, strUserID, strPassword, strSourceFile,
> strTargetFile, lngTransferType,True)Then
> 'yahooo...det funka
> objFSO.DeleteFile "c:\bht\nyedata\" & tellefil & ""
> Response.Write "Jippi! Det funka!<p>"
> 'Response.Redirect "default.asp"
> else
> Response.Write "Ooops!!! Noe gikk galt! Feilmelding : " & objFTP.sError
&
> " <p>"
> Response.Write "Filene ble ikke sendt, og blir derfor liggende på samme
> sted!<br><p>"
> Response.Write "Tror det er best at du sender en mail til <a
> href=mailto:pos@varner.no>POS PROBLEMER</a>"
> End If
>
> objFSO.Close
> objFTP.Close
> Set objFSO = Nothing
> Set objFTP = Nothing
> %>
>
>