Søg
Avatar billede flax Nybegynder
22. juli 2002 - 16:33 Der er 22 kommentarer og
2 løsninger

Hjælp til link i nyhedsbrev (seneste id tages fra databasen)

Hej eksperter, HJÆLP HJÆLP :-9

Jeg har ldit problemer med at få mit nyhedsbrev funktionalitet til at vre som jeg gerne vil!!

Jeg har 3 ting som filen ellers henter

emneindhold = trim(request.form("emneindhold"))
emneindhold2 = trim(request.form("emneindhold2"))
emneindhold3 = trim(request.form("emneindhold3"))

de 3 ovenstående bruges til de 3 punkter jeg har i nyhedsbrevets administration, og som er variable,dvs. brugeren bestemmer indholdet af tekst fra gange til gang..

De 3 tekst bokse bestemer indholdet af 3 emner i nyhedsbrevet

nyheder
aktiviteter
jobs

For at gøre det så let som muligt for brugeren, (brugeren skal kun skrive indhodet i de 3 nyheder i 3 forskellige text areas) skriver jeg hver punkt via. 

NB = NB & "<img src=http://www.albertslundapotek.dk/pil.gif> "
NB = NB & "<font size=2>"
NB = NB & "Nyheder"
NB = NB & "</b>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "</font>"
NB = NB & "<font size=2>"
NB = NB & emneindhold
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<a href=http://www.albertslundapotek.dk/nyheder.asp>Læs mere her.."
NB = NB & "<img src=http://www.albertslundapotek.dk/pil.gif border=0>"

MEN.. istedet for at  lade linket være
<a href=http://www.albertslundapotek.dk/nyheder.asp>

Vil jeg gerne have at den hive den seneste nyhed frem fra databasen, altså den der lige er blev beskrevet for oven.. MEN

da jeg ikke kan bruge "" ved jeg ikke hvordan jeg skal få linket til at hente den sidte id indtastet i databasen nyheder...

Hel koden jeg bruger kan ses herunder:
(skriv endelig hvis der er noget i ikke forstår)
---

<body bgcolor="#FFFFFF" text="#000000">
<p><b>Nyhedsbrev</b>
  <% stat = ""
stat = request("status")
if len(stat) > 0 then

hentMail = "Select navn, email from nyhedsbrev"
set objNB=my_conn.execute(hentMail)

emneindhold = trim(request.form("emneindhold"))
emneindhold2 = trim(request.form("emneindhold2"))
emneindhold3 = trim(request.form("emneindhold3"))

While Not objNB.EOF
fornavn = objNB("navn")
email = objNB("email")

