Notifikationer

Markér alle som læst Log ud

fastpoint Nybegynder

21. februar 2002 - 11:28 Der er 27 kommentarer og
1 løsning

Ny! efter titel

hvordan laver jeg sådan at der automatisk bliver tilføjet ordet "Ny" efter de nyeste indlæg?

scriptet ser sådan ud

<center>
<a href="./out.asp?id=<% Response.Write rs("id")%>" target="_blank">
<% Response.Write rs("titel")%>
</a>
</center>

og der skal tilføjes ordet Ny lige efter titel. Der skal kun stå ny i 24 timer (dvs. et døgn:=)

nogen som ved hvordan jeg man laver dette?

Synes godt om

hyperactive Nybegynder

21. februar 2002 - 11:30 #1

Hvilken database???

Synes godt om

senj Nybegynder

21. februar 2002 - 11:37 #2

Ide:

Du kunne indsætte datoen i din tabel, den dag den nye artikel bliver lagt i basen. Så har du nu din titel, dit id og datoen. Når du så henter dine artikler ud af basen, så sætter du en variablen til ny hvis datoen er inden for et døgn og ellers ikke.

/senj

Synes godt om

fastpoint Nybegynder

21. februar 2002 - 11:37 #3

access:)

Synes godt om

fastpoint Nybegynder

21. februar 2002 - 11:39 #4

Jeg kan ikke lige finde ud af det der hitech programmering i nu:=) Jeg er først startet på ASP fornyligt:)

Synes godt om

excession Nybegynder

21. februar 2002 - 11:48 #5

har du et dato felt i databasen til indlæg?

Hvis du har kan du gøre sådan her:

når du hiver dine indlæg ud skal du checke om datoen er lig med datoen nu og datoen igår..

<%
IF dato = Date() OR dato >= DateAdd('d',-1,Date()) THEN
ny = " NY!"

ELSE
ny = ""
END IF
%>

<center>
<a href="./out.asp?id=<% Response.Write rs("id")%>" target="_blank">
<% Response.Write rs("titel")%><%= ny %>
</a>
</center>

...
...

-- xs

Synes godt om

fastpoint Nybegynder

21. februar 2002 - 11:54 #6

ja jeg har et felt der hedder dato under "info" i min database.

jeg fik denne fejl i dit script

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/default.asp, line 245, column 36
IF dato = Date() OR dato >= DateAdd('d',-1,Date()) THEN

Synes godt om

excession Nybegynder

21. februar 2002 - 12:02 #7

hmm

kan du ikke lige poste lidt mere koden herinde?

jeg tror også den her linie skal ændres fra:

IF dato = Date() OR dato >= DateAdd('d',-1,Date()) THEN

til

IF dato = Date() OR dato = DateAdd('d',-1,Date()) THEN

-- xs

Synes godt om

fastpoint Nybegynder

21. februar 2002 - 12:19 #8

fjerner jeg <% og %> fra kode stumpen loader min side men der står bare denne kodestump over indlæg'et

IF dato = Date() OR dato >= DateAdd('d',-1,Date()) THEN ny = " NY!" ELSE ny = "" END IF

Her er lidt mere af koden

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from info ORDER BY id desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 65
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Do While Not rs.EOF And intRecCount > 0
%>
<tr valign="top">
<td width="291" bgcolor="#333333">
<center>
<a href="./out.asp?id=<% Response.Write rs("id")%>" target="_blank">
<% Response.Write rs("titel")%>
</a>
</center>

Synes godt om

excession Nybegynder

21. februar 2002 - 12:25 #9

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from info ORDER BY id desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 65
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Do While Not rs.EOF And intRecCount > 0

IF dato = Date() OR dato >= DateAdd('d',-1,Date()) THEN
ny = " NY!"

ELSE
ny = ""
END IF
%>
<tr valign="top">
<td width="291" bgcolor="#333333">
<center>
<a href="./out.asp?id=<% Response.Write rs("id")%>" target="_blank">
<% Response.Write rs("titel")%><%= ny %>
</a>
</center>

-- xs

Synes godt om

excession Nybegynder

21. februar 2002 - 12:26 #10

hov.. prøver lige igen

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from info ORDER BY id desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 65
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Do While Not rs.EOF And intRecCount > 0

IF dato = Date() OR dato = DateAdd('d',-1,Date()) THEN
ny = " NY!"

ELSE
ny = ""
END IF
%>
<tr valign="top">
<td width="291" bgcolor="#333333">
<center>
<a href="./out.asp?id=<% Response.Write rs("id")%>" target="_blank">
<% Response.Write rs("titel")%><%= ny %>
</a>
</center>

-- xs

Synes godt om

fastpoint Nybegynder

21. februar 2002 - 12:42 #11

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/default.asp, line 235, column 35
IF dato = Date() OR dato = DateAdd('d',-1,Date()) THEN

nu får jeg denne fejl

Synes godt om

excession Nybegynder

21. februar 2002 - 13:06 #12

prøv at ret det til det her i stedet for

datoMinusEn = DateAdd("d",-1,Date())
IF dato = Date() OR dato = datoMinusEn THEN

Synes godt om

fastpoint Nybegynder

21. februar 2002 - 13:33 #13

nu kommer der ingen fejl men der står ikke NY! efter titlen

scriptet ser sådan ud-

datoMinusEn = DateAdd("d",-1,Date())
IF dato = Date() OR dato = datoMinusEn THEN

