Just nu i M3-nätverket
Gå till innehåll

Tablecells


JUTE

Rekommendera Poster

Hr denna kod och den funkar utmärkt, men nu undrar jag hurman gör tablecells i loopen, asså så många som behövs:

 

<HTML>

<HEAD>

<TITLE></TITLE>

</HEAD>

<BODY><%

Dim Conn

Set Conn = Server.CreateObject("ADODB.Connection")

coStr = "DRIVER={Microsoft Access Driver (*.mdb)};"

coStr = coStr & "DBQ=h:\webhotell\www.headforscreen.com\data\markus.mdb"

Conn.Open(coStr)

strSQL = "SELECT * FROM Nyheter "

 

 

' Execute SQL statement

SET rs = conn.Execute(strSQL)

 

Do While Not rs.EOF

Skall jag sätta något här(för tablecells asså)

 

Response.Write "User ID# " & rs("userID") & "<br>"&vbCrlf

Response.Write "Name: " & rs("Nyheter") & "<br>"&vbCrlf

Response.Write "Email: " & rs("Rubrik") & "<br>"&vbCrlf

rs.MoveNext

Och sen nåt här för att avsluta tablecell

Loop

Conn.close ' Close database connection

 

 

%>

</BODY>

</HTML>

Länk till kommentar
Dela på andra webbplatser

Framgår inte hur du vill att det ska se ut men nåt sånt här kanske?

 

<HTML>

<HEAD>

<TITLE></title>

</head>

<BODY><%

Dim Conn

Set Conn = Server.CreateObject("ADODB.Connection")

coStr = "DRIVER={Microsoft Access Driver (*.mdb)};"

coStr = coStr & "DBQ=h:\webhotell\www.headforscreen.com\data\markus.mdb"

Conn.Open(coStr)

strSQL = "SELECT * FROM Nyheter "

 

 

' Execute SQL statement

SET rs = conn.Execute(strSQL)

 

%>

<table>

<%

Do While Not rs.EOF

Skall jag sätta något här(för tablecells asså)

%>

<tr><td>

<%

Response.Write "User ID# " & rs("userID") & "<br>"&vbCrlf

Response.Write "Name: " & rs("Nyheter") & "<br>"&vbCrlf

Response.Write "Email: " & rs("Rubrik") & "<br>"&vbCrlf

%>

</td></tr>

<%

rs.MoveNext

Och sen nåt här för att avsluta tablecell

Loop

%>

</table>

<%

Conn.close ' Close database connection

 

 

%>

</body>

</html>

 

/Stefan

 

[inlägget ändrat 2002-11-06 14:53:44 av Stefan K]

Länk till kommentar
Dela på andra webbplatser

Något sånt här kanske:

 

Response.Write "<table>"

 

Do While Not rs.EOF

Response.Write "<tr>"

Response.Write "<td>User ID# " & rs("userID") & "</td>"

Response.Write "<td>Name: " & rs("Nyheter") & "</td>"

Response.Write "<td>Email: " & rs("Rubrik") & "</td>"

rs.MoveNext

Response.Write "</tr>"

 

Loop

 

Response.Write "</table>"

 

OBS! Jag skrev detta väldigt snabbt, så det är inte säkert att det funkar rakt av. Dessutom kanske du vill lägga in lite höj- och breddattribut i html-taggarna...

 

Tillägg: Det är inte så lyckat att öppna och stänga aspkoden så många gånger som Stefan K gör i sitt exempel...

 

mvh,

query

_________________________________________________________

Things should be made as simple as possible, but not any simpler.

- Albert Einstein

 

 

[inlägget ändrat 2002-11-06 14:56:22 av query]

Länk till kommentar
Dela på andra webbplatser

Tillägg: Det är inte så lyckat att öppna och stänga aspkoden så många gånger som Stefan K gör i sitt exempel...

Varför skulle det inte vara det?

Jag tycker det är betydligt bättre än att använda en massa Response.Write för att skriva ut HTML-kod. Strukturen på sidan blir lättare att följa.

 

/Stefan

 

Länk till kommentar
Dela på andra webbplatser

ja det tycker jag med. fast det blir ändå snyggare om man istället för att stänga asp-taggarna, skriva <%=%> istället så blir det såhär:

 

<HTML>
<HEAD>
<TITLE></title>
</head>
<BODY><%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
coStr = "DRIVER={Microsoft Access Driver (*.mdb)};"
coStr = coStr & "DBQ=h:\webhotell\www.headforscreen.com\data\markus.mdb"
Conn.Open(coStr)
strSQL = "SELECT * FROM Nyheter "


' Execute SQL statement
SET rs = conn.Execute(strSQL)