NB = "<!DOCTYPE HTML Public ""-//W3C//DTD HTML 4.0 Transitional//EN"">"
NB = NB & "<html>"
NB = NB & "<head>"
NB = NB & "<title>Nyhedsbrev - Albertslundapotek.dk</title>"
NB = NB & "<head>"
NB = NB & "<body bgcolor=#ffffff>"
NB = NB & "<font face=arial, Helvetica, sans-serif>"
NB = NB & "<table width=400>"
NB = NB & "<tr>"
NB = NB & "<td>"
NB = NB & "<table width=400>"
NB = NB & "<tr>"
NB = NB & "<td width=372>"
NB = NB & "<p align=center>"
NB = NB & "<br>"
NB = NB & "<img src=http://www.albertslundapotek.dk/nyhedsbrev_logo.jpg>"
NB = NB & "<br>"
NB = NB & "<img src=http://www.albertslundapotek.dk/nyhedsbrev_streg.jpg>"
NB = NB & "<br>"
NB = NB & "<p align=right>"
NB = NB & "<font size=2>"
NB = NB & "<i>"
NB = NB & "Nyhedsbrevet er sendt til "
NB = NB & fornavn
NB = NB & "</p>"
NB = NB & "</font>"
NB = NB & "</i>"
NB = NB & "<br>"
NB = NB & "<b>"
NB = NB & "<img src=http://www.albertslundapotek.dk/pil.gif> "
NB = NB & "<font size=2>"
NB = NB & "Nyheder"
NB = NB & "</b>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "</font>"
NB = NB & "<font size=2>"
NB = NB & emneindhold
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<a href=http://www.albertslundapotek.dk/nyheder.asp>Læs mere her.."
NB = NB & "<img src=http://www.albertslundapotek.dk/pil.gif border=0>"
NB = NB & "</a>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<b>"
NB = NB & "<img src=http://www.albertslundapotek.dk/pil.gif> "
NB = NB & "Aktiviteter"
NB = NB & "</b>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<font size=2>"
NB = NB & emneindhold2
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<a href=http://www.albertslundapotek.dk/vis_nyhed.asp?id=> Læs mere her.."
NB = NB & "<img src=http://www.albertslundapotek.dk/pil.gif border=0>"
NB = NB & "</a>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<b>"
NB = NB & "<img src=http://www.albertslundapotek.dk/pil.gif> "
NB = NB & "Jobs"
NB = NB & "</b>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<font size=2>"
NB = NB & emneindhold3
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<a href=http://www.albertslundapotek.dk/omapoteket_ledige_jobs.asp>Læs mere her.."
NB = NB & "<img src=http://www.albertslundapotek.dk/pil.gif border=0>"
NB = NB & "</a>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "<img src=http://www.albertslundapotek.dk/nyhedsbrev_streg.jpg>"
NB = NB & "</p>"
NB = NB & "<p>"
NB = NB & "</font>"
NB = NB & "<font size=2>"
NB = NB & "<em>"
NB = NB & "Hvis du ikke &oslash;nsker at modtage Nyhedsbrevet mere, kan du framelde det under punktet Nyhedsbrev p&aring; Albertslundapotek.dk"
NB = NB & "</em>"
NB = NB & "</font>"
NB = NB & "<br>"
NB = NB & "</p>"
NB = NB & "</td>"
NB = NB & "<td width=1 bgcolor=#999999>"
NB = NB & "</td>"
NB = NB & "<td width=4 bgcolor=#6699FF>"
NB = NB & "<br>"
NB = NB & "<br>"
NB = NB & "</td>"
NB = NB & "</tr>"
NB = NB & "</table>"
NB = NB & "</td>"
NB = NB & "</tr>"
NB = NB & "</table>"
NB = NB & "</font>"
NB = NB & "</body>"
NB = NB & "</html>"

Set objMail = Server.CreateObject("JMail.message")
objMail.From = "apoteket@albertslundapotek.dk"
objMail.AddRecipient email
objMail.Subject = "Nyhedsbrev fra Albertslundapotek.dk"
objMail.HTMLBody = NB
objMail.Send("mail.albertslundapotek.dk") 
Set objMail = Nothing
objNB.movenext
Wend
Response.write "Nyhedsbrevet er sendt"
end if

%>
</p>

<form name="form1" method="post" action="nyhedsbrev0111.asp?status=send">

  <p>1. Indhold p&aring; <strong>nyhed</strong> der skal udsendes:<br>
    <textarea name="emneindhold" cols="60" rows="20"></textarea>
  </p> 

  <p>&nbsp;</p>
  <p>2. Indhold p&aring; <strong>aktivitet</strong> der skal udsendes:<br>
    <textarea name="emneindhold2" cols="60" rows="20"></textarea>
  </p>
  <p>&nbsp;</p>
  <p>3. Indhold p&aring; <strong>job</strong> der skal udsendes:<br>
    <textarea name="emneindhold3" cols="60" rows="20"></textarea>
  </p>
  <p>&nbsp;</p>
  <p><input type="submit" name="Submit" value="Send"> </p>
  <p><br>
  </p>
  <p>&nbsp;</p>
</form>
</body>
Avatar billede tmceu Praktikant
22. juli 2002 - 17:29 #1
Det kunne være noget så simpelt som dette SQL statement.

SELECT TOP 1 * FROM Nyheder ORDER BY Dato DESC

Denne tager kun én post fra databasen, baseret på en sortering på et datofelt. Har du ikke noget datofelt, men eks. et autonummer og nyhederne indtastes kronologisk, kunne det i stedet være

SELECT TOP 1 * FROM Nyheder ORDER BY MinID DESC

Bemærk at syntaksen er en smule anderledes, hvis du anvender MySQL.
Avatar billede flax Nybegynder
22. juli 2002 - 17:36 #2
jeg benytter MySQL og plejer at bruge :

SQLstmt2 = "SELECT * FROM nyheder ORDER BY id DESC LIMIT 0, 1;"

Problmet kommer så desværre når denne sætning
<a href="vis_nyhed.asp?artid=<%=id%>" target="_self">

Skal laves om til

NB = NB & "<a href=http://www.albertslundapotek.dk/vis_nyhed.asp?id=> Læs mere her.."

