Nu är jag tillbaka...
Självklart så stötte jag nu på ännu ett problem, nämligen bildarkivet och dennas kod.
Här vill jag ha upp till 9 bilder att lägga upp samtidigt.
Första sidan måste alltså vara endast bild-fälten, då Request.Form inte var kompatibelt på denna variant.
Nästa sida ligger rubrik-fältet, efter den sidan ska koden för att lagra datan ligga.
Denna kod utgår jag ifrån:
SIDA 1:
<form method="post" action="outputfile.asp" enctype="multipart/form-data">
<p> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<br>
</font> Bild 1:<br>
<input type="file" name="blob">
<br>
Bild 2:<br>
</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="file" name="blob2">
<br>
Bild 3:<br>
</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="file" name="blob3">
<br>
Bild 4:<br>
</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="file" name="blob4">
</font><br>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">Bild 5:<br>
</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="file" name="blob42">
</font><br>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">Bild 6:<br>
</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="file" name="blob43">
</font><br>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">Bild 7:<br>
</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="file" name="blob44">
</font><br>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">Bild 8:<br>
</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="file" name="blob45">
</font><br>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">Bild 9:<br>
</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="file" name="blob46">
</font><br>
<br>
<br>
<input type="submit" value="Ladda upp, yo!">
</p>
</form>
SIDA 2:
<%
If blob <> "" then
Set fbase = Server.CreateObject("chili.upload.1")
If InStr(fbase.SourceFileName, "/") Then
delimiter = "/"
else
delimiter = "\"
end if
MyArr = Split(fbase.SourceFileName, delimiter)
strFName = MyArr(UBound(MyArr))
strFNPath = Server.Mappath("/") & "/" & strFName
fbase.SaveToFile strFNPath
Response.write "<img src=""../"&strFName&""">"
Set fbase = nothing
end if
%>
</p>
<form method="post" action="outputfile.asp">
<p> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input name="nyh_bild" type="hidden" value="<% =strFName %>">
<br>
Rubrik:<br>
<input name="rubrik" type="text" maxlength="37">
<br>
<br>
Inlägg: </font><br>
<textarea name="inlagg" cols="70" rows="30"></textarea>
<br>
<input type="submit" value="Ladda upp!">
</p>
</form>
SIDA 3:
<%
rubrik = Replace(Request("rubrik"), "'", "''")
inlagg = Replace(Request("inlagg"), "'", "''")
nyh_bild = Replace(Request("nyh_bild"), "'", "''")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=xxxxPassword=xxxx"
SQLStmt = "INSERT INTO nyheter (rubrik, inlagg, nyh_bild, forfattare) "
SQLStmt = SQLStmt & "VALUES('" & rubrik & "', '" & inlagg & "', '" & nyh_bild & "', '" & Session("Namn") & "') "
Set RS = Connection.Execute(SQLStmt)
response.Redirect("../admin/red_nyh_s.asp")
RS.close
Set RS = Nothing
Connection.Close
Set Connection = Nothing
%>
Nu var ju de sidorna för uppladdning av endast EN bild.
Förutom den första sidan, där jag har fler bildfält än ett.
Frågan är alltså, om någon vet hur resten av sidorna ska/kan se ut?