Upload fungerar men ej lagring av information

3 svar · 437 visningar · startad av sin_adec 12 jan. 2008

sin_adecMedlem sedan apr. 2002272 inlägg

12 jan. 2008 14:07#1

Hej!

Ska vi se.. arbetar med en upload som ska lagra uppgifterna i en access databas, självaste uppladdning av filer fungerar bra, men när informationen ska lagras i databasen så fungerar inte det, får dock inga felmeddelanden.

så nu undrar jag ifall ni bara kan kolla igenom koden och möjligtvis se det jag inte ser.

tack på förhand

<% @ LANGUAGE = VBSCRIPT %>
<html>
 <body>
  <% 
   set upl = Server.CreateObject("SoftArtisans.FileUp")

   ' Specify the path to where to file should be placed
   ' - here the current path is used (.) 
   upl.Path = Server.MapPath(".") 

   if (upl.IsEmpty) then
    Response.write "<p>Error: The file is empty or doesn't exist!</p>"
   elseif (upl.ContentDisposition <> "form-data") then
    Response.write "<p>Error: Upload failed!</p>"
   else
    Response.write "<p>The file was successfully uploaded.</p>"
   on error resume next 
   ' Save the uploaded file 
    upl.Save 
   end if 
   %>
   <%
   
   		
   		
Name = upload .Form("file").ShortFilename
Size =upload .Form("file").TotalBytes
Beskrivning = upload .Form("beskrivning")
kategori = upload .Form("kategori")
fotogalleri = upload .Form("fotogalleri")

   
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From fotogalleri"

RecSet.Open Addera, Connect, 3, 3

	RecSet.AddNew		
	Recset("bild1") = Name
	Recset("bild2") = Name 

	
 	RecSet.Update
	RecSet.close
    Connect.Close
	Set RecSet = nothing
	Set Connect = nothing
	
   
  %>
 </body>
</html>

voigtann1Medlem sedan juni 20019 519 inlägg

12 jan. 2008 14:19#2

du försöker göra en update när du ska göra en addNew.

red.

Kör istället en SQL Insert:

dim sSQL
sSQL = "INSERT INTO fotogalleri (bild1,bild2) VALUES ('" & Name & "','" & Name & "')"
Connect.Execute(sSQL)

sin_adecMedlem sedan apr. 2002272 inlägg

12 jan. 2008 15:32#3

Mycket märkligt för det fungerar inte, men jag ser i databasen att den hoppar ner ett steg, konstigt verkar som om "upload.form("file") inte har något värde

sidan med upload formulär ser ut på följande sätt för er som vill veta

	<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload.asp">

<div align="left">
        <table border="0" width="464" cellpadding="0" cellspacing="0">
          <tr>
            <td width="95%" colspan="2"><b>
            <font face="Verdana" color="#000080" size="2">Ladda upp bilder</font></b></td>
          </tr>
          <tr>
            <td width="95%" colspan="2">
        <hr color="#FF3300">
            </td>
          </tr>
          <tr>
            <td width="68%" bgcolor="#CCCCCC" align="left">
        <font face="Verdana" color="#000080" size="1">
        &nbsp;Välj en bild:</font><b><font size="1" face="Verdana" color="#000080"><br>
            <INPUT style=" font-family: verdana; font-size: 8pt; float:left" TYPE=FILE NAME="file" size="32" ></font></b></td>
            <td width="23%" bgcolor="#CCCCCC" rowspan="2" valign="middle" align="left">  <font face="Verdana" color="#000080" size="1">
			Max 1 Meg/bild</font></td>
          </tr>
          <tr>
            <td width="68%" bgcolor="#CCCCCC" align="left">
                            &nbsp;</td>
          </tr>
          <tr>
            <td width="95%" colspan="2">
              <font size="1" face="Verdana" color="#000080"><INPUT style="background-color: #E44112; color: #ffffff; font-family: verdana; font-size: 8pt" TYPE=SUBMIT VALUE="Ladda upp !" style="font-weight: 700"> 
				<% response.write Server.MapPath("/") %></font></td>
          </tr>
        </table>
</div>
	</FORM>

voigtann1Medlem sedan juni 20019 519 inlägg

12 jan. 2008 23:12#4

du söker efter upload.form("...") när ditt objekt heter upl. prova ändra upload itll upl eller tvärtom.