--- title: "Forumet - vill ej fungera" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/44708-forumet-vill-ej-fungera/page2" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "voigtann1" published: "2002-05-28T08:08:38.000Z" updated: "2002-06-04T13:26:00.000Z" replies: 37 views: 883 page: 2 pages: 2 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/44708-forumet-vill-ej-fungera" --- # Forumet - vill ej fungera _Sida 2 av 2._ ## #21 — voigtann1, 2002-05-28T20:38Z order by datum är helt knäppt.. får göra så här: \<%IF NOT RS_datum.eof THEN%\> \<%=RS_datum("datum")%\> \ \<%else%\> \<%=RS2("datum")%\>\ \<%end if%\> först: då tar den inte med order med rs2("datum") och för det andra om någon posta det : 2002-05-28 11:11:11 och någon annan 2002-06-22 11:11:10 så kommer 2002-05-28 11:11:11 före ändå.. Permalänk: https://www.webforum.nu/p/686512 ## #22 — voigtann1, 2002-05-29T11:31Z jag behöver någon outer join sats för det här tror jag... sen är jag nog färdig med den "svåta" biten... vill någon hjälpa mej? här är databasen ID - ID använding för svar_ID forum_ID - Forumets ID asp = ID 2 tex skrivbent - Vem som skrev inlägget datum - Datum när den skrevs in meddelande - mess från användaren svar_ID - Vilket ID har man svarat på? Permalänk: https://www.webforum.nu/p/686738 ## #23 — voigtann1, 2002-05-29T14:38Z var är killen som är fet med outer och inner joins? Permalänk: https://www.webforum.nu/p/686863 ## #24 — voigtann1, 2002-05-29T18:40Z @nders eller någon???? behöver verkligen hjälp här... Permalänk: https://www.webforum.nu/p/686968 ## #25 — @nders, 2002-05-29T18:44Z Vi vill ju att du ska försöka själv först! :) Hur ser gällande SQL-fråga ut (den du vill vi ska ändra på)? Permalänk: https://www.webforum.nu/p/686971 ## #26 — voigtann1, 2002-05-29T18:49Z det är det felet är.. har inte riktigt koll på vilken som gör det... men jag tror det är denna: \<% SQL = "select \* from topics where forum_id="&Request.Querystring("id") SQL = SQL & " AND svar_id = 0 order by Datum Desc" Set RS2 = Databas.Execute(SQL) %\> men har även: \<% SQL = "select \* from topics where forum_id="&Request.Querystring("id")&" order by datum desc" Set RS_inlagg = Databas.Execute(SQL) SQL = "select count(\*) AS count_svar from topics where svar_id="&RS2("id") Set RS_count_svar = Databas.Execute(SQL) SQL = "select count(\*) AS datum_check from topics where svar_id="&RS2("id") Set RS_datum_check = Databas.Execute(SQL) SQL = "select datum from topics where svar_id="&RS2("id") SQL = SQL & " order by datum desc" Set RS_datum = Databas.Execute(SQL) SQL = "select skribent from topics WHERE forum_id=" & RS("id") &" and svar_id=" & RS2("id") SQL = SQL & " order by datum and ID desc" Set RS_skribent = Databas.Execute(SQL) SQL = "SELECT \* FROM topics WHERE id=" & RS("id") &" OR svar_id=" & RS2("id") & " ORDER BY svar_id DESC" Set RS_senastetest = Databas.Execute(SQL) %\> P.S Har ju ingen koll på Inner Join och sånt så det är rätt svårt att försöka själv =) D.S Permalänk: https://www.webforum.nu/p/686978 ## #27 — @nders, 2002-05-29T19:36Z Nu famlar jag lite i mörkret igen, för jag förstår inte hur din kod fungerar. ``` SQL = "SELECT iif(isnull(t2.datum), t.datum, t2.datum), t.* from topics t " & _ "left outer join topics t2 on t.forum_id = t2.svar_id where t.forum_id = " & Request.Querystring("id") & " order by 1 desc" ``` Fast som sagt, ordentlig gissning... mvh, Permalänk: https://www.webforum.nu/p/687022 ## #28 — voigtann1, 2002-05-29T20:00Z Hur ska koden ser ut? ``` <% if Request.QueryString("style") <> "" then stile = "SELECT * FROM style WHERE id=" & Request.QueryString("style") Set style = Server.CreateObject("ADODB.Recordset") style.Open stile,Session("dbasepath") ,3 ,3 'on error resume next %> .css" type="text/css"> <%else%> <%end if Session.LCID = 1053 Set Databas = Server.CreateObject("ADODB.Connection") MdbFilePath = Server.MapPath("db/forum.mdb") Session("dbasepath") = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" Databas.Open Session("dbasepath") SQL = "select * from forums where id="&Request.Querystring("id") Set RS = Databas.Execute(SQL) SQL = "select * from topics where forum_id="&Request.Querystring("id") SQL = SQL & " AND svar_id = 0 order by Datum Desc" Set RS2 = Databas.Execute(SQL) %> Untitled Document <% if rs2.eof then%> <%else Do While NOT RS2.EOF SQL = "select * from topics where forum_id="&Request.Querystring("id")&" order by datum desc" Set RS_inlagg = Databas.Execute(SQL) SQL = "select count(*) AS count_svar from topics where svar_id="&RS2("id") Set RS_count_svar = Databas.Execute(SQL) SQL = "select count(*) AS datum_check from topics where svar_id="&RS2("id") Set RS_datum_check = Databas.Execute(SQL) SQL = "select datum from topics where svar_id="&RS2("id") SQL = SQL & " order by datum desc" Set RS_datum = Databas.Execute(SQL) SQL = "select skribent from topics WHERE forum_id=" & RS("id") &" and svar_id=" & RS2("id") SQL = SQL & " order by datum and ID desc" Set RS_skribent = Databas.Execute(SQL) SQL = "SELECT * FROM topics WHERE id=" & RS("id") &" OR svar_id=" & RS2("id") & " ORDER BY svar_id DESC" Set RS_senastetest = Databas.Execute(SQL) %> <% Set RS_count_svar = nothing Set RS_datum_check = nothing Set RS_datum = Nothing Set RS_inlagg = Nothing RS2.MoveNext Loop end if Set RS2 = nothing %>
  Inlägg Startad av Svar Senaste Inlägget
