Hej...

Jag har ett stort problem. Min ISP har bytt till Aspupload och jag har skrivit mina koder mot w3u
(uploadkomponent) och nu vet jag inte hur jag ska få det och funka.

Så här ser min kod ut:

<code>

'DECLARE OBJECTS
Dim oCon
Dim oRs
Dim w3u


'DB CONNECTIONS
sConString = Application("DBNetCombine")


'OBJECT CREATION
Set w3u = Server.CreateObject("Persits.Upload")
Set oCon = Server.CreateObject("ADODB.Connection")



'OPEN CONNECTIONS
oCon.Open sConString



'REQUEST COOKIES



'REQUEST QUERIES



'REQUEST FORMS
If (Request.ServerVariables("request_method") = "POST") Then
sDbAction = w3u.Form("DbAction")
sNews_Head = w3u.Form("news_head")
sNews_Ingress = w3u.Form("news_ingress")
sNews_Body = w3u.Form("news_body")
Set sNews_Image= w3u.Form("news_image")
bNews_Published= w3u.Form("news_published")
dNews_PublishedDate= w3u.Form("news_publishdate")
Else
sDbAction = Request.QueryString("DbAction")
iNews_Id = Request.QueryString("news_id")
End If


If (sDbAction = "EditNews") Then
iNews_Id = w3u.Form("news_id")
End If



'HANDLE DATA
If (Request.ServerVariables("request_method") = "POST") Then
If (sNews_Image.IsFile) Then
sNews_ImagePath = Server.MapPath("../../../photos/" & sNews_Image.fileName)
sNews_ImagePath = sNews_Image.SaveAsUniqueFile(sNews_ImagePath)
Set sImgUrl = Server.CreateObject("Scripting.FileSystemObject")
sNews_ImageFileExits = True
sNews_ImageName = "photos/" & sImgUrl.GetFileName(sNews_ImagePath)
Else
If (sDbAction <> "EditNews") Then
sNews_ImageName = "photos/NoImagePresent.gif"
End If
End If
Set w3u = nothing
End If

</code>

Kan någon hjälpa mig att få det rätt???

Peter

Ja jag kan ge dig ett steg i ratt riktning..

1. Vad ar det som ar fel eller vilken bit har du problem med?
2.
3.
4.

.... :D I think u get my point.....

Om du inte ens har forsokt att sjalv omvandla koden sa gor det forst!

1. Problemet är att jag vill få det hela att istället funka med ASPUpload.

Titta på ASPUploads exempelkod och utgå från den.
Stöter du på patrull då så återkom med kod så ska vi nog kunna peka dig i rätt riktning.


Ledsen om jag gör dig besviken men ingen kommer att skriva om koden åt dig gratis.


//Anna-Karin

Varför inte det? ;-)