Notifikationer

Markér alle som læst Log ud

remo27 Nybegynder

04. september 2003 - 01:02 Der er 47 kommentarer og
1 løsning

Hjælp til billede upload

Jeg leder efter et billede upload.

som ligger billede i en mappe og skriver filnavn direkte i Database, Jeg har en upload del som det skal flettes ind i.

Hvis det kan lade sig gøre, må det gerne være komponent fri.

/Remo

Synes godt om

netro Nybegynder

04. september 2003 - 01:10 #1

Hej igen ;-)

Det kan godt laves uden komponent, men det er langt bedre, hvis du har adgang til en komponent.

Synes godt om

remo27 Nybegynder

04. september 2003 - 01:13 #2

Hej igen :O)

Kan du hjælpe igen igen, jeg har ingen adgang til komponent.

Noget du kan lave...

Synes godt om

netro Nybegynder

04. september 2003 - 01:17 #3

Der er en fin kode inde på ActiveDeveloper. Ser lige, om jeg kan finde den.

Synes godt om

remo27 Nybegynder

04. september 2003 - 01:18 #4

**** tilmeld.asp ******* selve formularen

<html>

<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<title>Tilføj LINKS TIL RMO-DESIGN</title>
<LINK REL="STYLESHEET" HREF="css/som4u.css" TYPE="text/css">
</head>

<body>
<br><br>

<form action="tilmeld_ac.asp" method="post">
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111" width="200"
id="AutoNumber1" height="271">
<tr>
<td width="100%" colspan="2" align="center" class="top" valign="top" height="19">
Tilmeld Sommerhus</td>
</tr>
<tr>
<td width="50%" valign="top" height="22" class="sommerhus">SommerhusNavn:</td>
<td width="50%" valign="top" height="22" class="sommerhus"><input type="text" name="sommerhusnavn" size="35"></td>
</tr>
<tr>
<td width="50%" height="20" class="sommerhus">Adresse:</td>
<td width="50%" valign="top" height="20" class="sommerhus"><input type="text" name="adresse" size="35"></td>
</tr>
<tr>
<td width="50%" height="20" class="sommerhus">Postnr:</td>
<td width="50%" valign="top" height="20" class="sommerhus"><input type="text" name="postnr" size="35"></td>
</tr>
<tr>
<td width="50%" height="20" class="sommerhus">By:</td>
<td width="50%" valign="top" height="20" class="sommerhus"><input type="text" name="city" size="35"></td>
</tr>
<tr>
<td width="50%" height="20" class="sommerhus">Amt:</td>
<td width="50%" valign="top" height="20" class="sommerhus">
<select size="1" name="amt">
<option selected>-- Vælg amt --</option>
<option>Bornholms amt</option>
<option>Frederiksborgs Amt</option>
<option>Fyns Amt</option>
<option>Københavns Amt</option>
<option>Nordjyllands Amt</option>
<option>Ribe Amt</option>
<option>Ringkøbing Amt</option>
<option>Roskilde Amt</option>
<option>Storstrøms Amt</option>
<option>Sønderjyllands Amt</option>
<option>Vejle Amt</option>
<option>Vestsjællands Amt</option>
<option>Viborg Amt</option>
<option>Århus Amt</option>
</select></td>
</tr>
<tr>
<td width="50%" height="20" class="sommerhus">Navn:</td>
<td width="50%" valign="top" height="20" class="sommerhus"><input type="text" name="Navn" size="35"></td>
</tr>
<tr>
<td width="50%" height="20" class="sommerhus">Tlf:</td>
<td width="50%" valign="top" height="20" class="sommerhus"><input type="text" name="tlf" size="35"></td>
</tr>
<tr>
<td width="50%" height="20" class="sommerhus">Email:</td>
<td width="50%" valign="top" height="20" class="sommerhus"><input type="text" name="email" size="35"></td>
</tr>
<tr>
<td width="50%" height="20" class="sommerhus">billede:</td>
<td width="50%" valign="top" height="20" class="sommerhus">
 </td>
</tr>
<tr>
<td width="50%" height="20" class="sommerhus">Info: </td>
<td width="50%" valign="top" height="20" class="sommerhus">
<textarea rows="7" name="info" cols="29"></textarea></td>
</tr>
<tr>
<td width="100%" colspan="2" align="right" valign="top" height="26" class="sommerhus">

