Notifikationer

Markér alle som læst Log ud

ghostweb Nybegynder

24. januar 2005 - 08:01 Der er 14 kommentarer og
1 løsning

Linje skift i en Response.Write

Hejsa, fik engang hjælp til noget community her inde som jeg nu har taget fat i igen.

alle brugere har en profil, med deres oplysninger i som ser følgene ud:

<center>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("database.mdb")

SQL = "select * from brugere where navn = '" & Request.Querystring("navn") & "'"
Set rs=Conn.Execute(SQL)
if rs.EOF then
Response.Write "<center>Brugeren findes ikke</center>"
end if

do while not rs.EOF
Response.Write "<table><tr>"
Response.Write "Navn : " & rs("navn") & "</td>"
Response.Write "navn : " & rs("navn") & "</td>"
Response.Write "Info : " & rs("info") & "</td>"
Response.Write "</tr></table>"
rs.Movenext
loop
%>
</center>

men jeg kan ikke tilføje Response.Write <br> eller noget nogen der kan hjælpe mig så der kun står en oplysning per linje?

Synes godt om

steffansteffan Nybegynder

24. januar 2005 - 08:05 #1

<center>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("database.mdb")

SQL = "select * from brugere where navn = '" & Request.Querystring("navn") & "'"
Set rs=Conn.Execute(SQL)
if rs.EOF then
Response.Write "<center>Brugeren findes ikke</center>"
end if

do while not rs.EOF
Response.Write ("<table><tr>")
Response.Write ("<td><br>")
Response.Write ("Navn : " & rs("navn") & "</td>")
Response.Write ("<td><br>")
Response.Write ("navn : " & rs("navn") & "</td>")
Response.Write ("<td><br>")
Response.Write ("Info : " & rs("info") & "</td>")
Response.Write ("</tr></table>")
rs.Movenext
loop
%>
</center>

Prøv med det der.

Synes godt om

ghostweb Nybegynder

24. januar 2005 - 08:33 #2

hjalp ikke, hele min tekst kom bare en linje nedenunder..

se evt.
http://frip.dk/kawaii/test/test/profil.asp?navn=pokz

Synes godt om

steffansteffan Nybegynder

24. januar 2005 - 09:21 #3

Prøv det der så:

Response.Write ("<table><tr>")
Response.Write ("<tr>")
Response.Write ("<td>")
Response.Write ("Navn : " & rs("navn") & "</td>")
Response.Write ("</tr>")
Response.Write ("<tr>")
Response.Write ("<td>")
Response.Write ("navn : " & rs("navn") & "</td>")
Response.Write ("</tr>")
Response.Write ("<tr>")
Response.Write ("<td>")
Response.Write ("Info : " & rs("info") & "</td>")
Response.Write ("</tr></table>")

Synes godt om

steffansteffan Nybegynder

24. januar 2005 - 09:22 #4

Ups der ser self en for meget <tr> i toppen:

Response.Write ("<table><tr>")

skal lige ændres til:

Response.Write ("<table>")

Synes godt om

ste Nybegynder

24. januar 2005 - 09:31 #5

Prøv dette

<center>

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("database.mdb")

SQL = "select * from brugere where navn = '" & Request.Querystring("navn") & "'"
Set rs=Conn.Execute(SQL)
if rs.EOF then
Response.Write "<center>Brugeren findes ikke</center>"

else

Response.Write "<table>"
do while not rs.EOF
Response.Write "<tr>"
Response.Write "<td>"
Response.Write "Navn : " & rs("navn")& "<br>"
Response.Write "navn : " & rs("navn") & "<br>"
Response.Write "Info : " & rs("info") & "<br>"
Response.Write "</td></tr>"
rs.Movenext
loop
%>
Response.Write "</table>"
End if
</center>
Hilsen ste

Synes godt om

medions Nybegynder

24. januar 2005 - 09:33 #6

Du skal bruge vbCrLf...

Fx.

Response.Write("<table>" & vbCrLf)
Response.Write("<tr>" & vbCrLf)

osv. osv. ;-)

//>Rune

Synes godt om

ghostweb Nybegynder

24. januar 2005 - 09:38 #7

