Oprettelse af tabel med flere kolonner i ASP

prøv at fjerne 'Wend'

sorry - prøv i stedet at skrive disse i omvendt rækkefølge:

  Wend
  Loop While Not rs.EOF

altså:

  Loop While Not rs.EOF
  Wend

Duer desværre ikke. Jeg synes jeg har prøvet alle former for afslutning på sætningen.
Det pudsiger er, at meddelelsen på linien

Loop While Not rs.EOF
wend

er, 'Wend' var ventet

Mit problem er stadig ikke løst.

<%

    While not RS.EOF
    count=1
    Response.Write("<tr width=200>")
    while count<4


Do

'Udskriv vaerdien af kolonne Overskrift og tekst

Response.Write ("<a href=mailto:")
Response.Write rs("Mail")
Response.Write (">")
Response.Write ("<img border=0 src=Admin/")
Response.Write rs("Billede")
Response.Write (">")
Response.Write("<font face='Arial' size='1' color='#000000'>")
Response.Write ("<br>")
Response.Write rs("Medarbejder")
Response.Write ("<br>")
Response.Write rs("Stilling")
Response.Write("</font>")
Response.Write ("</a>")
Response.Write ("<p>")

    count=count+1

'Gaa til naeste Record i rs
rs.MoveNext
Wend


%>

hov. du skal ikke lige have "Do" med:

<%

    While not RS.EOF
    count=1
    Response.Write("<tr width=200>")
    while count<4


'Udskriv vaerdien af kolonne Overskrift og tekst

Response.Write ("<a href=mailto:")
Response.Write rs("Mail")
Response.Write (">")
Response.Write ("<img border=0 src=Admin/")
Response.Write rs("Billede")
Response.Write (">")
Response.Write("<font face='Arial' size='1' color='#000000'>")
Response.Write ("<br>")
Response.Write rs("Medarbejder")
Response.Write ("<br>")
Response.Write rs("Stilling")
Response.Write("</font>")
Response.Write ("</a>")
Response.Write ("<p>")

    count=count+1

'Gaa til naeste Record i rs
rs.MoveNext
Wend


%>

Jo, for når jeg fjerner 'Do' er beskedden:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A040E)
'Loop' uden 'Do'
, og hvis jeg sætter Do ind i slutningen af sætningen starter problemerne forfra, med besked om at 'Wend' mangler.

Nye forslag søges?

prøv at fjerne loop og do helt..

while not rs.eof

"udskriv dine data"

rs.movenext
wend

det er da "håbløst" at lave en dobbel loop for dette. hvorfor gør du ikke bare sådan:

<%
Response.Write("<tr width=200>")
count=1
While not RS.EOF
   
    'Udskriv vaerdien af kolonne Overskrift og tekst
    Response.write( "<td>" )
    Response.Write ("<a href=mailto:")
    Response.Write rs("Mail")
    Response.Write (">")
    Response.Write ("<img border=0 src=Admin/")
    Response.Write rs("Billede")
    Response.Write (">")
    Response.Write("<font face='Arial' size='1' color='#000000'>")
    Response.Write ("<br>")
    Response.Write rs("Medarbejder")
    Response.Write ("<br>")
    Response.Write rs("Stilling")
    Response.Write("</font>")
    Response.Write ("</a>")
    Response.Write ("<p>")
    Response.Write( "</td>" )
   
    if( count = 4 ) then
        Response.Write( "</tr><tr width=""200"">" )
    end if

    'Gaa til naeste Record i rs
    rs.MoveNext
Wend
Response.write( "</tr>" )
%>

/nute

ups ... denne:

if( count = 4 ) then
        Response.Write( "</tr><tr width=""200"">" )
    end if

skal være

if( count = 4 ) then
    Response.Write( "</tr><tr width=""200"">" )
    count = 1
else
    count = count + 1
end if

Tæt på.
Fejlen peger nu på linien
While not RS.EOF

Beskedden er:
Et objekt er obligatorisk: ''

HJÆLP!!

while not strSQL.eof

(måske)

tja .. .mon ikke du skal åbne dit recordset inden du prøver at loope igennem det ??

'dan query
strSQL="SELECT * From Medarbejdere Order by medarbejder"
Set objConn = Server.CreateObject( "ADODB.Connection" )
objConn.open( [dinDSN] )
Set rs = objConn.Execute( strSQL )
Response.Write("<tr width=200>")
count=1
While not rs.EOF

heller ikke felmeddelelsen er stadig den samme!!

kan du poste hele den kode du prøver at køre, så vi har noget mere at arbejde med, end blot stumper af kode uden at vi ved hvad du faktisk prøver på ?!

<%
' Her oprettes forbindelsen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN ="DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & server.mappath("../Sideindhold.mdb")
Conn.Open DSN



Dim Conn, RS, strConnection
%>     

<html>
<head>
<title>List ads</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="uge" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#000000">


<%

'dan query
'strSQL="SELECT * From Medarbejdere Order by medarbejder"
%>



<table width=600 border="0" class="body">


<tr>
<td><img src="spacer.gif" width="200" height="1"></td>
<td><img src="spacer.gif" width="200" height="1"></td>
<td><img src="spacer.gif" width="200" height="1"></td>

</tr>
<%
'Response.Write("<tr width=200>")
'count=1

While not RS.EOF


'Udskriv vaerdien af kolonne Overskrift og tekst
Response.write( "<td>" )
Response.Write ("<a href=mailto:")
Response.Write rs("Mail")
Response.Write (">")
Response.Write ("<img border=0 src=Admin/")
Response.Write rs("Billede")
Response.Write (">")
Response.Write("<font face='Arial' size='1' color='#000000'>")
Response.Write ("<br>")
Response.Write rs("Medarbejder")
Response.Write ("<br>")
Response.Write rs("Stilling")
Response.Write("</font>")
Response.Write ("</a>")
Response.Write ("<p>")
Response.Write( "</td>" )

if( count = 4 ) then
Response.Write( "</tr><tr width=""200"">" )
count = 1
else
count = count + 1
end if


'Gaa til naeste Record i rs
rs.MoveNext
Wend


Response.write( "</tr>" )
%>

</table>





</body>
</html>

ehh ... det er jo ikke så mærkelig at det ikke fungerer. du har flere fejl:

1) Du dimmer 'Conn' objektet *efter* at du har åbnet det. Disse linier:

Set Conn = Server.CreateObject("ADODB.Connection")
DSN ="DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & server.mappath("../Sideindhold.mdb")
Conn.Open DSN

Dim Conn, RS, strConnection

skal være :

Dim Conn, RS, strConnection
Set Conn = Server.CreateObject("ADODB.Connection")
DSN ="DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & server.mappath("../Sideindhold.mdb")
Conn.Open DSN

2) du åbner aldrig dit recordset. Disse linier:

'dan query
'strSQL="SELECT * From Medarbejdere Order by medarbejder"

skal være

'dan query
strSQL="SELECT * From Medarbejdere Order by medarbejder"´
Set rs = Conn.Execute( strSQL )

/nute

SÅDAN

Det kører helt perfekt.

TAK!!!!!!

fino ...