<input type="hidden" name="billede" value="dummie.gif" >
<input type="hidden" name="dato" value="dato" >
<input type="hidden" name="emne" value="sommerhus" >

<input type="submit" value="Tilføj" name="tilmeld"><input type="reset" value="Fortryd" name="Fortryd"></td>
</tr>
</table>
</center>
</div>

</form>

</body>

</html>

********* tilmeld_ac.asp ******* (den kender du vist ;-)

<%

' Declaring variables
Dim name, email, country, comments, data_source, con, sql_insert

' A Function to check if some field entered by user is empty
Function ChkString(string)
ChkString = Replace("" & string, "'", "''")
End Function

' Receiving values from Form
sommerhusnavn = ChkString(Request.Form("sommerhusnavn"))
adresse = ChkString(Request.Form("adresse"))
postnr = ChkString(Request.Form("postnr"))
city = ChkString(Request.Form("city"))
amt = ChkString(Request.Form("amt"))
navn = ChkString(Request.Form("navn"))
tlf = ChkString(Request.Form("tlf"))
email = ChkString(Request.Form("email"))
info = ChkString(Request.Form("info"))
dato = ChkString(Request.Form("dato"))
emne = ChkString(Request.Form("emne"))
billede = ChkString(Request.Form("billede"))
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("som4u.mdb")
sql_insert = "insert into sommerhus (sommerhusnavn, adresse, postnr, city, amt, navn, tlf, email, info, dato, emne, billede ) values ('" & sommerhusnavn & "', '" & adresse & "', '" & postnr & "', '" & city & "', '" & amt & "', '" & navn & "', '" & tlf & "','" & email & "', '" & info & "', '" & date & "', '" & emne & "', '" & billede & "' )"
' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert

con.Execute("Insert Into Mailingliste(Navn, Email) Values('" & ChkString(navn) & "', '" & ChkString(email) & "')")

Set rs = con.Execute("Select Navn, Email From Mailingliste")
While Not rs.EOF

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.SenderName = "Sommerhus4U"
JMail.Sender = "rmo@pc.dk"
JMail.AddRecipientEx rs("Email"), rs("Navn")
JMail.Subject = "Nyt sommerhus: " & sommerhusnavn
JMail.Body = "Hej " & rs("Navn") & "!" & vbCrlf & vbCrlf & info

'Mailserver
JMail.ServerAddress = "smtp.mail.dk"

JMail.Execute
Set JMail = Nothing

rs.MoveNext
Wend

' Done. Close the connection
con.Close
Set con = Nothing
Response.redirect "default.asp?emne=sommerhus&id=<%=Query1('id')"
%>

Vis du vil sætte det ind i mit system, bliver jeg meget glad. Kan der laves såleds at der kommer en Kommentar, du 2 prøver at uploade et billede med sammen filnavn

Synes godt om

remo27 Nybegynder

04. september 2003 - 01:18 #5

okay, som også skriver til Databasen.

Synes godt om

netro Nybegynder

04. september 2003 - 01:19 #6

Jeg foreslår i øvrigt, at du lige laver en ny side til upload. Når det så fungerer, kan vi kæde det ind i ovenstående, hvis du ønsker.

Synes godt om

remo27 Nybegynder

04. september 2003 - 01:22 #7

Så den kun uploader tekst + billede til db. ??

Synes godt om

netro Nybegynder

04. september 2003 - 01:28 #8

Ja... der er lige et par fejl i hans kode. 2 sek...

Synes godt om

remo27 Nybegynder

04. september 2003 - 01:28 #9

Her er 2 nye, vi kan lege med

**** tilmeld1.asp *****

<html>

<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<title>Tilføj LINKS TIL RMO-DESIGN</title>
<LINK REL="STYLESHEET" HREF="css/som4u.css" TYPE="text/css">
</head>

<body>
<br><br>

