Databas och filuppladdning..

8 svar · 393 visningar · startad av Fredde Mannen 28 juli 2003

Fredde MannenMedlem sedan nov. 20014 054 inlägg

Frågan28 juli 2003 12:31#1

Här har jag en lite kod, jag vill vid den fetmarkerade texten lägga in filens namn och filändelse i databasen, hur skall jag göra får Server Error 500 hela tiden....

Har säkert skrivit helt fel på den raden...

Dim objSmartUpload, files

Set objSmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objSmartUpload.Upload
Set Files = objSmartUpload.Files("file")
myFiles = objSmartUpload.Save("/upload")

SQL = "INSERT INTO nyheter(rubrik, kort_om, nyheten,datum,typ,bild) VALUES("
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtRubrik"),"'","''") & "', "
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtKortom"),"'","''") & "', "
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtContent"),"'","''") & "', "
SQL = SQL & "'" & NOW & "', "
SQL = SQL & "'ARTIKEL', "
[b]SQL = SQL & "'/uploads/" & Replace(objSmartUpload.Form("txtFile").FileName,"'","''") & "'"[/b]
SQL = SQL & ")"
ObjConn.ExeCute(SQL)

Fredde MannenMedlem sedan nov. 20014 054 inlägg

28 juli 2003 12:58#2

Någon :q

JosefMedlem sedan mars 20023 561 inlägg

28 juli 2003 13:01#3

Hur ser sql-strängen ut om du skriver ut den?

Fredde MannenMedlem sedan nov. 20014 054 inlägg

28 juli 2003 13:08#4

Josef skrev:

Hur ser sql-strängen ut om du skriver ut den?

SQL = "INSERT INTO nyheter(rubrik, kort_om, nyheten,datum,typ,bild) VALUES("
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtRubrik"),"'","''") & "', "
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtKortom"),"'","''") & "', "
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtContent"),"'","''") & "', "
SQL = SQL & "'" & NOW & "', "
SQL = SQL & "'ARTIKEL', "
SQL = SQL & "'/uploads/" & Replace(objSmartUpload.Form("txtFile").FileName,"'","''") & "'"
SQL = SQL & ")"

men det kan inte ha med sql-strängen att gör, för plockar jag bort den så blir det fel ändå, sä här ser hele koden ut:

if(Request.QueryString("do") = "create") Then
Dim objSmartUpload, myFiles

Set objSmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objSmartUpload.AllowedFileList = "jpg,gif,png,txt,html,htm,pdf"
objSmartUpload.DenyPhysicalPath = False
objSmartUpload.MaxFileSize = 50000
objSmartUpload.Upload

Set Files = objSmartUpload.Files("file")
myFiles = objSmartUpload.Save("/uploadsdir")

if Err Then
Response.Write "fel" & Err.description
Else
SQL = "INSERT INTO nyheter(rubrik, kort_om, nyheten,datum,typ,bild) VALUES("
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtRubrik"),"'","''") & "', "
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtKortom"),"'","''") & "', "
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtContent"),"'","''") & "', "
SQL = SQL & "'" & NOW & "', "
SQL = SQL & "'ARTIKEL', "
SQL = SQL & "'/uploadsdir/image.gif'"
SQL = SQL & ")"
ObjConn.ExeCute(SQL)

Response.Redirect("artiklar.asp")
End if
End if

Och plockar jag bort sql-strängen så återstår felet! x(

SkarreMedlem sedan apr. 20012 427 inlägg

28 juli 2003 13:16#5

Skulle du kunna citera felmeddelandet? Vad gäller SQL-strängen menar Josef att du ska skriva ut den på sidan med Response.Write.

SQL = "INSERT INTO nyheter(rubrik, kort_om, nyheten,datum,typ,bild) VALUES("
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtRubrik"),"'","''") & "', "
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtKortom"),"'","''") & "', "
SQL = SQL & "'" & Replace(objSmartUpload.Form("txtContent"),"'","''") & "', "
SQL = SQL & "'" & NOW & "', "
SQL = SQL & "'ARTIKEL', "
SQL = SQL & "'/uploads/" & Replace(objSmartUpload.Form("txtFile").FileName,"'","''") & "'"
SQL = SQL & ")"

[b]Response.Write SQL
Response.End[/b]

Fredde MannenMedlem sedan nov. 20014 054 inlägg

28 juli 2003 13:22#6

Oki... nu har jag fixat så att jag får ett riktigt felmeddelande

aspSmartUpload error '800a0009'

Subscript out of range

/home/admin/save.asp, line 10

Hittar inget om detta felmeddelande på aspsmart.com...

NickemannenMedlem sedan aug. 20003 575 inlägg

28 juli 2003 13:33#7

Ja då får du kolla upp vad deras förklaring av det felmeddelandet är på den komponenten.

Fredde MannenMedlem sedan nov. 20014 054 inlägg

28 juli 2003 13:38#8

Nickemannen skrev:

Ja då får du kolla upp vad deras förklaring av det felmeddelandet är på den komponenten.

Hittade inget... man det löste sig.... såg att en liten grejj saknades:

ENCTYPE="multipart/form-data"

i formuläret! :r

solbulleMedlem sedan mars 20015 287 inlägg

28 juli 2003 15:52#9

http://www.aspsmart.com/scripts/aspSmartUpload/publigen/content/templates/show.asp?P=267&L=EN