Gör en ett arkiv över mina skivor. Först lägger jag in en skivtitel, och bestämmer antalet låtar. Denna sida fungerar utmärkt, sedan generar denna en sida som utgår från hur många låtar jag angivit. Där fyller jag i låtinformationen för skivan, och det är här problemet kommer in. Har en tabell i databasen för skivan och en för låtarna på skivan. Jag vill alltså lägga in flera låtar i flera olika rader i databasen. Min kod ser ut så här:
<%
Dim Connect, conntemp, DSNtemp
Dim arrrecordid, arrposition, arrtracktitle, arrkey, arrbpm
Set Connect=server.CreateObject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("db/record.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
Connect.Open DSNtemp
arrrecordid=split(Request.Form("id"),",")
arrposition=split(Request.Form("position"),",")
arrtracktitle=split(Request.Form("tracktitle"),",")
arrkey=split(Request.Form("key"),",")
arrbpm=split(Request.Form("bpm"),",")
sql = "SELECT * FROM tracks WHERE 1=2"
RS.Open sql, DSNtemp, 1, 2
for i = 0 to ubound(arrrecordid)
RS.AddNew
RS("recordid") = arrrecordid(i)
RS("position") = arrposition(i)
RS("tracktitle") = arrtracktitle(i)
RS("key") = arrkey(i)
RS("bpm") = arrbpm(i)
RS.Update
next
RS.Close
%>
Får inget fel, men den lägger bara in en av låtarna.
