Billedopload?

Jeg kender ikke komponenten (Dundas.Upload) men øverste kode ser nogenlunde korrekt ud. Bortset fra objectet: objEmail hvor kommer det fra. ?

Det er noget hjælp fra min udbyder StruerNet. Men jeg kan ikke umiddelbart stykke det sammen.

<%
Set objUpload = Server.CreateObject("Dundas.Upload")
sti = Server.MapPath(".") & "\filer\"
objUpload.DirectoryCreate sti
objUpload.Save sti
For Each Item in objUpload.Files
objEmail.Attachments.Add Item.Path,Item.OriginalPath
Next
Set objUpload = Nothing
%>

var at hente på deres side. Resten er en formular, som jeg har sat op.

Ja den skal da rettes lidt til før den kan uploade filer.
Jeg kender som sagt ikke den komponent som du bruger men jeg har rette det jeg kender og kommet med et bud på resten.

dette stykke kode skal hedde gem.asp
---------------- gem.asp --------------------
<%
Set objUpload = Server.CreateObject("Dundas.Upload")
sti = Server.MapPath(".") & "\filer\"
objUpload.DirectoryCreate sti
objUpload.Save sti ' uploader filen
' Nu skal felterne gemmes i en database
conn = Åben til database ' Skal lige laves rigtigt
SQL = "insert into table (nick, emne, min_email) values = ('"
SQL = SQL & objUpload.form("nick") & "', " ' Jeg kender ikke dundas.upload men denne måde
SQL = SQL & objUpload.form("emne") & "', " ' at få fat i indtastningsfelterne på er
SQL = SQL & objUpload.form("min_email") & "'); " ' forhåbenlig korrekt. Måske (objUpload.forms("min_email"))
conn.Execute(SQL)
Set objUpload = Nothing
Response.Redirect("takke.asp") ' Send bruger videre til takke-over side
%>

------------- Ny kode ---------------

<form method="POST" action="gem.asp" ENCTYPE="multipart/form-data" >
<table border="0" cellpadding="6" cellspacing="0" width="100%" class="tekst11" bgcolor="#EEEEEE">
<tr>
<td colspan="2">
<span class="overskrift17">Opret nyt debatemne</span>
</td>
</tr>
<tr>
<td>Forfatter:</td>
<td><input type="text" name="nick" style="background-color: #ffff99;" size="35" id="input"></td>
</tr>
<tr>
<td>Emne:</td>
<td><input type="text" name="emne" style="background-color: #ffff99;" size="35" id="input"></td>
</tr>
<tr>
<td>E-mail:</td>
<td><input type="text" name="min_email" style="background-color: #ffff99;" size="35" id="input"></td>
</tr>
<tr>
<td>Billede:</td>
<td><input type="file" name="stiangivelse" style="background-color: #ffff99;" size="35" id="input">&nbsp;&nbsp;
  </td>
</tr>
<tr>
<td>Billedtekst:</td>
<td><input type="text" name="billedtekst" style="background-color: #ffff99;" size="35" id="input"></td>
</tr>
<tr>
<td valign="top">Brødtekst:<br>(max. 150<br> karakterer)</td>
<td><textarea rows="4" name="brodtekst" style="background-color: #ffff99;" cols="67" id="input"></textarea></td>
</tr>
<tr>
<td valign="top">Tekst:</td>
<td><textarea rows="17" name="kommentar" style="background-color: #ffff99;" cols="67" id="input"></textarea></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="Send debatemne" name="send_debatemne" id="input">&nbsp;&nbsp;&nbsp; <input type="reset" value="Nulstil" name="nulstil" id="input">
</td>
</tr>
</table>
</form>
<!--#include virtual="/includes/inc_bottom.asp"-->

Fra gem.asp:

SQL = "insert into table (nick, emne, min_email) values = ('"
SQL = SQL & objUpload.form("nick") & "', " '

De to linier er ikke lavet færdige?

Nej - jeg blev træt i hånden. :-)

Men som sagt kan der stadigvæk være nogle småting.

Ok :o)

Jeg vil kigge på det i morgen aften.

coltau, det virker ikke helt godt :o(

Måske kan StruerNet være behjælpelig med en hjælpefil el. lign. ? Jeg kender som sagt ikke komponenten og har heller ikke mulighed for at afprøve den. :-(

Ok, men du får pointene som tak for din tid :o)