Persits.Upload - fejl 40?

Forms:

<form method="post" enctype="multipart/form-data" action="create_subsite.asp?create=3">
  <p> Headline:<br>
    <input name="formHEADLINE" type="text" class="form-standard" id="formHEADLINE" size="70">
  </p>
  <p> Site text:<br>
    <textarea name="formTEXT" cols="71" rows="20" class="form-standard" id="formTEXT"></textarea>
  </p>
  <p>Picture:<br>
    <input type="file" name="file1" class="form-standard" size="50">
  </p>
  <p> In what submenu should this site be placed?<br>
    <select name="formMENUCAT" class="form-standard" id="formMENUCAT">
      <!--#include file="dbconn.asp"-->
      <%
        strSQL = "SELECT * FROM MENUCAT"
        Set rs = Conn.Execute(strSQL)
    %>
      <%
        do
       
        strMENUCAT = rs("MENUCAT")
    %>
      <option value="<%Response.Write(strMENUCAT)%>">
      <%Response.Write(strMENUCAT)%>
      </option>
      <%
        rs.movenext
        loop while not rs.eof
        rs.close
        set rs = nothing
    %>
      <!--#include file="dbclose.asp"-->
    </select>
  </p>
  <p>What do you wanna name the link in the menu for this site? (max 20 chars)<br>
    <input name="formLINKNAME" type="text" class="form-standard" id="formLINKNAME" size="20" maxlength="20">
    <input name="formSITETYPE" type="hidden" id="formSITETYPE" value="3">
  </p>
  <p>
    <input name="Submit" type="submit" class="form-standard" value="Submit">
  </p>
</form>

Koden:

set conn = Server.CreateObject("ADODB.Connection")
Session("MyConn") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("settings.mdb") & ";"

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = false
Upload.SetMaxSize 1000000, True
Upload.SaveVirtual ("/pictures/")

For Each File in Upload.Files

File.ToDatabase Session("MyConn"), "insert into SUBSITES(PICTURE, MENUCAT, HEADLINE, [TEXT], SITETYPE, LINKNAME) " &_
"values('"& File.ExtractFileName & "', '" & Upload.Form("formMENUCAT") & "', '" & Upload.Form("formHEADLINE") & "', '"&Upload.Form("formTEXT")&"','" & Upload.Form("formSITETYPE") & "', '" & Upload.Form("formLINKNAME") & "')"
if Err <> 0 Then
Response.Write "<font class=""maintekst"">Der er sket en fejl! : " & Err.Description

Else

Response.Write "<font class=""maintekst"">Tilføjet...</font>"

End If
Next

Det er en databasefejl og ikke en uploadfejl. Er alle dine felter i SUBSITES tekst/notat felter?

nej MENUCAT og SITETYPE var tal...

File.ToDatabase Session("MyConn"), "insert into SUBSITES(PICTURE, MENUCAT, HEADLINE, [TEXT], SITETYPE, LINKNAME) " &_
"values('"& File.ExtractFileName & "', " & Upload.Form("formMENUCAT") & ", '" & Upload.Form("formHEADLINE") & "', '"&Upload.Form("formTEXT")&"'," & Upload.Form("formSITETYPE") & ", '" & Upload.Form("formLINKNAME") & "')"

Samme fejl...

hvad præcis står der i linie 199 i create_subsite.asp samt de linie lige over?

File.ToDatabase Session("MyConn"), "insert into SUBSITES(PICTURE, MENUCAT, HEADLINE, [TEXT], SITETYPE, LINKNAME) " &_

Linierne over er disse:

set conn = Server.CreateObject("ADODB.Connection")
Session("MyConn") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("settings.mdb") & ";"

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = false
Upload.SetMaxSize 1000000, True
Upload.SaveVirtual ("/pictures/")

For Each File in Upload.Files

Jeg bliver nød til at smutte videre nu, har pause og skal finde mig noget mad inden timer igen. Ikke mere pc for i dag, så svarer nok først en gang efter 17...

*bump*

umiddelbart ser det korrekt ud med det sidste jeg skrev - men måske kræver ToDatabase noget specielt... prøv at lav en normal sql og udkommenter file.todatabase linien

SQL = "insert into SUBSITES(PICTURE, MENUCAT, HEADLINE, [TEXT], SITETYPE, LINKNAME)values('"& File.ExtractFileName & "', " & Upload.Form("formMENUCAT") & ", '" & Upload.Form("formHEADLINE") & "', '"&Upload.Form("formTEXT")&"'," & Upload.Form("formSITETYPE") & ", '" & Upload.Form("formLINKNAME") & "')"
Conn.Execute(SQL)

Og det kræver selvfølgelig at du connecter til databasen som normalt

Persits.Upload.1 error '800a001c'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Test Cat'.

/create_subsite.asp, line 198

Jeg prøvede din kode igen efter at have rettet lidt til, havde åbenbart en database connection og køre udenom koden... men det blev ikke rigtig bedre af det jo. Jeg får denne fejl, og Test Cat er noget jeg henter ud fra en drop down menu, lavet ud fra databasen.

insert into SUBSITES(PICTURE, MENUCAT, HEADLINE, [TEXT], SITETYPE, LINKNAME)values('ip-config(7).jpg', Test Cat, 'headline', 'text',3, 'linket')

sådan blev SQLen

ud fra ovenstående resultat så er MENUCAT enten ikke et tal-felt - eller også sætter du en forkert værdi ind

"Test Cat" som du forsøger at sætte ind er jo ikke et tal?

Hmm, feltet burde være et tal. Kan være jeg indputter en forkert værdi... skal lige undersøge den 2 secs.

Det lyder sandsynligt, da jeg har fået koden til at virke nu med text felter, dog kan den ikke udtrække det fra databasen som den bør ;)

du havde ret, jeg har lavet en fejl og skrive den samme variabel ud i både value og text feltet...

men det fungerer nu, jeg siger tak for pointet i den rette vej :D

Svar for points? ;)

svar