ELSE
ny = ""
END IF
%>
<tr valign="top">
<td width="291" bgcolor="#333333">
<center>
<a href="./out.asp?id=<% Response.Write rs("id")%>" target="_blank">
<% Response.Write rs("titel")%><%= ny %>
</a>
</center>

Synes godt om

fastpoint Nybegynder

21. februar 2002 - 13:35 #14

jeg mener sådan

datoMinusEn = DateAdd("d",-1,Date())
IF dato = Date() OR dato = datoMinusEn THEN

ny = " NY!"

ELSE
ny = ""
END IF
%>
<tr valign="top">
<td width="291" bgcolor="#333333">
<center>
<a href="./out.asp?id=<% Response.Write rs("id")%>" target="_blank">
<% Response.Write rs("title")%><%= ny %>
</a>
</center>

Synes godt om

fastpoint Nybegynder

21. februar 2002 - 13:35 #15

hmm vent jeg sidder og fucker op i det kan jeg se

Synes godt om

fastpoint Nybegynder

21. februar 2002 - 13:37 #16

hmm nej jeg ved ikke hvad der er galdt...

undskylder lige for det 4 mails i lige har modtaget:)

Synes godt om

excession Nybegynder

21. februar 2002 - 13:41 #17

vi prøver lige en gang mere.. :)

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from info ORDER BY id desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 65
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Do While Not rs.EOF And intRecCount > 0
dato = rs("dato")

datoMinusEn = DateAdd("d",-1,Date())
IF dato = Date() OR dato = datoMinusEn THEN
ny = " NY!"

ELSE
ny = ""
END IF
%>
<tr valign="top">
<td width="291" bgcolor="#333333">
<center>
<a href="./out.asp?id=<% Response.Write rs("id")%>" target="_blank">
<% Response.Write rs("titel")%><%= ny %>
</a>
</center>

-- xs

Synes godt om

fastpoint Nybegynder

21. februar 2002 - 13:46 #18

der skete heller ikke noget:)

Synes godt om

excession Nybegynder

21. februar 2002 - 13:53 #19

for weird...

så vidt jeg kan se burde det virke..

du er sikker på at der er indlæg fra i dag og igår?

-- xs

Synes godt om

fastpoint Nybegynder

21. februar 2002 - 14:00 #20

ja jeg er:=)

kan det være denne del man skal lave om ?

<% Response.Write rs("titel")%><%= ny %>

for eksempel sætte NY ind i ("titel") delen? på en eller anden måde?

Synes godt om

excession Nybegynder

21. februar 2002 - 14:28 #21

jeg fatter ikke hvorfor det ikke virker..

jeg prøver lige at kigge på det

-- xs

Synes godt om

fastpoint Nybegynder

21. februar 2002 - 14:49 #22

mange tak:=)

Synes godt om

excession Nybegynder

21. februar 2002 - 15:05 #23

hmm jeg har lige testet det og det virker hos mig..

Det der kan være galt er datoen fra dato feltet..

Du siger dato feltet er i info tabellen.. og jeg kan se at du hiver alt ud fra tabellen her:

strSQL = "select * from info ORDER BY id desc"

så det burde virke..

-- xs

Synes godt om

fastpoint Nybegynder

21. februar 2002 - 15:35 #24

ok jeg vil lade det køre til i morgen og se hvad der sker:=)

Synes godt om

fastpoint Nybegynder

21. februar 2002 - 19:39 #25

du kan kigge på der her imens hvis du da er interesseret:)

http://www.eksperten.dk/spm/175924

Synes godt om

fastpoint Nybegynder

22. februar 2002 - 15:51 #26

ok det virkede ikke... her er hele script delen..

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from info ORDER BY id desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 80
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Do While Not rs.EOF And intRecCount > 0
dato = rs("dato")

datoMinusEn = DateAdd("d",-1,Date())
IF dato = Date() OR dato = datoMinusEn THEN
ny = " NEW!!!!"

ELSE
ny = ""
END IF
%>
<tr valign="top">
<td width="291" bgcolor="#333333">
<center>
<a href="./out.asp?id=<% Response.Write rs("id")%>" target="_blank">
<% Response.Write rs("title")%><%= ny %>
</a>
</center>

</td>
<td width="101" bgcolor="#333333">
<center>
<% Response.Write rs("dato")%>
</center>
</td>
<td width="72" bgcolor="#333333">
<center>
<% Response.Write rs("bin")%>
</center>
</td>
<td width="223" bgcolor="#333333">
<center>
<a href="<% Response.Write rs("plink")%>" target="_blank">
<% Response.Write rs("fra")%>
</a>
</center>
</td>
<td width="84" bgcolor="#333333">
<center>
<% Response.Write rs("tal")%>
</center>
</td>
<% intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing %>
</tr>
</table>

<%

Response.Write "<p><center>"
For intNum = 1 To intPageCount
Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif>Page <a href=default.asp?page=" & intNum & ">" & intNum & "</a></font> "
Next
response.write "</center>"

If Clng(intPage) < Clng(intPageCount) Then
Else
End If
%>

hvis det kan hjælpe dig:) Det kan være man skal brug kommandoen på en anden måde med dette script, men du kan jo lige læse scriptet engang.

Synes godt om

fastpoint Nybegynder

24. februar 2002 - 18:03 #27

er du interesseret kan du kigge på dette... har lige oprettet det
http://www.eksperten.dk/spm/177070

Synes godt om

fastpoint Nybegynder

11. august 2002 - 16:39 #28

case closed

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	I går 20:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS