BoorgMedlem sedan okt. 2004409 inlägg Jobbar förnärvarande på en dator utan iss och kan därför inte se felmedelanden. Är det någon som kan se ifall jag har missat något enkelt?
Dim mySmartUpload
Dim file
Dim intCount
intCount=0
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
For each file In mySmartUpload.Files
If not file.IsMissing Then
file.SaveAs("bilder/" & w & "/" & file.FileName)
Connect.Execute("INSERT INTO sk (Namn,Bild,Text) Values('" & w & "','" & file.FileName & "','" & Request.Form("Text") & "') ")
End If
Next
BoorgMedlem sedan okt. 2004409 inlägg Får det ändå inte att funka...
Namn = replace(Request.QueryString("w"), "'", "''")
Info = replace(Request.Form("Info"), "'", "''")
Dim mySmartUpload
Dim intCount
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
mySmartUpload.Save(Server.MapPath("bilder/" & Namn & "/" & Bild))
Connect.Execute("INSERT INTO sk (Namn,Bild,Info) Values('" & Namn & "','" & file.FileName & "','" & Info & "') ")
Även denna testad
Dim mySmartUpload
Dim file
Dim intCount
intCount=0
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
For each file In mySmartUpload.Files
If not file.IsMissing Then
file.SaveAs(Server.MapPath("bilder/" & Namn & "/" & file.FileName))
Connect.Execute("INSERT INTO sk (Namn,Bild,Info) Values('" & Namn & "','" & file.FileName & "','" & Info & "') ")
End If
Next
Även om jag tar bort raden när jag lägger in det i databasen, altså bara lägger upp en bild...
Denna sida ligger på cliche och det står att dom ska ha aspsmart på deras hemsida...
@ndersMedlem sedan juni 200032 969 inlägg På vilket sätt funkar det inte då?
Felmeddelande?
BoorgMedlem sedan okt. 2004409 inlägg Det är det som är det trista.. har ju inte iis... så jag får inget felmedelande...
@ndersMedlem sedan juni 200032 969 inlägg Men alltså... Hur kan du veta att det inte fungerar då?
Kan ingenting om aspsmartupload men jag vet att man inte får använda request.form i alla fall! :)
Info = replace(Request.Form("Info"), "'", "''")
borde vara
Info = replace(mySmartUpload.Form("Info"), "'", "''")
och flyttas ner under raden: mySmartUpload.Upload
Och du behöver inte ha tillgång till iis för att få se felmeddelanden.
Blir det fel så visas dem annars har du "friendly http errors" ikryssat i din browser (ändras under inställningar). :)