.... jeg må ikke bruge "" så derfor fucker det hele meget op og jeg er lost.... og godt træt oven i bæret :-)
Avatar billede tmceu Praktikant
22. juli 2002 - 17:40 #3
Jamen hvis du blot vil vise den sidste nyhed, kan du jo helt undlade at bruge querystring. Du kunne måske endda lave den om, således at hvis der er angivet en nyhedsid, viser du den pågældende nyhed og i modsat fald, viser du den seneste.

If Request.QueryString("ID") <> "" Then
' vis nyheden
Else
' vis den seneste
End If

Håber jeg har forstået problemet.
Avatar billede flax Nybegynder
22. juli 2002 - 17:48 #4
Problemet er at mit nyhedsbrev nu linker til nyheder.asp  ved nyheder og til aktiviteter.asp ved afsnittet om aktiviteter i nyhedsbrevet.

Men jeg gerne vil have den til at linke til den seneste nyhed, jeg har en vis_nyehd.asp, men problemet er at jeg ikke må bruge "" så derfor kan linket som jeg gerne vil bruge  i nyhedsbrevet <a href="vis_nyhed.asp?artid=<%=id%>"> ikke bruges...

Sådan her ser nyhedsbrevet "groft set" ud: (uden grafik)


-> Nyheder

emneindhold

->Læs mere her..



-> Aktiviteter

emneindhold2

->Læs mere her..



-> Jobs

emneindhold3

->Læs mere her..
Avatar billede flax Nybegynder
23. juli 2002 - 11:53 #5
forstod i hvad jeg mente? :-)
Avatar billede tmceu Praktikant
23. juli 2002 - 13:13 #6
Næh faktisk ikke. Jeg forstår ikke at du ikke kan bruge løsningen med at lade den fil der viser nyheden vise den seneste nyhed, såfremt der ikke er angivet nogen specifik ID. Men måske er det fordi jeg ikke forstår sammenhængen mellem dit nyhedsbrev og dine filer. Og jeg forstår slet ikke det med at du ikke må bruge "" i linket som du skriver.

Et nyhedsbrev er normalt noget man udsender via mail og jeg forstår derfor ikke hvad du mener med det link <a href="vis_nyhed.asp?artid=<%=id%>">, er det den KODE du ville have haft i nyhedsbrevet ?
Avatar billede flax Nybegynder
23. juli 2002 - 14:24 #7
ok, lad mig lige forklare igen, hvis jeg kan, det er lidt kryptisk :-)

I min adminstartions område til hjemmesiden, har jeg bla. lavet 2 filer til nyhedsbrevet, en der viser hvem der er tilmedlte og en hvor man kan udsende nyhedsbrevet. Jeg har valgt at lave denne proces så enkel som mulig for brugeren, (som beskrevet ovenfor). Som det er nu skal brugeren ved hver udsendelse af nyhedsbrevet kun indtaste i 3 tekst felter; nyheder, aktiviteter og jobs. Resten at nyhedsbrevet skrives automatisk (som vist ovenfor) via.
NB = NB & "</font>"
NB = NB & "</body>"
NB = NB & "</html>" osv.

Et ekesempel af nyhedsbrevet kan ses på: (ideen idet)http://www.albertslundapotek.dk/nyhedsbrev_eksempel.jpg


Du kommenterer også sammen hængen mellem mine filer.

På hjemmesiden har jeg f.eks. www.albertslundapotek.dk/aktiviteter.asp

Den bruger vis_aktivitet.asp til at vise den enkelte nyhed når folk klikker sig videre.

Til sidst siger du at et nyhedsbrev normalt er noget man sender i en mail. Det er det her jo også. Problemet er bare at filen i mit administrations modul skrver det meste af nyhedsbrevet  via NB = NB & ".." og derfor kan jeg ikke bruge normal kodning med "" i.

Forklarer jeg stadig for kringlet?

:-) Håber på svar,, :-)
Avatar billede eagleeye Praktikant
23. juli 2002 - 14:41 #8
Hvis denne finder nyheden:
SQLstmt2 = "SELECT * FROM nyheder ORDER BY id DESC LIMIT 0, 1;"
Set rs = connection.execute (SQLstmt2)

Så kan du skrive:

NB = NB & "<a href=""http://www.albertslundapotek.dk/vis_nyhed.asp?id=" & rs("id") % """> Læs mere her.."
Avatar billede eagleeye Praktikant
23. juli 2002 - 14:44 #9
hmm %  ->  &
Avatar billede flax Nybegynder
23. juli 2002 - 14:46 #10
eagleeye  der må ikke være  " "
Avatar billede flax Nybegynder
23. juli 2002 - 14:47 #11
kun dem i start NB = NB & "      og slut >"
Avatar billede eagleeye Praktikant
23. juli 2002 - 14:49 #12
ok.. så:
NB = NB & "<a href=http://www.albertslundapotek.dk/vis_nyhed.asp?id=" & rs("id") & "> Læs mere her.."
Avatar billede flax Nybegynder
23. juli 2002 - 14:50 #13
Microsoft VBScript compilation error '800a0408'

Invalid character

/backstage/nyhedsbrev0111.asp, line 127

NB = NB & "<a href=""http://www.albertslundapotek.dk/vis_nyhed.asp?id=" & rs("id") % """> Læs mere her.."
-----------------------------------------------------------------------------------^
Avatar billede flax Nybegynder
23. juli 2002 - 14:51 #14
det er % den siger der er invalid
Avatar billede flax Nybegynder
23. juli 2002 - 14:55 #15
Nyhedsbrev

Når jeg trykker på send nyhedsbrev:


Microsoft VBScript runtime error '800a000d'

Type mismatch: 'rs'

/backstage/nyhedsbrev0111.asp, line 127
Avatar billede flax Nybegynder
23. juli 2002 - 15:07 #16
hvordan f---- får jeg sat
NB = NB & "SQLstmt2 = SELECT * FROM nyheder ORDER BY id DESC LIMIT 0, 1;"
NB = NB & "Set rs = connection.execute (SQLstmt2)"

ind i min fil..??
Avatar billede flax Nybegynder
23. juli 2002 - 16:02 #17
Eagleeye Z>> forvirrede jeg dig=?? :-)
Avatar billede sune.jakobsen Nybegynder
24. juli 2002 - 12:22 #18
Jeg er lidt forvirret over dit spørgsmål, men angående din næstsidste kommentar så prøv:

SQLstmt2 = SELECT * FROM nyheder ORDER BY id DESC LIMIT 0, 1;
Set rs = connection.execute (SQLstmt2)

NB = NB & "<a href=""http://www.albertslundapotek.dk/vis_nyhed.asp?id="
NB = NB & rs("id") & ">"
Avatar billede flax Nybegynder
24. juli 2002 - 12:31 #19
men.. det her skal jo skrives ind i selve nyehdsmailen.. ikke?

Og jeg forsøger at skrive

NB = NB & "SQLstmt2 = SELECT * FROM nyheder ORDER BY id DESC LIMIT 0, 1;"
NB = NB & "Set rs = connection.execute (SQLstmt2)"

Går det i kuks... ?
Avatar billede sune.jakobsen Nybegynder
24. juli 2002 - 12:40 #20
Når du sætter " omkring noget så bliver det taget som værende en streng, og det er det jo ikke så du er nødt til først at hive det ud af databasen som du skal bruge og ligge det i en variabel, som du herefter kan tilføje til din anden variabel (NB)...

Ala:

dato = FormatDateTime(Now, vbShortDate)
dag = "det er i dag: " & dato
response.write dag
Avatar billede flax Nybegynder
06. august 2002 - 13:47 #21
10000 tak for hjælpen all.. Nogen gang skal man lidt væk fra noget og så tilbage for at få det til at dutte... Jeg brugte lidt fra både fra jer alles svar, sig til hvis i vil se hvor jeg har rettet, så poster jeg det...

Igen mange tak!!!
Avatar billede flax Nybegynder
06. august 2002 - 13:48 #22
test
Avatar billede flax Nybegynder
06. august 2002 - 13:48 #23
eagleeye >> svar lige!!
Avatar billede eagleeye Praktikant
12. august 2002 - 21:50 #24
Ok.. jeg var på ferie :) det er helt i orden.
Avatar billede 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.

Loading billede Opret Preview
Kategori
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
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
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:25 En "Gammel" & "Retro" PC Service ? Husker ikke navnet .... Af Ikke-ekspert i Diverse
I går 16:17 Jeg har lige købt en Samsung mobil telefon Af Strawberry i Mobiltelefoner
I går 13:20 Lotus Approach Af Carsten i Andet software
15/1015:34 Epson scanner forbinder ikke til computer Af bbkdk i Printere
11/1013:35 Bruger på Win11 Af lurup i Browsere
White papers
Flere white papers »