Notifikationer

Markér alle som læst Log ud

12. december 2001 - 10:37 Der er 10 kommentarer og
3 løsninger

Ny linje

Jeg har programmeret dette script:

<%
\' ADODB connection objektet
Set Conn = Server.CreateObject(\"ADODB.Connection\")
\' Husk at angive den rigtige sti til din database
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db\\anbefalinger.mdb\")
\' Åben databaseforbindelsen
Conn.Open DSN
\' SQL forespørgsel
strSQL = \"Select * from personer\"
\' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

Do
\' Udskriv værdien af kolonnen Fornavn og fødselsdato
Response.Write \"Kunde:\" & rs(\"Navn\") & \" \" & \" \" & \"Firma/Organisation: \" & rs(\"Firma\") & \" \" & \" \" & \"Anbefaling:\" & \" \" & \" \" & rs(\"Tekst\") & \" \" & \" \" & \"<hr>\" & \" \"

\' Gå til næste Record i rs
rs.MoveNext

\' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
Set strSQL = Nothing
%>

Problemet er at rs (Tekst) Er for lang til at stå på en linje. Hvordan får jeg asp til at registere linjeskiftene?

Synes godt om

medions Nybegynder

12. december 2001 - 10:38 #1

vbcrlf

Synes godt om

www.faktaomvold.org Nybegynder

12. december 2001 - 10:41 #2

Hvad mener du medions?

Synes godt om

zeptic Nybegynder

12. december 2001 - 10:43 #3

replace (rs(\"Tekst\"),vbcrlf, \' \')

Synes godt om

websam Nybegynder

12. december 2001 - 10:48 #4

Det går du således :

<%= Replace(Server.HTMLEncode(Rs(\"Tekst\")),vbCrLf,\" \")%>

Synes godt om

tmceu Praktikant

12. december 2001 - 10:50 #5

Skal det ikke være replace (rs(\"Tekst\"),vbcrlf, \" \") hvis der benyttes VBScript ? \' er da kommentar karakteren.

Tip: Hvis du vil øge læsbarheden i den genererede HTML kode, kan du indsætte & vbCrLf efter hver respons.write

Synes godt om

www.faktaomvold.org Nybegynder

12. december 2001 - 11:04 #6

JEg er ny indenfor asp.

Hvor skal jeg sætte koden?

Synes godt om

websam Nybegynder

12. december 2001 - 11:17 #7

Sættes i din egen kode sådan her :

\" \" & Replace(Server.HTMLEncode(rs(\"Tekst\")\")),vbCrLf,\" \") & \" \"

og så er den hjemme

Synes godt om

www.faktaomvold.org Nybegynder

12. december 2001 - 11:20 #8

Jeg får følgende fejl-meddelelse:

Microsoft VBScript compilation error \'800a0400\'

Expected statement

/anderskjaer/levering.asp, line 31

\" \" & Replace(Server.HTMLEncode(rs(\"Tekst\")\")),vbCrLf,\" \") & \" \"
^

På dette script:

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
<title>Anbefalinger</title>
</head>

<body>
<%
\' ADODB connection objektet
Set Conn = Server.CreateObject(\"ADODB.Connection\")
\' Husk at angive den rigtige sti til din database
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db\\anbefalinger.mdb\")
\' Åben databaseforbindelsen
Conn.Open DSN
\' SQL forespørgsel
strSQL = \"Select * from personer\"
\' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

Do
\' Udskriv værdien af kolonnen Fornavn og fødselsdato
Response.Write \"Kunde:\" & rs(\"Navn\") & \" \" & \" \" & \"Firma/Organisation: \" & rs(\"Firma\") & \" \" & \" \" & \"Anbefaling:\" & \" \" & \" \" & rs(\"Tekst\") & \" \" & \" \" & \"<hr>\" & \" \"

\' Gå til næste Record i rs
rs.MoveNext

\' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

\" \" & Replace(Server.HTMLEncode(rs(\"Tekst\")\")),vbCrLf,\" \") & \" \"

\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
Set strSQL = Nothing
%>

</body>
</html>

Synes godt om

zeptic Nybegynder

12. december 2001 - 11:35 #9

Erstat:

Response.Write \"Kunde:\" & rs(\"Navn\") & \" \" & \" \" & \"Firma/Organisation: \" & rs(\"Firma\") & \" \" & \" \" & \"Anbefaling:\" & \" \" & \" \" & rs(\"Tekst\") & \" \" & \" \" & \"<hr>\" & \" \"

med:
Response.Write \"Kunde:\" & rs(\"Navn\") & \" \" & \" \" & \"Firma/Organisation: \" & rs(\"Firma\") & \" \" & \" \" & \"Anbefaling:\" & \" \" & \" \" & Replace(Server.HTMLEncode(rs(\"Tekst\")\")),vbCrLf,\" \") & \" \" & \" \" & \"<hr>\" & \" \"

Synes godt om

www.faktaomvold.org Nybegynder

12. december 2001 - 11:51 #10

Der er problemer med syntaksten ved
(\"Tekst\")\")),vbCrLf,\" \")

Synes godt om

tmceu Praktikant

12. december 2001 - 12:11 #11

Response.Write \"Kunde:\" & rs(\"Navn\") & \" \" & \" \" & \"Firma/Organisation: \" & rs(\"Firma\") & \" \" & \" \" & \"Anbefaling:\" & \" \" & \" \" & Replace(Server.HTMLEncode(rs(\"Tekst\")),vbCrLf,\" \") & \" \" & \" \" & \"<hr>\" & \" \"

Synes godt om

www.faktaomvold.org Nybegynder

12. december 2001 - 12:32 #12

Det virker ikke hvis i kigger på http://www25.brinkster.com/anderskjaer/levering.asp

Der mangler en masse af hvad jeg skriver!

Synes godt om

www.faktaomvold.org Nybegynder

15. december 2001 - 23:04 #13

Jeg havde lavet en fejl i Access

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	01/11/202620: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