Just nu i M3-nätverket
Gå till innehåll

hellomoto

Medlem
  • Antal inlägg

    32
  • Gick med

  • Senaste besök

  1. Väljer man första kursen på dropdownlistan ska man se alla anmälningar till den. Dvs man sorterar ut de anmälningarna ur databasen. Precis som på en del sidor när man klickar på rubriken Namn och listan sorteras i namn-ordning, fast via en dropdown istället. visa.asp?sortera=kurs1 typ.
  2. Fin bild Jag tror jag förstår vad du menar, get syns i adressfältet, post gör det inte. Men jag undrar fortfarande vad jag ska ha för action så att den sorterar när jag trycker på submit. För jag måste väl ha en action?
  3. Ja verkligen! Tyvärr är det är svårt att tänka några steg framåt innan man har fått lite rutin. Och man har gärna för stora planer som man inte har kunskap att kunna genomföra på ett bra sätt... (jag vet Tur att det finns snälla personer med tålamod att hjälpa oss tröga! För att återgå till sortera-funktionen... <form method="post" action="?"> Action är väl där adressen?sortera= ska va för att det ska funka, men hur ska jag skriva den för att det ska blir rätt? [inlägget ändrat 2006-11-26 12:09:40 av hellomoto]
  4. Det var precis så jag menade Cluster. Ska testa din kod, tack! De flesta kommer bara anmäla sig till en kurs, men om någon vill vara med på flera så går det. Då fyller man i anmälningsformuläret en gång till. Det är säkerligen inte bästa databasdesignen men det funkar iaf. [inlägget ändrat 2006-11-24 09:11:11 av hellomoto]
  5. hej igen! Den här gången hoppas jag att mitt problem blir enklare att lösa Jag har en sida som visar alla gjorda anmälningar till olika kurser. Jag vill att man genom en rullist som listar alla kurserna från tblKurs, ska kunna välja en kurs och se alla som är anmälda till den (deras info finns i tblDeltagare). Själva funktionen då. Där frågetecknet är undrar jag vad som ska stå för att den ska ta det id som blir beroende på vilken kurs man väljer att se. [log]<% Dim sortera If Request.QueryString("sortera") = "" Then sortera = "id" 'standradkolumnen Else sortera = Request.QueryString("sortera") End If Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/db/anmalan.mdb") sql = "Select * From tblDeltagare WHERE id = ?" %>[/log] Den här koden hämtar kurserna från tblKurs. Den röda koden visar mitt misslyckade försök till att länka. [log]<% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/db/anmalan.mdb") strSQL = "SELECT id, strKursnamn FROM tblKurs ORDER BY id ASC" Set RecSet = Connect.Execute(strSQL) %> <select name="dans" id="dans"> <% RecSet.MoveFirst() %> <% Do Until RecSet.Eof %> <option value="visa.asp?sortera=<% =RecSet("id") %>"><% =RecSet("strKursnamn") %></option> <% RecSet.MoveNext Loop RecSet.Close Set RecSet= nothing Connect.Close Set Connect = nothing %> </select>[/log] Hoppas jag har kunnat förklara någorlunda begripligt. [inlägget ändrat 2006-11-23 14:32:29 av hellomoto]
  6. Ja du, den som hade ett bra svar på det =D Vill mycket men kan för lite...
  7. Hur menar du? Det är bara någon enstaka kurs som är full.
  8. När jag testar koden så syns inte något i dropdown. Inget felmeddelande heller.
  9. Nu funkar det! Då kommer nästa grej. Det ska inte gå att välja en kurs som är fullbokad. Till det har jag Dim bKursFull If CInt(RecSet("strAntal")) = CInt(RecSet("strPlatser")) Then bKursFull = True Else bKursFull = False End If <% If bKursFull = True Then %> <b>Kursen som du har valt är full</b> <br /> <% End If %> Detta är inte med på sidan där man skriver in sig, utan det kontrolleras på nästa sida, där man kontrollerar att ens info stämmer innan man skickar det. Hur får jag in det på redigera-sidan?
  10. Jag tänkte mig att det enklaste var att presentera kurserna i en jumpmeny. Det blir visserligen en ganska lång lista men hur gör jag annars på smidigaste sätt? När jag testar med ditt kodexempel Microsoft JET Database Engine error '80040e14' Syntax error (missing operator) in query expression ''kalle' strEfternamn='kalle' strAdress='kalle' strPostnr='kalle' strPostort='kalle' strTelehem='kalle' strMobil='kalle' strEpost='elin.welander@yahoo.se' kursid='2' strOvrigt='''. redigera.asp, line 113 113: conn.Execute(strSQL)
  11. Det blir ingen skillnad när jag lägger till conn.Execute(strSQL)
  12. Det beror på bristande kunskaper... Nu har jag iaf fått in den där koden som visar de olika värdena (man väljer kurs) i databasen. När jag sen ska uppdatera har jag testat att lägga till det under det andra som ska uppdateras [log] Set conn = Server.CreateObject("ADODB.Connection") connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/db/anmalan.mdb") conn.open connStr strSQL = "UPDATE tblDeltagare SET "&_ "strFornamn='"&strfornamn&"', "&_ "strEfternamn='"&strefternamn&"', "&_ "strAdress='"&stradress&"', "&_ "strPostnr='"&strpostnr&"', "&_ "strPostort='"&strpostort&"', "&_ "strTelehem='"&strtelehem&"', "&_ "strMobil='"&strmobil&"', "&_ "strEpost='"&strepost&"', "&_ "strOvrigt='"&strovrigt&"' "&_ "WHERE deltID =" & deltID strSQL = "UPDATE tblDeltagare SET "&_ "kursid='"&kursid&"' "&_ "WHERE deltID =" & deltID Response.Write(strSQL) conn.Execute(strSQL) conn.close Set conn=Nothing[/log] men istället för att byta kurs så försvinner det värdet. hur ska jag skriva?
  13. Tråden handlar om redigera-sidan till min gästbok. På sidan där man skriver i den har jag en funktion som gör att man kan välja olika alternativ från en databas. Om man skulle behöva ändra något vill jag att den funktionen ska funka på redigera-sidan också. Men jag vet inte hur jag ska lägga in koden på den sidan. Oj nu blev det rörigt, är du med?
  14. Skulle behöva lite mer hjälp till samma sida, om ni orkar *pust* På sidan där man skriver i formuläret första gången (alltså inte redigerar) har jag följande kod för att kunna lista de danser som är inlagda i databasen, i en rullgardinsmeny. Jag vill ju självklart att det ska gå att ändra detta när man redigerar, men hur gör jag? [log]<% Dim strSQL, Connect, RecSet Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/db/anmalan.mdb") strSQL = "SELECT id, strAntal, strPlatser, strKursnamn, strPris FROM tblKurs ORDER BY id ASC" Set RecSet = Connect.Execute(strSQL) %>[/log] [log]<select name="dans" id="dans" onchange="MM_jumpMenu('parent',this,0)"> <% RecSet.MoveFirst() %> <% Do Until RecSet.Eof %> <option value="<% =RecSet("id") %>"><% =RecSet("strKursnamn") %> (<%=RecSet("strPris")%> kr)</option> <% RecSet.MoveNext Loop RecSet.Close Set RecSet= nothing Connect.Close Set Connect = nothing %> </select> [/log]
  15. Weee! Nu funkar det, tack så jättemycket för all hjälp och för tålamodet Supersnällt!!
×
×
  • Skapa nytt...