Upload af billede og tekst på samme tid

Så skal du for det første jo have lavet en mulighed for at indtaste den tekst, det kan du gøre med et tekstfelt i samme form hvor du har din filvælger. Og så laver du bare din kode som følger:

  if filnavn <> "" then

    tekst = upload.tekst

    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("\henrik\upload\comments.mdb")
    strSQL = "INSERT INTO [nyheder] (images,tekst) VALUES ('" & filnavn & "','" & tekst & "')"

    Conn.Execute(strSQL)
    Conn.Close
    Set Conn = Nothing
  end if

Jeg har taget udgangspunkt i, at du benytter ASP-Upload til at uploade billedet med. Dette afspejles i "upload.tekst". Hvis det ikke er ASP-Upload, skal du finde ud af, hvordan du hiver en værdi fra et input-felt, og så skifte "upload" ud med det.

Jeg anvender ASPsmartupload til mine billeder og til min tekst har jeg brugt et simpelt addnew script. Jeg har så været nødt til at anvende 2 sider til at skrive idatabasen, en der uploader billede og samtidig laver en ny post i databasen, når jeg så uploader text fra mit textarea så har jeg haft en anden side med mit addnew script der så har skrevet en ny post igen. Det har fungeret udemærket men nu skal det være sådan at teksten kommer til at stå ved siden af billedet og derfor ville jeg forsøge at lave det sådant at billede og tekst hører sammen. Skulle der være andre muligheder tager jeg meget gerne mod råd.

prøv lige at skrive alt mellem <form></form> felterne på den side hvor du uploader billeder.

FORM METHOD="POST" ACTION="register.asp" ENCTYPE="multipart/form-data">
  <INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
  <INPUT TYPE="FILE" NAME="FILE2" SIZE="50"><BR>
  <INPUT TYPE="FILE" NAME="FILE3" SIZE="50"><BR>
  <INPUT TYPE="FILE" NAME="FILE4" SIZE="50"><BR>
                                            <input type="SUBMIT" value="Upload">
                                        </FORM>

så sætter du bare de felter ind i formen som du skal bruge, og så bruger du den model jeg skrev tidligere. Fx:

FORM METHOD="POST" ACTION="register.asp" ENCTYPE="multipart/form-data">
  <INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>

  <input type='text' name='text1' id='text1'>

  <INPUT TYPE="FILE" NAME="FILE2" SIZE="50"><BR>
  <INPUT TYPE="FILE" NAME="FILE3" SIZE="50"><BR>
  <INPUT TYPE="FILE" NAME="FILE4" SIZE="50"><BR>
                                            <input type="SUBMIT" value="Upload">
                                        </FORM>

Og når du så vil hive teksten ud, skriver du bare:

text1 = upload.form("text1")

så har du den tekst som du har indtastet i det første felt, i variablen "text1" klar til brug.

hmmm....... jeg er bange for at jeg ikke rigtigt er med. Jeg har min billed upload som beskrevet ovenfor med den gemmer billedet i en mappe således; if Request.ServerVariables("REQUEST_METHOD") = "POST" then

  '  Object creation
  Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
 
  'Upload filerne til memory
  upload.Upload
 
  upload.Save ("d:\"minsti")


  filnavn = upload.Files.Item(1).FileName

  'Gem filnanvet i databasen
  if filnavn <> "" then
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("\henrik\upload\comments.mdb")
    strSQL = "INSERT INTO [nyheder] (images) VALUES ('" & filnavn & "')"

    Conn.Execute(strSQL)
    Conn.Close
    Set Conn = Nothing
  end if 

min tekst kommer i et textarea således;
<form action="register_text.asp" method="post" name="FormName">
                                       
                                        <H3>Her indtaster du din tekst</H3>
                                            <textarea name="ord" rows="20" cols="40"></textarea>
                                            <p><input type="submit" name="submitButtonName" value="Upload text"></p>
                                       
                                    </form>
og det tilføjer så teksten i databasen således:
<%
Dim objConncomments
Set objConncomments = Server.CreateObject ("ADODB.Connection")
objConncomments.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("\"minsti")
objConncomments.Open () 

Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT id, images,ord FROM nyheder" ,objConncomments, adOpenDynamic, adLockOptimistic
objRS.AddNew
objRS ("ord") = Request.Form ("ord")
objRS.Update

objRS.Close
Set objRS = Nothing


objConncomments.Close
Set objConncomments = Nothing
%>

jeg kan ikke overskue hvordan jeg får det til at smelte sammen?

Jeg fik det til at virke, hvis der er nogen der vil se scriptet så gi' bare lyd

Hey maxmuldjord :>
Jeg sidder med samme problem, må jeg gerne se dit script?