Notifikationer

Markér alle som læst Log ud

cdc Novice

30. marts 2004 - 17:32 Der er 21 kommentarer og
1 løsning

Henter ikke data fra DB

Mit script viser ikke data fra db, hvorfor?

Script:

<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/nyhedsmail/mail/kundekartotek.mdb")

Set objRs = Conn.Execute("Select Top 1 Teksten From NyhedsTekster Where NyhedsType = '' Order By ID DESC")
If Not objRs.Eof Then
strIndhold = objRs("Teksten")
strIndhold = Server.HTMLencode(strIndhold)
strindhold = Replace(strIndhold, vbcrlf, "<br>")
strindhold = Replace(strIndhold, "", "<b>")
strindhold = Replace(strIndhold, "", "</b>")
strindhold = Replace(strIndhold, "[k]", "<i>")
strindhold = Replace(strIndhold, "[/k]", "</i>")
strindhold = Replace(strIndhold, "", "<u>")
strindhold = Replace(strIndhold, "", "</u>")
strindhold = Replace(strIndhold, "", "<u>")
strindhold = Replace(strIndhold, "", "</u>")
strindhold = Replace(strIndhold, "[9pt]", "<font style=""font-size: 9pt;"">")
strindhold = Replace(strIndhold, "[11pt]", "<font style=""font-size: 11pt;"">")
strindhold = Replace(strIndhold, "[13pt]", "<font style=""font-size: 13pt;"">")
strindhold = Replace(strIndhold, "[/pt]", "</font>")
strindhold = Replace(strIndhold, "[linie]", "<hr noshade>")
strindhold = autoHighlight(strIndhold)
strindhold = Replace(Replace(strindhold,"'","''"),"&quot","""")
End If

objRs.Close
Set objRs = Nothing
conn.Close
Set conn = Nothing

strURL = "http://www.xxx.dk/nyhedsmail/mail"
strBody = "<!DOCTYPE html PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN""><html><head><meta http-equiv=""content-type"" content=""text/html;charset=iso-8859-1""><title>Nyhedsbrev</title><style type=""text/css"">"
strBody = strBody & "body {font-family: Verdana, Arial, Helvetica, sans-serif;font-size: 10px;color: #999999;text-decoration: none;}"
strBody = strBody & "td {font-family: Verdana, Arial, Helvetica, sans-serif;font-size: 10px;color: #999999;text-decoration: none;}"
strBody = strBody & "a:link {font-family: Verdana, Arial, Helvetica, sans-serif;font-size: 10px;color: #CC6699;text-decoration: underline;}"
strBody = strBody & "a:visited {font-family: Verdana, Arial, Helvetica, sans-serif;font-size: 10px;color: #CC6699;text-decoration: none;}"
strBody = strBody & "a:hover {font-family: Verdana, Arial, Helvetica, sans-serif;font-size: 10px;color: #666666;text-decoration: none;}"
strBody = strBody & "a:active {font-family: Verdana, Arial, Helvetica, sans-serif;font-size: 10px;color: #CC6699;text-decoration: none;}"
strBody = strBody & ".bold{font-family: Verdana, Arial, Helvetica, sans-serif;font-size: 10px;font-weight: bold;color: #999999;text-decoration: none;}"
strBody = strBody & ".adr{font-family: Verdana, Arial, Helvetica, sans-serif;font-size: 9px;font-weight: normal;color: #CC6699;text-decoration: none;}"
strBody = strBody & "</style></head><body bgcolor=""#FFFFFF""><table align=""center"" border=""0"" width=""600"" cellspacing=""0"" cellpadding=""0""><tr>"
strBody = strBody & "<td width=""100%"" colspan=""4""><img border=""0"" src=""" & strURL & "/email.5.gif"" width=""213"" height=""77""></td>"
strBody = strBody & "</tr><tr><td width=""100%"" bgcolor=""#FCDDEA"" colspan=""4""><img border=""0"" src=""" & strURL & "/spacer.gif"" width=""2"" height=""27""></td>"
strBody = strBody & "</tr><tr><td bgcolor=""#FCDDEA""><img border=""0"" src=""" & strURL & "/line.gif"" width=""2"" height=""188"">"
strBody = strBody & "</td><td width=""30"" valign=""top""><table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0""><tr>"
strBody = strBody & "<td><table border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td><img border=""0"" src=""" & strURL & "/new_rose.jpg"" width=""210"" height=""343"" hspace=""10"" vspace=""10""></td>"
strBody = strBody & "</tr></table></td></tr></table></td><td width=""70%"" align=""center""><table border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td align=""center"">"
strBody = strBody & "<p align=""center""><img border=""0"" src=""" & strURL & "/email.3.gif"" width=""310"" height=""36""></td></tr><tr>"
strBody = strBody & "<td align=""center"" style=""padding: 0px 5px 0px 0x;""> " & strIndhold & " "
strBody = strBody & "<br><br>Med venlig hilsen<br>FR & LY<br><br></td></tr></table></td><td bgcolor=""#FCDDEA""><img border=""0"" src=""" & strURL & "/line.gif"" width=""2"" height=""188""></td>"
strBody = strBody & "</tr><tr><td bgcolor=""#FCDDEA"" colspan=""4"" valign=""middle"" align=""center"" height=""20""><p align=""center"" class=""adr"">FR"
strBody = strBody & " & LY   vej 1     <a href=""http://www.xxx.dk"">http://www.xxxx.dk</a></p></td>"
strBody = strBody & "</tr></table></body></html>"
%>

Og i selve documentet skulle den vise indholdet her:

<div><%= strBody %></div>

Synes godt om

Slettet bruger

30. marts 2004 - 17:34 #1

Din nyhedstype er vel ikke tom '' men null eller har du glemt en variabel i sql sætningen?

Synes godt om

phineas_phreak Nybegynder

30. marts 2004 - 17:34 #2

Set objRs = Conn.Execute("Select Top 1 Teksten * From NyhedsTekster Where NyhedsType = '' Order By ID DESC;")

Synes godt om

pfp Nybegynder

30. marts 2004 - 17:36 #3

Får du nogen fejl? Hvorfor lægger du al din HTML i en asp-streng...skal det i en mail?

Synes godt om

cdc Novice

30. marts 2004 - 17:36 #4

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Teksten *'.

/nyhederne.asp, line 6

Synes godt om

cdc Novice

30. marts 2004 - 17:37 #5

det er ikke jeg der har lavet det, men det skal være den en tro kopi af et nyhedsbrev der bliver sendt ud, og det er det, men det virker bare ikke....

Synes godt om

cdc Novice

30. marts 2004 - 17:40 #6

den fejl jeg viser til er med berties forslag, hos mig vises alt fint udenom indholdet det vises ikke, men er sendt og vises i db

Synes godt om

hmortensen Nybegynder

30. marts 2004 - 17:41 #7

Mener at top skal til sidst:
Select * From NyhedsTekster Where NyhedsType = '' Order By ID DESC Top 1

Synes godt om

phineas_phreak Nybegynder

30. marts 2004 - 17:41 #8

hvad er Teksten ? (Top 1 Teksten)

Synes godt om

cdc Novice

30. marts 2004 - 17:42 #9

den sidste nyhed som bliver lagt ind i DB er top 1

Synes godt om

cdc Novice

30. marts 2004 - 17:43 #10

Teksten er kolonnen i tabellen NyhedsTekster

Synes godt om

hmortensen Nybegynder

30. marts 2004 - 17:44 #11

så burde det her være nok:
SELECT * FROM NyhedsTekster ORDER BY ID DESC TOP 1

Synes godt om

phineas_phreak Nybegynder

30. marts 2004 - 17:45 #12

ved ik om man kan sådan, men jeg plejer at skrive sådan som du var igang med før:

SELECT top 1 * FROM NyhedsTekster ORDER BY ID DESC;

Synes godt om

phineas_phreak Nybegynder

30. marts 2004 - 17:47 #13

sådan har jeg ihvertfald gjort 1 milliard gange :)