<form action="tilmeld1_ac.asp" method="post">
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111" width="200"
id="AutoNumber1" height="271">
<tr>
<td width="100%" colspan="2" align="center" class="top" valign="top" height="19">
Tilmeld Sommerhus</td>
</tr>
<tr>
<td width="50%" valign="top" height="22" class="sommerhus">SommerhusNavn:</td>
<td width="50%" valign="top" height="22" class="sommerhus"><input type="text" name="sommerhusnavn" size="35"></td>
</tr>
<tr>
<td width="50%" height="20" class="sommerhus">Adresse:</td>
<td width="50%" valign="top" height="20" class="sommerhus"><input type="text" name="adresse" size="35"></td>
</tr>
<tr>
<td width="50%" height="20" class="sommerhus">Postnr:</td>
<td width="50%" valign="top" height="20" class="sommerhus"><input type="text" name="postnr" size="35"></td>
</tr>
<tr>
<td width="50%" height="20" class="sommerhus">By:</td>
<td width="50%" valign="top" height="20" class="sommerhus"><input type="text" name="city" size="35"></td>
</tr>
<tr>
<td width="50%" height="20" class="sommerhus">Amt:</td>
<td width="50%" valign="top" height="20" class="sommerhus">
<select size="1" name="amt">
<option selected>-- Vælg amt --</option>
<option>Bornholms amt</option>
<option>Frederiksborgs Amt</option>
<option>Fyns Amt</option>
<option>Københavns Amt</option>
<option>Nordjyllands Amt</option>
<option>Ribe Amt</option>
<option>Ringkøbing Amt</option>
<option>Roskilde Amt</option>
<option>Storstrøms Amt</option>
<option>Sønderjyllands Amt</option>
<option>Vejle Amt</option>
<option>Vestsjællands Amt</option>
<option>Viborg Amt</option>
<option>Århus Amt</option>
</select></td>
</tr>
<tr>
<td width="50%" height="20" class="sommerhus">Navn:</td>
<td width="50%" valign="top" height="20" class="sommerhus"><input type="text" name="Navn" size="35"></td>
</tr>
<tr>
<td width="50%" height="20" class="sommerhus">Tlf:</td>
<td width="50%" valign="top" height="20" class="sommerhus"><input type="text" name="tlf" size="35"></td>
</tr>
<tr>
<td width="50%" height="20" class="sommerhus">Email:</td>
<td width="50%" valign="top" height="20" class="sommerhus"><input type="text" name="email" size="35"></td>
</tr>
<tr>
<td width="50%" height="20" class="sommerhus">billede:</td>
<td width="50%" valign="top" height="20" class="sommerhus">
 </td>
</tr>
<tr>
<td width="50%" height="20" class="sommerhus">Info: </td>
<td width="50%" valign="top" height="20" class="sommerhus">
<textarea rows="7" name="info" cols="29"></textarea></td>
</tr>
<tr>
<td width="100%" colspan="2" align="right" valign="top" height="26" class="sommerhus">

<input type="hidden" name="billede" value="dummie.gif" >
<input type="hidden" name="dato" value="dato" >
<input type="hidden" name="emne" value="sommerhus" >

<input type="submit" value="Tilføj" name="tilmeld"><input type="reset" value="Fortryd" name="Fortryd"></td>
</tr>
</table>
</center>
</div>

</form>

</body>

</html>

**** tilmeld1_ac ******

<%

' Declaring variables
Dim name, email, country, comments, data_source, con, sql_insert

' A Function to check if some field entered by user is empty
Function ChkString(string)
ChkString = Replace("" & string, "'", "''")
End Function

' Receiving values from Form
sommerhusnavn = ChkString(Request.Form("sommerhusnavn"))
adresse = ChkString(Request.Form("adresse"))
postnr = ChkString(Request.Form("postnr"))
city = ChkString(Request.Form("city"))
amt = ChkString(Request.Form("amt"))
navn = ChkString(Request.Form("navn"))
tlf = ChkString(Request.Form("tlf"))
email = ChkString(Request.Form("email"))
info = ChkString(Request.Form("info"))
dato = ChkString(Request.Form("dato"))
emne = ChkString(Request.Form("emne"))
billede = ChkString(Request.Form("billede"))
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("som4u.mdb")
sql_insert = "insert into sommerhus (sommerhusnavn, adresse, postnr, city, amt, navn, tlf, email, info, dato, emne, billede ) values ('" & sommerhusnavn & "', '" & adresse & "', '" & postnr & "', '" & city & "', '" & amt & "', '" & navn & "', '" & tlf & "','" & email & "', '" & info & "', '" & date & "', '" & emne & "', '" & billede & "' )"
' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert

' Done. Close the connection
con.Close
Set con = Nothing
Response.redirect "default.asp?emne=sommerhus&id=<%=Query1('id')"
%>

Synes godt om

netro Nybegynder

04. september 2003 - 01:30 #10

Hvor meget må det uploadede billede maksimalt fylde?

Synes godt om

remo27 Nybegynder

04. september 2003 - 01:32 #11

Hmm, det har jeg ikk tænkt på, der skal kune være et billede pr. sommerhus.
Det skal jo også fylde lidt, Hvad synes du er passende ??

Synes godt om

netro Nybegynder

04. september 2003 - 01:33 #12

100kb

Synes godt om

remo27 Nybegynder

04. september 2003 - 01:35 #13

Det er sgu. fint vi prøver, ellers kan jeg vil rettte det i koden, enten mer eller mindre

Synes godt om

netro Nybegynder

04. september 2003 - 01:36 #14

Ja, sagtens. Du skal lige have en fil til brug ved upload. Har du en e-mail jeg kan sende den til?

Synes godt om

remo27 Nybegynder

04. september 2003 - 01:37 #15

rmo@pc.dk

Synes godt om

netro Nybegynder

04. september 2003 - 01:39 #16

Sendt...

Synes godt om

remo27 Nybegynder

04. september 2003 - 01:41 #17

modtaget

Synes godt om

netro Nybegynder

04. september 2003 - 01:46 #18

Så prøv at opret en ny fil, du f.eks. kalder upload.asp

Synes godt om

remo27 Nybegynder

04. september 2003 - 01:50 #19

kan du bruge de 2 formularer ca. 10 linier oppe, der har jeg pillet alt vedr. send nyhedsbreb og opret i mallingsliset væk.

Så den kun lægger data i db, som er klar til udtræk

Synes godt om

netro Nybegynder

04. september 2003 - 01:56 #20

Det fremgår desværre ikke af den sparsomme dokumentation, hvordan almindelige formularfelter aflæses samtidig med upload af billeder. Så du bliver nok nødt til ikke at sende andre data sammen med billedet.

Lav nu en mappe, du kalder "upload". Her vil de uploadede billeder blive placeret.

Synes godt om

netro Nybegynder

04. september 2003 - 01:58 #21

upload.asp
=================================================

<%@ Language="VBScript" %>


<html>
<head>
</head>
<body>

<%
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("som4u.mdb")
con.Open data_source

If Request.ServerVariables("Request_Method") = "POST" Then
%>

<form enctype="multipart/form-data" action="upload.asp" method="post">
Vælg et billede af dit sommerhus:<br>
<input name="fileupload" type="file"><br>
<input name="Action" type="submit" value="Upload">
</form>
<%
Else

Dim intFileUpload, strContentType, strFilename, intFileTotalBytes

intFileUpload = FileUpload("upload/", 200000, Array("image/gif", "image/jpeg", "image/pjpeg"), Array("gif", "jpg"), strContentType, strFilename, intFileTotalBytes, "")

If intFileUpload = 0 Then
Response.Write "Filen " & strFilename & " blev uploaded.<br>"
Response.Write "Det er en fil af typen " & strContentType & " og den fylder " & intFileTotalBytes & " bytes:<BR>"
Response.Write "<img src=""upload/" & strFilename & """><br>"
Else
Response.Write "Der opstod en fejl under upload!<br>"
Response.Write "Fejl nr: " & intFileUpload & "<br>"
Response.Write "Filnavn: " & strFilename & "<br>"
Response.Write "Filtype: " & strContentType & "<br>"
Response.Write "Filstørrelse: " & intFileTotalBytes & "<br>"
End If
End If
End If
%>

</body>
</html>

Synes godt om

netro Nybegynder

04. september 2003 - 02:06 #22

Kan du hitte ud af det?

Synes godt om

remo27 Nybegynder

04. september 2003 - 02:08 #23

jeg har en felt som hedder billede i tabellen sommerhus i db som4u, hvor skal jeg rettet det hende.

Synes godt om

netro Nybegynder

04. september 2003 - 02:13 #24

Det kan du sætte til typen INTEGER. Når et billede uploades, sætter vi et 1-tal i feltet for at markere, at der er et tilhørende billede.

Synes godt om

netro Nybegynder

04. september 2003 - 02:14 #25

- sæt default-værdien for feltet til 0 (=intet billede)

Synes godt om

remo27 Nybegynder

04. september 2003 - 02:16 #26

*GG* Nu snakker du sort, jeg er slet ikke med ;-)

Synes godt om

remo27 Nybegynder

04. september 2003 - 02:18 #27

Er der nogle steder i upload.asp jeg skal rette så billede bliver skrevet i under feltet billede i sommerhus tabellen

Synes godt om

netro Nybegynder

04. september 2003 - 02:23 #28

Du skal ikke lægge dit billede i tabellen. Det omdøber vi til sommerhusets id-nummer og beholder i mappen.

Synes godt om

remo27 Nybegynder

04. september 2003 - 02:26 #29

Kald mig torske dum, men mener du at feltet billede i tabellen sommerhus skal have en værdi.

Synes godt om

netro Nybegynder

04. september 2003 - 02:32 #30

Du er torskedum :o)

Nej - det er for at markere, om der er et billede i mappen. Det kan du bl.a. bruge ifb. med en søgefunktion senere hen.

Har du fået prøvet upload.asp ?

Synes godt om

remo27 Nybegynder

04. september 2003 - 02:35 #31

yes og den melder fejl i line 40

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0400)
En sætning var ventet
/webopg/sommerhus/upload.asp, line 40
End If

Synes godt om

netro Nybegynder

04. september 2003 - 02:36 #32

Ja, slet det nederste End If.

Synes godt om

remo27 Nybegynder

04. september 2003 - 02:38 #33

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: ''
/webopg/sommerhus/upload.asp, line 11

Synes godt om

netro Nybegynder

04. september 2003 - 02:41 #34

Det gik vist lidt hurtigt med den fil. Indsæt:

Set con = Server.CreateObject("ADODB.Connection")

- lige før:

con.Open data_source

Synes godt om

remo27 Nybegynder

04. september 2003 - 02:43 #35

så skriver den dette

Filen blev uploaded.
Det er en fil af typen og den fylder 0 bytes:

Synes godt om

remo27 Nybegynder

04. september 2003 - 02:44 #36

den sendte med det samme, jeg kunne ikk vælge

Synes godt om

netro Nybegynder

04. september 2003 - 02:49 #37

Hmm... hvad er det for en fil?

Synes godt om

remo27 Nybegynder

04. september 2003 - 02:52 #38

den har intet sendt, jeg får bare en hvid side
hvor den skriver

Filen blev uploaded.
Det er en fil af typen og den fylder 0 bytes:
Så er der et hvidt icon med rødt kryds

Synes godt om

netro Nybegynder

04. september 2003 - 02:55 #39

Ahh.. ret lige:

= "POST"

- til:

<> "POST"

Synes godt om

remo27 Nybegynder

04. september 2003 - 02:59 #40

hmmm...

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EA)
Der er en syntaksfejl
/webopg/sommerhus/upload.asp, line 14, column 47
If Request.ServerVariables("Request_Method") = <> "POST" Then
----------------------------------------------^

Synes godt om

netro Nybegynder

04. september 2003 - 03:02 #41

Du skal også fjerne =.

Synes godt om

remo27 Nybegynder

04. september 2003 - 03:29 #42

kan vi ikke kigge på det senere, jeg er for træt nu.

Har lige prøvet at uploade det til min lege plads. http://remo.lir.dk/sommerhus da jeg ikke kan teste det upload, lokalt.

Synes godt om

remo27 Nybegynder

04. september 2003 - 03:32 #43

jeg er dampet i seng, forløblig stor tak for hjælpen.

/Remo

Synes godt om

netro Nybegynder

04. september 2003 - 03:36 #44

Okay - vi ser lige på det senere.

Synes godt om

netro Nybegynder

04. september 2003 - 11:53 #45

Include file not found ?

Synes godt om

remo27 Nybegynder

11. september 2003 - 10:47 #46

Netro>> kan du ikke oprettet et svar, så du kan høste din belønning..
og vi evt. lige kan gøre det færdigt.

/Remo

Synes godt om

netro Nybegynder

11. september 2003 - 13:50 #47

Jo, men du har jeg snart mistet tråden - det er længe siden.

Synes godt om

netro Nybegynder

11. september 2003 - 13:50 #48

du = nu

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS