Antal gånger visat

Re: Antal gånger visat

Nova skrev:

På min sida för recept skulle jag vilja ha en funktion som visar antal gånger just "detta" recept är visat.

Recepten ligger i en access databas, som jag hämtar med asp.

Med denna kod (som jag har fått hjälp av här på wF) så ökar antalet med 1 varje gång någon besöker en annan användare
Modifiera den bara för att passa din sida

if lUserId <> lVisitorId then
objConn.execute "INSERT INTO tblUsers_visitors (HomeUserId, HomeVisitorId, HomeDateVisited,HomeTimeVisited) VALUES(" & lUserId & "," & lVisitorId & ",'" & date & "','" & time & "')"
end if

Sen för att visa så plockar du bara ut antalet besökare efter ex receptID och summerar

Mitt Rs ser ut så här.

SELECT Recept.*, personal.*
FROM personal INNER JOIN Recept ON personal.Kontaktnr = Recept.Kontaktnr
WHERE Receptnr = MMColParam;

Tabellen recept har följande kolumner.
Receptnr | rec_namn | instr_1 | instr_2 | bildliten | tid | datum | bildstor | portionantal | kontaktnr |

Det enklaste är väl att lägga till ett fält i tabellen recept, där du håller koll på hur många gånger receptet visats. Kör bara en UPDATE när du har hämtat datat för receptet.

Då kommer en följdfråga hur gör jag för att Update ska fungerar?
Kodensom skriver ut receptet

<td width="46%" valign="top"><strong class="advart"><%=(Rsrecinstruk.Fields.Item("rec_namn1").Value)%> 
</strong><br>
      Ingredienser<br>
      <%=(Rsrecinstruk.Fields.Item("Portionsantal").Value)%>&nbsp;portioner<br>
      <br>
      <% Response.Write (tecken((Rsrecinstruk.Fields.Item("instr_2").Value))) %>     </td>
          <td width="54%"  valign="top"> 
<p><img src="bilder/mat/<%=(sbild(Rsrecinstruk.Fields.Item("Bilderstor").Value))%>" alt="Receptbild"></p>
            <p><span class="feature_lit"><strong><br>
              Tillagningstid: </strong><%=(Rsrecinstruk.Fields.Item("tid").Value)%> </span><br>
                <% Response.Write (tecken((Rsrecinstruk.Fields.Item("instr_1").Value))) %>
                </td>
        </tr>
      </table>

Nova skrev:

Då kommer en följdfråga hur gör jag för att Update ska fungerar?

Till att börja med, se till att fältet innehåller 0 (sätt 0 som standardvärde på fältet i Access). Sedan kör du bara en SQL-fråga, typ:

UPDATE tabell SET ditt_nya_fält = ditt_nya_fält + 1 WHERE id = 4711

- - - - -

I övrigt: du skriver lite mycket för att hämta värden från ditt recordset.

' i din kod:
Rsrecinstruk.Fields.Item("instr_1").Value

' kan ersättas med:
Rsrecinstruk("instr_1")

Mitt nya fält i tabellen "recept" heter "visat" och mitt Rs heter "Rsrecinstruk" som har ett filter på "receptnr".

Jag förstår inte hur jag ska skriva.