Notifikationer

Markér alle som læst Log ud

jnrmgs Juniormester

17. juni 2004 - 18:50 Der er 9 kommentarer og
1 løsning

Linieskift i database?

Hej!

Jeg er ved at lave en database over videofilm.

Et af felterne i databasen hedder "Skuespillere". I Access står de på hver sin linie, men når de så bliver skrevet ud på en webside står de uden linieskift.

Er der nogen der kan hjælpe med en kode, som kan sætte linieskift ind?

Synes godt om

sur69 Nybegynder

17. juni 2004 - 18:54 #1

Brug

Synes godt om

jnrmgs Juniormester

17. juni 2004 - 18:58 #2

Jeg har altså brug for lidt mere hjælp end det!

Jeg ved ikke om man evt. i ASP kunne søge efter et bestemt ord i database-feltet, som så blev erstattet med , inden det blev skrevet ud på siden?

Jeg har desværre ikke så meget forstand på ASP-kodning. Selve siden har jeg lavet i dreamweaver.

Synes godt om

sur69 Nybegynder

17. juni 2004 - 18:59 #3

børge jens knud

bliver vist som.....

børge
jens
knud

Synes godt om

rasmusbg Nybegynder

17. juni 2004 - 19:00 #4

Noget lignende dette:

Skuespillere_til_db = Replace(Skuespillere,"\n"," ")

Er absolut ikke ASP-haj!

Synes godt om

sur69 Nybegynder

17. juni 2004 - 19:02 #5

Når du udfylder dine felter i Access, skal blot sætte html-tag'et hver gang du vil lave et linieskift.

Synes godt om

thomas_yde Nybegynder

17. juni 2004 - 19:31 #6

rasmusbq er inde på det rigtige.
Men istedet for at sende til databasen med 
så skal du hellere erstattet linjeskift når du udskriver dem til html
teksttilHtml = Replace(rs("skuespillere"),vbCrlf," ")

På den måde render du ikke ind i problemer med en html parser der fjerner html tags i tilfælde af du skulle have lyst til at bruge sådan en :)

Synes godt om

jnrmgs Juniormester

17. juni 2004 - 19:45 #7

Jeg forstår altså ikke helt hvor der er jeg sætte koderne ind henne :-(

Her er min kode:

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim vistitel__MMColParam
vistitel__MMColParam = "1"
if (Request.Form("titel") <> "") then vistitel__MMColParam = Request.Form("titel")
%>
<%
set vistitel = Server.CreateObject("ADODB.Recordset")
vistitel.ActiveConnection = MM_videodatabase_STRING
vistitel.Source = "SELECT * FROM Videodatabase WHERE Titel LIKE '%" + Replace(vistitel__MMColParam, "'", "''") + "%' ORDER BY Titel ASC"
vistitel.CursorType = 0
vistitel.CursorLocation = 2
vistitel.LockType = 3
vistitel.Open()
vistitel_numRows = 0
%>
<%

Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
vistitel_numRows = vistitel_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Videodatabase</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="Css/Css.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Resultat af søgning på "
<%Response.Write(vistitel__MMColParam)%>
"
<table width="100%" border="0" cellpadding="4" cellspacing="0" bordercolor="#000000">
<%
While ((Repeat1__numRows <> 0) AND (NOT vistitel.EOF))
%>
<tr valign="top">
<td>
 
<%=(vistitel.Fields.Item("Titel").Value)%> 
 
Bånd nummer <%=(vistitel.Fields.Item("Nummer").Value)%> 
 
<%=(vistitel.Fields.Item("Land").Value)%> <%=(vistitel.Fields.Item("År").Value)%> 
 
Instruktør 
<%=(vistitel.Fields.Item("Instruktør").Value)%> 
 
Medvirkende 
<%=(vistitel.Fields.Item("Skuespillere").Value)%> 
 

</td>
<td>  
<img src="Billeder/<%=(vistitel.Fields.Item("Billede").Value)%>.jpg"> 
 
</td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
vistitel.MoveNext()
Wend
%>
</table>
 
</body>
</html>
<%
vistitel.Close()
%>

Hvor skal jeg sætte koderne ind?

Synes godt om

thomas_yde Nybegynder

17. juni 2004 - 21:06 #8

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim vistitel__MMColParam
vistitel__MMColParam = "1"
if (Request.Form("titel") <> "") then vistitel__MMColParam = Request.Form("titel")
%>
<%
set vistitel = Server.CreateObject("ADODB.Recordset")
vistitel.ActiveConnection = MM_videodatabase_STRING
vistitel.Source = "SELECT * FROM Videodatabase WHERE Titel LIKE '%" + Replace(vistitel__MMColParam, "'", "''") + "%' ORDER BY Titel ASC"
vistitel.CursorType = 0
vistitel.CursorLocation = 2
vistitel.LockType = 3
vistitel.Open()
vistitel_numRows = 0
%>
<%

Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
vistitel_numRows = vistitel_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Videodatabase</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="Css/Css.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Resultat af søgning på "
<%Response.Write(vistitel__MMColParam)%>
"
<table width="100%" border="0" cellpadding="4" cellspacing="0" bordercolor="#000000">
<%
While ((Repeat1__numRows <> 0) AND (NOT vistitel.EOF))
%>
<tr valign="top">
<td>
 
<%=(vistitel.Fields.Item("Titel").Value)%> 
 
Bånd nummer <%=(vistitel.Fields.Item("Nummer").Value)%> 
 
<%=(vistitel.Fields.Item("Land").Value)%> <%=(vistitel.Fields.Item("År").Value)%> 
 
Instruktør 
<%=(vistitel.Fields.Item("Instruktør").Value)%> 
 
Medvirkende 
<%=Replace((vistitel.Fields.Item("Skuespillere").Value),vbCrlf," ")%> 
 

</td>
<td>  
<img src="Billeder/<%=(vistitel.Fields.Item("Billede").Value)%>.jpg"> 
 
</td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
vistitel.MoveNext()
Wend
%>
</table>
 
</body>
</html>
<%
vistitel.Close()
%>

Synes godt om

jnrmgs Juniormester

17. juni 2004 - 21:19 #9

Jeg siger mange tusind tak for svaret til thomas_yde. Nu står tingene som de skal!

Synes godt om

thomas_yde Nybegynder

18. juni 2004 - 16:48 #10

det var så lidt.

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