Synes godt om

phineas_phreak Nybegynder

30. marts 2004 - 17:48 #14

men det er rigtigt hvad hindu_skp siger at det ikke burde være nødvendigt at definere kolonnen Teksten i din SQL

Synes godt om

hmortensen Nybegynder

30. marts 2004 - 17:48 #15

Hmm, har lige testet i Access, og der skal TOP squ stå som phineas_phreak har skrevet.

Synes godt om

cdc Novice

30. marts 2004 - 17:49 #16

dette er den riktige måde at skrive det på, det ved jeg da: SELECT top 1, men phineas_phreak's forslag virker ikke

Synes godt om

hmortensen Nybegynder

30. marts 2004 - 17:50 #17

Får du fejl på denne sætning:
SELECT top 1 * FROM NyhedsTekster ORDER BY ID DESC;

Og i såfald, hvilken ?

Synes godt om

cdc Novice

30. marts 2004 - 17:51 #18

sorry phineas_phreak, manglede lige en ", så nu skulle det virke.

http://www.freoli.dk/nyheden.asp

/cdc

Synes godt om

hmortensen Nybegynder

30. marts 2004 - 17:52 #19

Der er så lidt med designet. Man kan ikke se bunden af siden, uden at markere og trække ned. ;)

Synes godt om

cdc Novice

30. marts 2004 - 17:53 #20

phineas_phreak--> smider du ikke lige et svar.

løsningen var: ("SELECT top 1 * FROM NyhedsTekster ORDER BY ID DESC;")

Synes godt om

cdc Novice

30. marts 2004 - 17:54 #21

ved det men er heller ikke færdig endnu, er under udvikling men kunden kunne ikke vente, skal bare lave en egen indexside, med scroll i nederste frame, eller bare en include, må jeg lige se på

Synes godt om

phineas_phreak Nybegynder

30. marts 2004 - 21:38 #22

det kan du tro

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
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
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

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