udskrive i kolonner virker ikke

Det er fordi du har nogle linjer som udskriver <tr> og </tr> så laver den jo en ny række.

Så vil du havde de to kolonner over hinanden eller ved siden af hinanden?

A1B1  A2B2
A3B3  A4B4

eller
A1    A2
B1    B2
A3    A4
B3    B4

sådan :)
A1    A2
B1    B2
A3    A4
B3    B4

det har ikke noget med ovenstående at gøre men, når jeg tjekker den nuværende kode på min egen maskine vises den uden problemer, når jeg ligger den op serveren siger den :
ODBC driver does not support the requested properties.
/greece/kommende_varer2.asp, line 9

Så prøv at lave det sådan her så der en lille tabel hvor hver post:

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from kommende_varer_gr"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../db/xxx.mdb")
rs.Open strSQL, strDSN, 1

%>
<center>
<% 
noPrRow = 0
maxPrRow = 2
response.write "<table cellspacing=""5"">"
do while not rs.EOF
  if noPrRow = 0 then response.write "<tr><td>"
  response.write "<table><tr>"
  response.write "<td height=20 background=""../images/kasse_bg.gif" class=""tekst"">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" &rs("maaned")& "&nbsp;&nbsp;&nbsp;" &rs("aar")& "</td>"
  response.Write "</tr>"
  response.write "<tr >"
  response.write "<td align=""left"" valign=""top" class=""tekst"">"
  response.write "<img src=""../produkt_images_small/" & rs("images") & """ width=""230"" height=""65"" border=""0""> <br>" &rs("navn")&""
  response.write "</td>"
  response.Write "</tr></table>"

noPrRow = noPrRow + 1
  if noPrRow = maxPrRow then
    response.write "</td></tr>"
    noPrRow = 0
  end if
  rs.Movenext
loop
if noPrRow > 0 then response.write "</td></tr>"
response.write "</table>"
%>

<% 
rs.Close
Set rs = Nothing
%>



Den typiske årsag til fejlen er at der er en variable den ikke kan finde til linjen rs.Open, eller en af den indeholder noget den ikke forstår, så tjek at stien er rigtig til database. Du kan evt. prøve at bruge et connection object og ikke rs.Open metoden:

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from kommende_varer_gr"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../db/xxx.mdb")
conn.Open strDSN
Set rs = Conn.Open strSQL

det hjalp desværre ikke --> http://www.agrex.dk/greece/kommende_varer2.asp

Arh jeg fil glemte en <td> og </td> forkert ind prøv lige sådan her:



<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from kommende_varer_gr"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../db/xxx.mdb")
rs.Open strSQL, strDSN, 1

%>
<center>
<%
noPrRow = 0
maxPrRow = 2
response.write "<table cellspacing=""5"">"
do while not rs.EOF
  if noPrRow = 0 then response.write "<tr>"
  response.write "<td><table><tr>"
  response.write "<td height=20 background=""../images/kasse_bg.gif" class=""tekst"">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" &rs("maaned")& "&nbsp;&nbsp;&nbsp;" &rs("aar")& "</td>"
  response.Write "</tr>"
  response.write "<tr >"
  response.write "<td align=""left"" valign=""top" class=""tekst"">"
  response.write "<img src=""../produkt_images_small/" & rs("images") & """ width=""230"" height=""65"" border=""0""> <br>" &rs("navn")&""
  response.write "</td>"
  response.Write "</tr></table></td>"

noPrRow = noPrRow + 1
  if noPrRow = maxPrRow then
    response.write "</tr>"
    noPrRow = 0
  end if
  rs.Movenext
loop
if noPrRow > 0 then response.write "</tr>"
response.write "</table>"
%>

<%
rs.Close
Set rs = Nothing
%>

jeg ved ikke hvad jeg skal sige til dig...
Så jeg nøjes med tak :)