Untitled Document

--- title: "ASP upload problem" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/126679-asp-upload-problem" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "morris_the_cat" published: "2005-04-19T07:54:46.000Z" updated: "2005-04-19T08:41:59.000Z" replies: 4 views: 264 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/126679-asp-upload-problem" --- # ASP upload problem ## #1 — morris_the_cat, 2005-04-19T07:54Z Hej! Jag får inte min kod att fungera som jag vill. Även om jag laddar upp en bild så uppfylls bara villkoret efter \<% Else %\> är det nån som kan hjälpa mig? ``` <% Set Upload = Server.CreateObject("Persits.Upload") Count = Upload.Save(Server.MapPath("bilder")) ' Obtain file object Set File = Upload.Files("BILD") If Not File Is Nothing Then Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/max.mdb") ' If you use SQL Server, the connecton string may look like this: ' Connect = "Provider=SQLOLEDB;Server=SRV;Database=mydb;UID=sa;PWD=xxx" ' Use ADO Recordset object Set rs = Server.CreateObject("adodb.recordset") ' Optional: check whether this file already exists using MD5 hash 'Hash = File.MD5Hash ' rs.Open "SELECT * from bilder WHERE Hash='" & Hash & "'", Connect, 2, 3 'If Not rs.EOF Then 'Response.Write "This file already exists in the database." ' Response.End ' End If ' rs.Close ' Reopen recordset to insert file Addera = "SELECT * FROM bilder" rs.Open Addera, Connect, 2, 3 rs.AddNew rs("rubrik") = Upload.Form("rubrik") rs("kategori") = Upload.Form("kategori") rs("subkategori") = Upload.Form("subkategori") rs("stylist") = Upload.Form("stylist") rs("modell") = Upload.Form("modell") rs("hair_make") = Upload.Form("hair_make") rs("sokvag") = Upload.Form("sokvag") & File.Filename rs("sokvag_thumb") = Upload.Form("sokvag_thumb") & File.Filename rs.Update rs.close connect.close%> <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/max.mdb") Set rs = Server.CreateObject("adodb.recordset") Addera = "SELECT * FROM bilder order by id DESC" rs.Open Addera, Connect, 2, 3 %>

FÖLJANDE BILD HAR LAGTS TILL:

Rubrik:
<% =rs("rubrik") %>
Kategori:
<% =rs("kategori") %>
Jobb:
<% =rs("subkategori") %>
Stylist:
<% =rs("stylist") %>
Modell:
<% =rs("modell") %>
Hår & Make:
<% =rs("hair_make") %>

Photo:

" alt="">
[SKAPA THUMBNAIL]

<% rs.close connect.close%> <% Else %> <% Response.Write("Ingen bild har lagts till!!")%> <%End If%> ``` Martin Permalänk: https://www.webforum.nu/p/126679 ## #2 — @nders, 2005-04-19T08:21Z hur ser formuläret ut? Permalänk: https://www.webforum.nu/p/1596859 ## #3 — morris_the_cat, 2005-04-19T08:26Z ``` <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Untitled Document ``` Permalänk: https://www.webforum.nu/p/1596861 ## #4 — @nders, 2005-04-19T08:30Z Ditt file-fält i formuläret heter inte *BILD*, det heter *sokvag*. Permalänk: https://www.webforum.nu/p/1596862 ## #5 — morris_the_cat, 2005-04-19T08:41Z Tack @nders! Tänk va blind man kan vara! Permalänk: https://www.webforum.nu/p/1596867 --- Tråden på webben: https://www.webforum.nu/amne/asp/126679-asp-upload-problem