--- title: "SQL Fråga" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/63752-sql-fråga" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "jonas76" published: "2003-01-03T13:28:43.000Z" updated: "2003-01-07T07:31:37.000Z" replies: 13 views: 449 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/63752-sql-fråga" --- # SQL Fråga ## #1 — jonas76, 2003-01-03T13:28Z Hej Finns det någon möjlighet att göra följande kod enklare? (den fungerar hur bra som helst förövrigt men det blir bara så mycket) Tacksam för all hjälp. // Jonas set connection=server.createobject("adodb.connection") connection.open "dsn=rd1" stm1= "select Count(\*) AS swe1 from cbslotts where landslott='Sverige' and cbtid= #" &date &"# and cbslott='08:00-09:00' and 1 = 1 " set rs = connection.execute(stm1) if isnull(rs("swe1")) then swe1 = 0 else swe1 = round(rs("swe1")) end if stm2= "select Count(\*) AS swe2 from cbslotts where landslott='Sverige' and cbtid= #" &date &"# and cbslott='09:00-10:00' and 1 = 1 " set rs = connection.execute(stm2) if isnull(rs("swe2")) then swe2 = 0 else swe2 = round(rs("swe2")) end if stm3= "select Count(\*) AS swe3 from cbslotts where landslott='Sverige' and cbtid= #" &date &"# and cbslott='10:00-11:00' and 1 = 1 " set rs = connection.execute(stm3) if isnull(rs("swe3")) then swe3 = 0 else swe3 = round(rs("swe3")) end if stm4= "select Count(\*) AS swe4 from cbslotts where landslott='Sverige' and cbtid= #" &date &"# and cbslott='15:00-16:00' and 1 = 1 " set rs = connection.execute(stm4) if isnull(rs("swe4")) then swe4 = 0 else swe4 = round(rs("swe4")) end if stm5= "select Count(\*) AS swe5 from cbslotts where landslott='Sverige' and cbtid= #" &date &"# and cbslott='16:00-17:00' and 1 = 1 " set rs = connection.execute(stm5) if isnull(rs("swe5")) then swe5 = 0 else swe5 = round(rs("swe5")) end if rs.close Connection.close Set Connection = Nothing Permalänk: https://www.webforum.nu/p/63752 ## #2 — Jesper T, 2003-01-03T13:34Z För kännedom:Det är ett grymt säkerhetshål på din inloggningssida. Det skulle sitta bra med lite replace ;) Permalänk: https://www.webforum.nu/p/901632 ## #3 — jonas76, 2003-01-03T13:38Z Ajdå det låter ju inte bra vill du förklara lite bättre? Tack för din info :) Permalänk: https://www.webforum.nu/p/901634 ## #4 — Jesper T, 2003-01-03T13:41Z Vad är det den koden skall göra? Permalänk: https://www.webforum.nu/p/901637 ## #5 — jonas76, 2003-01-03T13:44Z Menar du ovanstående kod eller menar du den till inloggningen? Permalänk: https://www.webforum.nu/p/901638 ## #6 — Jesper T, 2003-01-03T13:47Z Ovanstående kod menar jag. Detta är till inloggningen: ``` function fixa(fix) fix = Replace(fix,"'", "''") fix = Replace(fix,"|","") fixa = fix end function username = fixa(Request.Form("username")) password = fixa(Request.Form("password")) ``` Permalänk: https://www.webforum.nu/p/901642 ## #7 — jonas76, 2003-01-03T13:50Z TAck för "fixen" :) Ovanstående kod. Jo jag skall ha en summering för olika kriterier som jag sedan redovisar på sidan med tex: \ \Land: \Sverige\\ \Tid: \08:00-09:00\\ \Antal: \\<%=swe1%\>\\ \ osv......... Permalänk: https://www.webforum.nu/p/901645 ## #8 — Jesper T, 2003-01-03T13:50Z Tebax till "grundinlägget": Jag ser inte att du skriver ut någonting någon gång i koden. Hur ser den delen ut? V.V. använd \[kod\]-taggar när du skriver ut kod. Permalänk: https://www.webforum.nu/p/901646 ## #9 — Jesper T, 2003-01-03T13:54Z Det är nog smartare om du loopar ut hela recsetet på någe vis. Permalänk: https://www.webforum.nu/p/901649 ## #10 — jonas76, 2003-01-03T13:54Z \ \Land: \Sverige\\ \Tid: \08:00-09:00\\ \Antal: \ \<%=swe1%\> \\ \\<%=swe1%\> Nu syns det bättre :) Permalänk: https://www.webforum.nu/p/901650 ## #11 — Jesper T, 2003-01-03T14:05Z Något liknande kanske: ``` set connection=server.createobject("adodb.connection") connection.open "dsn=rd1" stm1= "SELECT landslott,cbtid,cbslott,Count(*) AS swe from cbslotts where landslott='Sverige' and cbtid= #" &date &"# and 1 = 1 GROUP BY cbslott" set rs = connection.execute(stm1) Do until rs.eof response.write("Land: "&rs("landslott") & " något:" & rs("cbslott") & " Antal: "& rs("swe")&" något:"& rs("cbtid")&"
") rs.movenext loop ``` Permalänk: https://www.webforum.nu/p/901656 ## #12 — jonas76, 2003-01-03T14:13Z jag får då följande fel: Microsoft OLE DB Provider for ODBC Drivers error '80040e14' \[Microsoft\]\[ODBC Microsoft Access Driver\] Du försökte köra en fråga med en mängdfunktion som inte innehöll det angivna uttrycket 'landslott'. /ccr/rd/test.asp, line 17 line 16=stm1= "SELECT landslott,cbtid,cbslott,Count(\*) AS swe from cbslotts where landslott='Sverige' and cbtid= #" &date &"# and 1 = 1 GROUP BY cbslott" line 17 =set rs = connection.execute(stm1) Permalänk: https://www.webforum.nu/p/901660 ## #13 — LarsG, 2003-01-04T15:43Z ``` stm1= "SELECT landslott,cbtid,cbslott,Count(*) AS swe from cbslotts " & _ " where landslott='Sverige' " & _ " and cbtid= #" &date &"# " & " GROUP BY landslott,cbtid,cbslott" ``` Permalänk: https://www.webforum.nu/p/902343 ## #14 — jonas76, 2003-01-07T07:31Z Tusen Tack :) Nu funkar det klockrent (det saknades ett "underscore" dock, men det löstes utan större problem) ;) Och jag tog bort raden " " where landslott='Sverige' " & \_ " För alla "länderna skulle räknas upp inte bara Sverige :) Tack igen :) // Jonas Permalänk: https://www.webforum.nu/p/903800 --- Tråden på webben: https://www.webforum.nu/amne/asp/63752-sql-fråga