Kan man få en REcset att inte skriva samma sak igen?

Draftracer3Medlem sedan dec. 200353 inlägg

Frågan14 dec. 2003 21:47#1

Hur kan man få en <%RecSet("nånting")%> att inte skriva samma sak igen... exempel

Dag
<%RecSet("veckodag")%>
<%RecSet("mess")%>

Resultat
Dag
Måndag
meddelande

Men sen när jag lägger till en ny rubrik på måndag då blir det
Dag
Måndag
meddelande

Måndag
meddelande

Så kan jag inte fixa så att den inte skriver in samma sak på <%RecSet("veckodag")%> Så här typ...

Dag
Måndag
meddelande

meddelande

Alltså utan den andra måndagen då har den inte skrivet <%RecSet("veckodag")%> igen

A men iaf här är min kod.. sida komihog.asp

<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/kalender.mdb")

If Request.Querystring("date") = "" Then
   datum = Date()
Else
   datum = Request.Querystring("date")
End If

nu=Date
vecka=DatePart("ww",nu)
veckodag = DatePart("w", nu)
dagnamn=WeekDayName(veckodag)

Set RecSet = Conn.Execute("Select * From Mess Where vecka=" & vecka)%>
                   <tr>
                      <td colspan="3"><B>Vecka <%=vecka%></B><br><br>
                      </td>
                   </tr>

<%If RecSet.EOF Then%>

                   <tr>
                      <td colspan="3">Inget att komma ihåg i <br>vecka <%=vecka%>
                      </td>
                   </tr>
<%Else
Do until RecSet.EOF%> 
                    <tr>
                      <td colspan="3"><strong>
<%if RecSet("veckodag") = 01 then
response.write("Måndag")

elseif RecSet("veckodag") = 02 then
response.write("Tisdag")

elseif RecSet("veckodag") = 03 then
response.write("Onsdag")

elseif RecSet("veckodag") = 04 then
response.write("Torsdag")

elseif RecSet("veckodag") = 05 then
response.write("Fredag")

elseif RecSet("veckodag") = 06 then
response.write("    <td>Obestämt</td>")
end if%>
</strong><br><a class="komihog" href="default.asp?do=status&datum=<%=RecSet("datum")%>"><%=RecSet("rubrik")%></a><br>
                      </td>
                    </tr>
<%RecSet.MoveNext
Loop%>
<%end if%>

Alltså i databasen står det 01, 02, 03, 04, 05 eller 06 som då byts ut mot veckodagen!

Engine^Medlem sedan dec. 20003 887 inlägg

15 dec. 2003 07:51#2

Då får du nog ta och stoppa in en "kom-ihåg"-variabel, som håller rätt på vilken dag som senast skrevs ut. Du kan även använda dig av en praktisk funktion som heter WeekdayName()

<%
Else
  intLastWDay = 0

  Do until RecSet.EOF
%> 
                    <tr>
                      <td colspan="3"><strong>
<%
    If Not RecSet("veckodag") = intLastWDay Then
      If RecSet("veckodag") > 5 Then
        Response.Write("<td>Obestämt</td>")
      Else
        Response.Write WeekdayName(RecSet("veckodag"))
      End If
    End If

  intLastWDay = RecSet("veckodag")
%>
</strong><br><a class="komihog" href="default.asp?do=status&datum=<%=RecSet("datum")%>"><%=RecSet("rubrik")%></a><br>
                      </td>
                    </tr>
<%
    RecSet.MoveNext

  Loop
End If
%>