Lav en ny tabel som hedder: filmbilleder
Som har disse kolonne:
ID : autonummer
filmID : tal
billedeID : tal
Så kan du bruge noget kode som dette, her er alt koden lagt i en fil: opretefilm.asp
<%
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db9.mdb")
'Tjek om formeen er send til siden
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Gem i databasen
Set rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "SELECT * FROM film WHERE id=0", conn, 1, 3
rs.AddNew
rs("navn") = Request.Form("film")
rs("andet") = Request.Form("andet")
rs.Update
filmID = rs("ID")
rs.Close
billedList = Request.Form("billede")
billedArr = Split(billedList,",")
for i = lbound(billedArr) to ubound(billedArr)
SQL = "INSERT INTO filmbilleder (filmID, billedeID) VALUES (" & filmID & "," & billedArr(i) & ")"
Conn.Execute(SQL)
next
Conn.Close
Set Conn = Nothing
'Lav redirect så man ikke oprette filmen 2 gange ved tryk på Fs5
Response.Redirect (Request.ServerVariables("SCRIPT_NAME"))
end if
%>
<html>
<head>
<body>
<form METHOD="post" ACTION="opretefilm.asp">
<center>
<table>
<tr><td>Film navn : </td><td><input type="text" name="film"> </td></tr>
<tr><td>Andre felter..: </td><td><input type="text" name="andet"> </td></tr>
</table>
<table>
<%
noPrRow = 0
maxPrRow= 4
SQL = "SELECT * FROM billeder"
Set rs = Conn.Execute(SQL)
Do while not rs.EOF
if noPrRow = 0 then Response.Write "<tr>"
Response.Write "<td align=""center""><img src=""" & rs("sti") & """>"
Response.Write "<br>"
Response.Write "<input type=""checkbox"" name=""billede"" value=""" & rs("id") & """>"
Response.Write "</td>"
noPrRow = noPrRow + 1
if noPrRow = maxPrRow then
Response.Write "</tr>"
noPrRow = 0
end if
rs.Movenext
loop
if noPrRow > 0 then Response.Write "</tr>"
%>
</table>
<table><tr><td><input type="submit" name="Opret" value="Opret"></td></tr></table>
</center>
</form>
</body>
</html>
<%
Conn.Close
Set Conn = Nothing
%>
