9 svar · 268 visningar · startad av Arre
den här kan vara lite klurig...
Har gjort en albumscript där man kan lägga till titel, år och spår.
Spåren har jag gjort så att man skriver in hur många spår albumet har, och när man trycker på "continue" knappen så får man upp det antalet fält som man skrev i föregående formulär (för att skriva spårnamn) plus en textarea för varje spår där man kan skriva in lite övrig info om varje spår :)
Såhär ser koden ut, lite städat:
<---- sidan där man väljer antal spår ---->
<form action="addalbums.asp?action=addtracks">
<input type name="antal" size="30" class="form">
<input type="submit" name="Submit" value="continue" onfocus=this.blur()>
</form>
<---- sidan där man sparar spåren ---->
<form method="post" name="addtracks" action="addalbums.asp?action=save">
<%For X = 1 To Request.Form("antal")%>
<input type name="svar<%=X%>" size="30" class="form">
?-------> <textarea name="?"></textarea>
<%Next%>
<input type="submit" value="Create" onfocus=this.blur()>
</form>
Problemet är hur man skriver in värdet från textarea ihop med varje spårfält...
If Request.Querystring("action") = "save" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db2
For Each Name In Request.Form
If Not Request.Form(Name) = "save" Then
SQL = "Insert Into tracklisting(trackname, tracknumber) Values('"& Request.Form(Name) &"',"& CInt(Replace(Name,"svar","")) &")"
Conn.Execute(SQL)
End If
Next
Conn.Close
Set Conn = nothing
Response.Redirect "addalbums.asp"
End If
Puh :D
Hoppas att nån förstår vad jag menar...
Tack på förhand!
Du är inte så långt ifrån... Det här borde funka:
For Each Name In Request.Form
If Left(Name, 4) = "save" Then
SQL = "Insert Into tracklisting(trackname, tracknumber) Values('"& Request.Form(Name) &"',"& CInt(Replace(Name,"svar","")) &")"
Conn.Execute(SQL)
End If
Next
Det vore najsigt om du använde [kod]-taggar till din kod också. ;)
mvh
Tack för svaret Anders! Tänkte se en grej, följer informationen i varje textarea med då om den ska sparas i ett annat fält (details) i databasen? tex såhär:
For Each Name In Request.Form
If Left(Name, 4) = "save" Then
SQL = "Insert Into tracklisting(trackname, details, tracknumber) Values('"& Request.Form(Name) &"',"& CInt(Replace(Name,"svar","")) &")"
Conn.Execute(SQL)
End If
Next
[kod]-taggarna!
ja Magnus?
Använd kod-taggarna när du postar kod.
Ska komma ihåg det till nästa gång :)
Tänkte se en grej, följer informationen i varje textarea med då om den ska sparas i ett annat fält (details) i databasen?
Jag förstår inte riktigt vad du menar. :)
Textarean som följer med för varje <%=x%> ska sparas i ett fält i databasen... vilken kod lagrar denna? kan det se ut som nedan:
For Each Name In Request.Form
If Not Request.Form(Name) = "save" Then
SQL = "Insert Into tracklisting(trackname, details, tracknumber) Values('"& Request.Form(Name) &"','"& Request.Form(Name) &"',"& CInt(Replace(Name,"svar","")) &")"
Conn.Execute(SQL)
End If
Next