får en fejl, linje 23,
Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/kawaii/test/test/profil.asp, line 23

kode:
<center>

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("database.mdb")

SQL = "select * from brugere where navn = '" & Request.Querystring("navn") & "'"
Set rs=Conn.Execute(SQL)
if rs.EOF then
Response.Write "<center>Brugeren findes ikke</center>"

else

Response.Write "<table>"
do while not rs.EOF
Response.Write "<tr>"
Response.Write "<td>"
Response.Write "Navn : " & rs("navn")& "<br>"
Response.Write "navn : " & rs("navn") & "<br>"
Response.Write "Info : " & rs("info") & "<br>"
Response.Write "</td></tr>"
rs.Movenext
loop
%>
Response.Write "</table>"
End if
</center>

kan ikke helt se hvor fejlen ligger..

Synes godt om

medions Nybegynder

24. januar 2005 - 09:43 #8

Det er fordi du slutter din ASP af for hurtigt... , det skal først sluttes af lige inden </center>

iøvrigt prøv med dette:

<center>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("database.mdb")

SQL = "select * from brugere where navn = '" & Request.Querystring("navn") & "'"
Set rs=Conn.Execute(SQL)
if rs.EOF then
Response.Write "<center>Brugeren findes ikke</center>"
end if

do while not rs.EOF
Response.Write "<table>" & vbCrLf & "<tr>" & vbCrLf
Response.Write "Navn : " & rs("navn") & "</td>" & vbCrLf
Response.Write "navn : " & rs("navn") & "</td>" & vbCrLf
Response.Write "Info : " & rs("info") & "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf & "</table>" & vbCrLf
rs.Movenext
loop
%>
</center>

//>Rune

Synes godt om

ste Nybegynder

24. januar 2005 - 09:47 #9

Det giver ingen mening. Nu opretter loopet en ny tabel for hver gang den er kørt igennem. Det ville jeg undgå ved at sætte table tagget uden for loopet.

Det er afslutning på asp der skal flyttes. Den skal se således ud.
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("database.mdb")

SQL = "select * from brugere where navn = '" & Request.Querystring("navn") & "'"
Set rs=Conn.Execute(SQL)
if rs.EOF then
Response.Write "<center>Brugeren findes ikke</center>"

else

Response.Write "<table>"
do while not rs.EOF
Response.Write "<tr>"
Response.Write "<td>"
Response.Write "Navn : " & rs("navn")& "<br>"
Response.Write "navn : " & rs("navn") & "<br>"
Response.Write "Info : " & rs("info") & "<br>"
Response.Write "</td></tr>"
rs.Movenext
loop

Response.Write "</table>"
End if

%>
</center>

Synes godt om

ghostweb Nybegynder

24. januar 2005 - 10:25 #10

Medions, hjalp intet: http://frip.dk/kawaii/test/test/profil.asp?navn=pokz

Synes godt om

ghostweb Nybegynder

24. januar 2005 - 10:26 #11

ste, din virket, nu er der linje skift, men det hele står i venstre side og ikke i center..

Synes godt om

ste Nybegynder

24. januar 2005 - 10:28 #12

Ok. Der mangler et <center> tag foroven. Koden er som følger.
<center>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("database.mdb")

SQL = "select * from brugere where navn = '" & Request.Querystring("navn") & "'"
Set rs=Conn.Execute(SQL)
if rs.EOF then
Response.Write "<center>Brugeren findes ikke</center>"

else

Response.Write "<table>"
do while not rs.EOF
Response.Write "<tr>"
Response.Write "<td>"
Response.Write "Navn : " & rs("navn")& "<br>"
Response.Write "navn : " & rs("navn") & "<br>"
Response.Write "Info : " & rs("info") & "<br>"
Response.Write "</td></tr>"
rs.Movenext
loop

Response.Write "</table>"
End if

%>
</center>

Synes godt om

ghostweb Nybegynder

24. januar 2005 - 10:58 #13

mange tak ;-) læg et svar.

Synes godt om

ste Nybegynder

24. januar 2005 - 11:00 #14

Velbekomme. Glæder mig det kunne bruges.

Synes godt om

ghostweb Nybegynder

24. januar 2005 - 12:44 #15

hehe kunne det :P

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