%>
<table>
<%
Do While Not rs.EOF
Skall jag sätta något här(för tablecells asså)
%>
<tr><td>
User ID# <%=rs("userID")%> 
<br>
Name: <%=rs("Nyheter")%>
<br>
Email: <%=rs("Rubrik")%>
<br>
</td>
</tr>
<%
rs.MoveNext
Och sen nåt här för att avsluta tablecell
Loop
%>
</table>
<%
Conn.close ' Close database connection


%>
</body>
</html>

 

Länk till kommentar
Dela på andra webbplatser

Jimmie Pettersson

Jag har också hört att det segar ner om man öppnar och stänger ASP koden hela tiden. Kanske tom var här på IDG som jag läste det...

 

MVH Jimmie Pettersson

 

Länk till kommentar
Dela på andra webbplatser

Provade:lite :)

kan man då sätta alla attributen i strängarna som tillhör html som här tex

Response.Write "<table border=1>" osv...

 

 

Länk till kommentar
Dela på andra webbplatser

Precis som Jimmie Pettersson säger är det av prestandaskäl som man helst inte ska öppna och stänga aspkoden för mycket. Att det sedan kan bli överskådligare att göra på andra sätt är en annan sak... :)

 

kan man då sätta alla attributen i strängarna som tillhör html som här tex

Response.Write "<table border=1>" osv...

Japp, det går alldeles utmärkt.

 

mvh,

query

_________________________________________________________

Things should be made as simple as possible, but not any simpler.

- Albert Einstein

 

 

Länk till kommentar
Dela på andra webbplatser

Daniel Wahlgren

Jag fick lära mig det på kurs, men har även hört att det i senare versioner av ASP inte gör någon skillnad...

iof så är inte = likvärdigt med Response.Write, utan kan mycket väl vara ett annat kommando. Kommer inte ihåg varför, men det var något om att den tog det som var lämpligast eller nåt... nu snackar jag i nattmössan, men ändå :P

 

Om man vill ha mindre text kan man ju alltid använda:

 

With Response
.write "hej"
.write "du"
.write "glade"
End With

**********

Om spelvåld påverkar unga, hur skulle pakmangenerationen se ut idag?

 

Länk till kommentar
Dela på andra webbplatser

Stefan Trimmel

Jag tror inte att det har någon betydelse om man öppnar och stänger ASP koden, inte om man använder IIS 5 iaf. Det hade betydelse i IIS 4.

 

Länk till kommentar
Dela på andra webbplatser

Jag hade för mig att det bara gällde IIS4, i senare versioner torde det inte spela någon roll? Fast jag kanske tänker på något annat.. .;)

 

--

.Wey

 

..I’m the king of all time, nothing is impossible in my all powerful mind.

 

Länk till kommentar
Dela på andra webbplatser

Så rätt så, har jag precis upptäckt. Mitt resonemang gällde tydligen bara äldre asp-versioner. Spana in:

http://www.aspfaqs.com/webtech/010202-1.shtml

 

Jag ber om ursäkt om jag förvillat någon med mina tidigare inlägg :)

 

mvh,

query

_________________________________________________________

Things should be made as simple as possible, but not any simpler.

- Albert Einstein

 

 

Länk till kommentar
Dela på andra webbplatser

Jag kommer inte åt den sidan. Kan du posta koden här?

 

mvh,

query

_________________________________________________________

Things should be made as simple as possible, but not any simpler.

- Albert Einstein

 

 

Länk till kommentar
Dela på andra webbplatser

<HTML>

<HEAD>

<TITLE></TITLE>

</HEAD>

<BODY TEXT="#FFFFFF">

<P><FONT FACE="Arial" SIZE="12">

<%

Dim Conn

Set Conn = Server.CreateObject("ADODB.Connection")

coStr = "DRIVER={Microsoft Access Driver (*.mdb)};"

coStr = coStr & "DBQ=h:\webhotell\www.headforscreen.com\data\markus.mdb"

Conn.Open(coStr)

strSQL = "SELECT * FROM Nyheter "

 

 

' Execute SQL statement

SET rs = conn.Execute(strSQL)

 

 

 

 

 

Response.Write "<table border=1>"

 

Do While Not rs.EOF

Response.Write "<tr>"

 

Response.Write "<td BGCOLOR=#000000>" & rs("Nyheter") & "</td>"

Response.Write "</tr>"

Response.Write "<td BGCOLOR=#99CCFF>" & rs("Rubrik") & "</td>"

rs.MoveNext

Response.Write "</tr>"

 

 

 

 

 

 

 

 

 

rs.MoveNext

 

Loop

 

Response.Write "</table>"

 

Conn.close ' Close database connection

 

 

%>

</FONT> </P></BODY>

</HTML>

 

Länk till kommentar
Dela på andra webbplatser

Hmmm, jag kommer åt sidan nu och koden ser lite konstig ut. Det har inte smugit sig in lite html-taggar i databasen?

 

mvh,

query

_________________________________________________________

Things should be made as simple as possible, but not any simpler.

- Albert Einstein

 

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...