Ingen Tråd har startats i <%=RS("namn")%> ännu.
(•) &inlagg_id=<%=RS2("id")%>><%=RS2("amne")%> "><%=RS2("skribent")%> <%=RS_count_svar("count_svar")%> <%IF NOT RS_datum.eof THEN%> <%=Free(RS_datum("datum"))%>
<%else%> <%=Free(RS2("datum"))%>
<%end if%> Senaste svar av: <%IF NOT rs_skribent.eof THEN%> <%=RS_skribent("skribent")%> <%else%> <%=RS2("skribent")%> <%end if%>
``` Permalänk: https://www.webforum.nu/p/687041 ## #29 — @nders, 2002-05-29T20:03Z Det var alltså den översta SQL-frågan jag skrev om (eller försökte skriva om i alla fall). Permalänk: https://www.webforum.nu/p/687043 ## #30 — voigtann1, 2002-06-02T17:45Z Provade det du sa @nders: ``` <% Function Free(f2) Set objRegExp = New regexp objRegExp.Global = true objRegExp.IgnoreCase = true f2 = Server.HTMLEncode(f2) objRegExp.Pattern = date() f2 = objRegExp.Replace(f2,"Idag") objRegExp.Pattern = date()-1 f2 = objRegExp.Replace(f2,"Igår") for i = 1 to 12 objRegExp.Pattern = "(....)\-(" & right("0" & i,2) & ")\-(..)" f2 = objRegExp.Replace(f2,"$3 " & lcase(monthname(i, True)) & " $1") next objRegExp.Pattern = "(..:..)(:..)" f2 = objRegExp.Replace(f2,"kl:$1") free = f2 End Function %> <% if Request.QueryString("style") <> "" then stile = "SELECT * FROM style WHERE id=" & Request.QueryString("style") Set style = Server.CreateObject("ADODB.Recordset") style.Open stile,Session("dbasepath") ,3 ,3 'on error resume next %> .css" type="text/css"> <%else%> <%end if Session.LCID = 1053 Set Databas = Server.CreateObject("ADODB.Connection") MdbFilePath = Server.MapPath("db/forum.mdb") Session("dbasepath") = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" Databas.Open Session("dbasepath") 'SQL = "select * from forums where id="&Request.Querystring("id") SQL = "SELECT iif(isnull(t2.datum), t.datum, t2.datum), t.* from topics t " & _ "left outer join topics t2 on t.forum_id = t2.svar_id where t.forum_id = " & Request.Querystring("id") & " order by 1 desc" Set RS = Databas.Execute(SQL) SQL = "select * from topics where forum_id="&Request.Querystring("id") SQL = SQL & " AND svar_id = 0 order by Datum" Set RS2 = Databas.Execute(SQL) %> Untitled Document <% if rs2.eof then%> <%else Do While NOT RS2.EOF SQL = "select * from topics where forum_id="&Request.Querystring("id")&" order by datum desc" Set RS_inlagg = Databas.Execute(SQL) SQL = "select count(*) AS count_svar from topics where svar_id="&RS2("id") Set RS_count_svar = Databas.Execute(SQL) SQL = "select count(*) AS datum_check from topics where svar_id="&RS2("id") Set RS_datum_check = Databas.Execute(SQL) SQL = "select datum from topics where svar_id="&RS2("id") SQL = SQL & " order by datum desc" Set RS_datum = Databas.Execute(SQL) SQL = "select skribent from topics WHERE forum_id=" & RS("id") &" and svar_id=" & RS2("id") SQL = SQL & " order by datum and ID desc" Set RS_skribent = Databas.Execute(SQL) SQL = "SELECT * FROM topics WHERE id=" & RS("id") &" OR svar_id=" & RS2("id") & " ORDER BY svar_id DESC" Set RS_senastetest = Databas.Execute(SQL) %> <% Set RS_count_svar = nothing Set RS_datum_check = nothing Set RS_datum = Nothing Set RS_inlagg = Nothing RS2.MoveNext Loop end if Set RS2 = nothing %>
  Inlägg Startad av Svar Senaste Inlägget
Ingen Tråd har startats i <%=RS("namn")%> ännu.
(•) &inlagg_id=<%=RS2("id")%>><%=RS2("amne")%> "><%=RS2("skribent")%> <%=RS_count_svar("count_svar")%> <%IF NOT RS_datum.eof THEN%> <%=Free(RS_datum("datum"))%>
<%else%> <%=Free(RS2("datum"))%>
<%end if%> Senaste svar av: <%IF NOT rs_skribent.eof THEN%> <%=RS_skribent("skribent")%> <%else%> <%=RS2("skribent")%> <%end if%>
``` Fungera dock inte :( Permalänk: https://www.webforum.nu/p/688687 ## #31 — @nders, 2002-06-02T19:19Z På vilket sätt fungerade det inte? Fick du något felmeddelande? Permalänk: https://www.webforum.nu/p/688725 ## #32 — voigtann1, 2002-06-02T20:33Z inget fel meddelande... men sidan ser lika dan som den gjorde innan jag ändrade SQL satsen.. Permalänk: https://www.webforum.nu/p/688744 ## #33 — @nders, 2002-06-03T04:46Z Du loopar ju aldrig igenom recordsetet RS, ska du inte det? Permalänk: https://www.webforum.nu/p/688823 ## #34 — voigtann1, 2002-06-03T05:58Z ``` <% Function Free(f2) Set objRegExp = New regexp objRegExp.Global = true objRegExp.IgnoreCase = true f2 = Server.HTMLEncode(f2) objRegExp.Pattern = date() f2 = objRegExp.Replace(f2,"Idag") objRegExp.Pattern = date()-1 f2 = objRegExp.Replace(f2,"Igår") for i = 1 to 12 objRegExp.Pattern = "(....)\-(" & right("0" & i,2) & ")\-(..)" f2 = objRegExp.Replace(f2,"$3 " & lcase(monthname(i, True)) & " $1") next objRegExp.Pattern = "(..:..)(:..)" f2 = objRegExp.Replace(f2,"kl:$1") free = f2 End Function %> <% if Request.QueryString("style") <> "" then stile = "SELECT * FROM style WHERE id=" & Request.QueryString("style") Set style = Server.CreateObject("ADODB.Recordset") style.Open stile,Session("dbasepath") ,3 ,3 'on error resume next %> .css" type="text/css"> <%else%> <%end if Session.LCID = 1053 Set Databas = Server.CreateObject("ADODB.Connection") MdbFilePath = Server.MapPath("db/forum.mdb") Session("dbasepath") = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" Databas.Open Session("dbasepath") 'SQL = "select * from forums where id="&Request.Querystring("id") SQL = "select * from topics where forum_id="&Request.Querystring("id") SQL = SQL & " AND svar_id = 0 order by Datum" Set RS2 = Databas.Execute(SQL) %> VOiGtAN Forum - <% if rs2.eof then%> <%else Do While NOT RS2.EOF SQL = "SELECT iif(isnull(t2.datum), t.datum, t2.datum), t.* from topics t " & _ "left outer join topics t2 on t.forum_id = t2.svar_id where t.forum_id = " & Request.Querystring("id") & " order by 1 desc" Set RS = Databas.Execute(SQL) SQL = "select * from topics where forum_id="&Request.Querystring("id")&" order by datum desc" Set RS_inlagg = Databas.Execute(SQL) SQL = "select count(*) AS count_svar from topics where svar_id="&RS2("id") Set RS_count_svar = Databas.Execute(SQL) SQL = "select count(*) AS datum_check from topics where svar_id="&RS2("id") Set RS_datum_check = Databas.Execute(SQL) SQL = "select datum from topics where svar_id="&RS2("id") SQL = SQL & " order by datum desc" Set RS_datum = Databas.Execute(SQL) SQL = "select skribent from topics WHERE forum_id=" & RS("id") &" and svar_id=" & RS2("id") SQL = SQL & " order by datum and ID desc" Set RS_skribent = Databas.Execute(SQL) SQL = "SELECT * FROM topics WHERE id=" & RS("id") &" OR svar_id=" & RS2("id") & " ORDER BY svar_id DESC" Set RS_senastetest = Databas.Execute(SQL) %> <% Set RS_count_svar = nothing Set RS_datum_check = nothing Set RS_datum = Nothing Set RS_inlagg = Nothing RS2.MoveNext Loop end if Set RS2 = nothing %>
  Inlägg Startad av Svar Senaste Inlägget
Ingen Tråd har startats i <%=RS("namn")%> ännu.
(•) &inlagg_id=<%=RS2("id")%>><%=RS2("amne")%> "><%=RS2("skribent")%> <%=RS_count_svar("count_svar")%> <%IF NOT RS_datum.eof THEN%> <%=Free(RS_datum("datum"))%>
<%else%> <%=Free(RS2("datum"))%>
<%end if%> Senaste svar av: <%IF NOT rs_skribent.eof THEN%> <%=RS_skribent("skribent")%> <%else%> <%=RS2("skribent")%> <%end if%>
``` ingen skillnad Permalänk: https://www.webforum.nu/p/688835 ## #35 — voigtann1, 2002-06-03T17:54Z har en fråga... vad är det egentilgen jag ska få ut??? hur ska den ungefär ser ut??? Permalänk: https://www.webforum.nu/p/689169 ## #36 — voigtann1, 2002-06-04T12:07Z Är det detta jag vill få fram? OM det finns ett svar_ID som har det ID topicen har så ska den skriva ut det datumet annars så ska datumet sorteras efter Topicens datum.. eller? det borde ju inte vara så svårt... Permalänk: https://www.webforum.nu/p/689516 ## #37 — solbulle, 2002-06-04T13:18Z Inte för att klanka ner eller så, men nog lär det vara svårt för oss andra att veta vad Du vill få fram, om inte ens du själv vet? Själv fattar jag inte mycket av det som din kod gör eller skall göra. :( Permalänk: https://www.webforum.nu/p/689558 ## #38 — voigtann1, 2002-06-04T13:26Z får lösa det på detta sättet: göra en ny databas med "answers" så får man göra någon join på det sättet... ska försöka fixa det själv men jag återkommer om jag får problem... Permalänk: https://www.webforum.nu/p/689564 --- Tråden på webben: https://www.webforum.nu/amne/asp/44708-forumet-vill-ej-fungera/page2 Föregående sida: https://www.webforum.nu/amne/asp/44708-forumet-vill-ej-fungera.md