06. marts 2003 - 22:22Der er
16 kommentarer og 1 løsning
Database virker ikke
Hejsa,
Jeg har et lille problem med min kode... Det er en kode som skal oprette en ny bilmodel i en databse og en masse oplysninger samt et billede som uploades via ASPSimpleUpload men det virker ikke... Den laver et nyt ID i databasen men uden data... Dvs. en hel masse tome felter og billede bliver heller ikke uploadet. Upload scriptet skulle ellers virke jeg bruger det samme et andet sted hvor det virker... ER der nogle som kan se fejlsen ?
Her er koden til at oprette i databasen og uploade billedet:
<%
Dim upl, NewFileName
Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
If Len(upl.Form("billede1")) > 0 Then NewFileName = "/Images/UserBiler/" & upl.ExtractFileName(upl.Form("billede1")) If upl.SaveToWeb("billede1", NewFileName) Then Response.Write("Billede blev uploadet på server så ") Else Response.Write("Fejl! Billedet blev ikke uploadet men ") End If End If
Kan det ikke gøres på en nemmere måde ? Det enste jeg skal er at tilføje data til databasen samt uploade et billede og gemme filnavnet i databasen... Jeg vil bare kun bruge komponenten ASPSimpleUpload
Jeg har lavet lidt om i koden så nu kan de godt uploade filen men ikke gemme i databasen.
Jeg for denne fejl:
File successfully written to disk. Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'strConnect'
/addusercar-gem.asp, line 18
Og her er min nye kode: -------------------------------- <%
Option Explicit
Dim upl, NewFileName
Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
If Len(upl.Form("File1")) > 0 Then NewFileName = "/images/userbiler/" & upl.ExtractFileName(upl.Form("File1")) If upl.SaveToWeb("File1", NewFileName) Then Response.Write("File successfully written to disk.") Else Response.Write("There was an error saving the file to disk.") End If End If
Som jeg skrev tidligere skal du definere alle dine variable, det gør du i toppen, der hvor du allerede er begyndt. Dim upl, NewFileName, strConnect, objConn, BrugerId, bilmarke, bilmodel, aar, mortor, hk, falge, daak, undervogn, bilstereo, styling, interior, udstyr, bemarkninger, File1
-------------------------------- File successfully written to disk. Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] The INSERT INTO statement contains the following unknown field name: 'File1'. Make sure you have typed the name correctly, and try the operation again.
/addusercar-gem.asp, line 46 ------------------------
På linje 46 står der: call objConn.execute(strINSERT)
har du en reccord i din database der hedder File1 ? (det siger fejlen at du ikke har !) Du skal ændre File1 til det det recordnavn (feltnavn) du har i DB. (husk at evt. at ændre det i din Dim sætning)
Fejlen er: --------------------------- File successfully written to disk. Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] The INSERT INTO statement contains the following unknown field name: 'File1'. Make sure you have typed the name correctly, and try the operation again.
/addusercar-gem.asp, line 46 ---------------------------
Koden er: --------------------------- <%
Option Explicit
Dim upl, NewFileName Dim objConn Dim strINSERT Dim BrugerId, bilmarke, bilmodel, aar, mortor, hk, falge, daak, undervogn, bilstereo, styling, interior, udstyr, bemarkninger, File1 Dim strConnect
Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
If Len(upl.Form("File1")) > 0 Then NewFileName = "/images/userbiler/" & upl.ExtractFileName(upl.Form("File1")) If upl.SaveToWeb("File1", NewFileName) Then Response.Write("File successfully written to disk.") Else Response.Write("There was an error saving the file to disk.") End If End If
Umiddelbart ville jeg ændre alle de steder der står File1 til billede1, for konsistensens skyld. God fornøjelse - nu vil jeg til at se dyner - jeg kigger tilbage imorgen tidlig.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
