Avatar billede steen_hansen Forsker
06. september 2004 - 07:13 Der er 9 kommentarer og
1 løsning

Hjælp til gammelt problem ønskes

Jeg har længe eftersøgt hjælp til at vedhæfte tekst til uploadede billeder, men der har aldrig været ét eneste svar på mine spørgsmål, så jeg vil se, om tiden er moden til det nu?

Hvis du har mod på det, kan du prøve at se http://www.eksperten.dk/spm/512410.
Avatar billede goose Nybegynder
06. september 2004 - 09:53 #1
Har du kigget på Dundas website, de har da så vidt jeg kan se nogle eksempler ?
Jeg kender ikke selv Dundas Upload.

http://mfc.dundas.com/products/onlinedocs/FreeProds/dunsam.htm

Jeg bruger normalt ASPUpload til disse ting, og det er "jo bare" at indsætte dit billed script i din formular du bruger når du opretter noget.

eks.:

PhotoName = objUpload.Form("billednavn")
Overskrift = objUpload.Form("overskrift")
Tekst = objUpload.Form("tekst")

/Goose
Avatar billede steen_hansen Forsker
06. september 2004 - 11:37 #2
Hej goose, rart med lidt respons :)

Jeg kan ikke se hvor der på deres hjemmeside står noget med at tilknytte tekst til billeder. Har du et mere direkte link?
Avatar billede goose Nybegynder
06. september 2004 - 18:15 #3
naeee ikke lige umiddelbart, men det er jo noget med at få flettet formitem objektet og file objektet sammen.

Prøv og send den kode du bruger nu, altså både den der uploader billeder og den du opretter data med, så skal jeg kigge på det.

/Goose
Avatar billede goose Nybegynder
06. september 2004 - 18:56 #4
Jeg har lige prøvet at brygge noget sammen ud fra det du tidligere har sendt hvor jeg sætter billeddelen og afsnit/artikel delen sammen.
Som tidligere skreve har jeg ikke noget kendskab til Dundas, men prøv om du ikke kan se sammenhængen ud fra nedenstående utestede eksempel:

<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then


sti = "/images"
On Error Resume Next
Set oUpload = Server.CreateObject ("Dundas.Upload.2")

If oUpload.Form("S1") <> "" then
    SQL = "INSERT INTO Afsnit (articleID, Afsnit_Overskrift, Afsnit_Tekst, Afsnit_Dato, Afsnit_Tid) VALUES ('" & Request.QueryString("ID") & "', '" & oUpload.Form("T1") & "', '" & oUpload.Form("S1") & "', '" & Date() & "', '" & Time() & "')"
    Set RS = Conn.Execute(SQL)
    Response.Redirect "afsnit_rediger.asp?id=" & Request.QueryString("ID")

'Gemmer filen
oUpload.Save Server.Mappath(sti) & "\"
If Err.Number <> 0 Then 
    Response.Write err.description & "<br>"
    Set oUpload = Nothing
    Response.End
End If
Set oUploadedFile = oUpload.Files(0)
sFileName = oUploadedFile.OriginalPath
nExtStartPos = InStrRev(sFilename, "\")
If nExtStartPos > 0 Then sFileName = Trim(Mid(sFilename, nExtStartPos + 1))


Else
If Request.QueryString("type") <> "opret" Then
%>

<form method="post" action="/admin/articles/upload2.asp" EncType="Multipart/Form-Data">
<b>Afsnittets overskrift:</b><br>
    <input type="text" tabindex="1" name="T1" size="<%=Size%>"><br><br>
    <b>Indtast afsnittet:</b><br>
    <textarea tabindex="2" rows="<%=TXTrows%>" name="S1" cols="<%=TXTcols%>" class="input"></textarea><br><br>
    <b>Vælg billede:</b><br>
  <input name="upload" type="file"><br><br>
    <input type="submit" value="Upload data" name="B1">&nbsp; <input type="reset" value="Nulstil" name="B2">
</form>
<%
end if
end if

end if
%>

/Goose
Avatar billede goose Nybegynder
06. september 2004 - 20:34 #5
- der står også rimelig meget her omkring dit upload komponent:

http://www.assurancehosting.com/resources/dundasupload.asp

- nå, men jeg tror jeg er ude igen, men lægger lige et svar i tilfælde af at du kan bruge noget af det :o)

/Goose
Avatar billede steen_hansen Forsker
06. september 2004 - 22:21 #6
Du er en kammerat, får kigget på det snarest :o)
Avatar billede steen_hansen Forsker
22. december 2004 - 01:17 #7
goose, jeg har ikke glemt dig, men har ikke haft overskuddet. Du får pointene og tak for hjælpen. Hvis ikke det lykkes, håber jeg du er frisk på at få det sidste på plads. Bedste ven :)
Avatar billede goose Nybegynder
22. december 2004 - 07:40 #8
Nej det troede jeg da skam heller ikke ..... det er jo kun lidt over 3 mdr. siden :o)

Fik du det til at virke ?

/Goose
Avatar billede steen_hansen Forsker
27. december 2004 - 10:08 #9
Jeg har ikke fået kigget ordentligt på det endnu, der har været lidt for meget om ørene på mig. Men jeg skal nok få sat det ordentligt op. Foreløbig tak, glædelig jul og godt nytår :o)
Avatar billede goose Nybegynder
27. december 2004 - 21:33 #10
Tak i lige måde :o)

/Goose
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester