Del udtrukket data i 2.

? Hvad er det du mener?
Prøv evt. at kom med koden i PHP, så skal jeg oversætte den til dig...

//>Rune

$db = new DB_mysql;

$db->query("select * from links order by title asc");
$antal = $db->num_rows();

$limit = floor($antal/2);

print "<BR><TABLE border=0 cellspacing=4 cellpadding=4><TR>";
print "<TD valign=top><IMG src=\"../pics/jazz_links.gif\" border=0><BR><BR>";

$taeller = 0;
while ($db->next_record()) {


if ($taeller == $limit) print "</TD><TD valign=top><IMG SRC=\"../pics/udrabstegn.gif\" WIDTH=193 HEIGHT=65 BORDER=0><BR><BR>";

Blot et uddrag.
Jeg har ikke rettet det igennem. Det er sku lang tid siden jeg lavede det.

manglede sku det nederste:

printf("<A HREF=\"%s\" target=\"_new\"><B>%s</b></a><BR>%s<BR><BR>",$db->Record["url"],stripslashes($db->Record["title"]),nl2br(stripslashes($db->Record["tekst"])));
$taeller++;
}

print "</TR></TABLE>";

By the way så bruger jeg oz access i stedet for nu.

Nu er jeg ik' så meget inde i PHP, men jeg vil da tro det er noget ligende det her! -i øvrigt syntes jeg 10 points er LIGE lidt for dette spm!

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("DB.mdb")

strSQLCount = "SELECT COUNT(*) FROM [links]"
Set objRsCount = objConn.Execute(strSQLCount)

strSQL = "SELECT * FROM [links] ORDER BY [title] ASC"
Set objRs = objConn.Execute(strSQL)

intAntal = objRsCount(0)
intLimit = CInt(intAntal/2)

Response.Write("<BR><TABLE border=0 cellspacing=4 cellpadding=4><TR>")
Response.Write("<TD valign=top><IMG src=""../pics/jazz_links.gif"" border=0><BR><BR>")

intTaeller = 0

While Not objRs.EOF
  If intTaeller = intLimit Then
      Response.Write("</TD><TD valign=top><IMG SRC=""../pics/udrabstegn.gif"" WIDTH=193 HEIGHT=65 BORDER=0><BR><BR>")
  Else
Response.Write("<A HREF=""%s"" target=""_new""><B>%s</b></a><BR>%s<BR><BR>" & objRs("url"))
intTaeller = intTaeller + 1
  End If
objRs.MoveNext()
Wend

//>Rune

Tjaa nu er jeg ik så meget inde i asp. Men jeg kan ik få det tilpasset så det virker
Jeg ville nu bare have et forslag til hvordan man deler teksten op i 2.

Hvis du kan få den her delt op i 2 i stedet for.
så jeg kan splitte halvdelen af billederne i venstre og halvdelen af billederne i højre side af tabellen(erne).
Så smider jeg 30 points oven i.

Ps. Jeg forsøger at holde inflationen nede herinde. =)

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("billede.mdb")
Conn.Open DSN


' SQL forespørgsel
strSQL = "Select * From Pictures Where Billedtype = 2 order by navn"

' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do

    ' Udskriv værdien af kolonnen Fornavn
  Response.Write "<img width=300 height=200 src=pictures/" & rs("navn") & ".jpg><br>" & rs("text")

Response.Write "<br>"
  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

HVis ik så skriv og jeg starter det i en ny tråd og du for lidt points.

Det er ikke afprøvet, så jeg ved ik' lige helt om det virker.. men prøv ;o)

<table>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("billede.mdb")
Conn.Open DSN

' SQL Count() Forspørgelse
strSQLCount = "SELECT COUNT(*) FROM Pictures WHERE Billedetype = 2"
Set objRsCount = Conn.Execute(strSQLCount)

intAntal = objRsCount(0)
intLimit = intAntal/2

strSQL = "Select * From Pictures Where Billedtype = 2 order by navn"

Set rs = Conn.Execute(strSQL)

intTmp = 1
While Not rs.EOF
    If intTmp = 1 Then
        Response.Write("<tr><td><img width=300 height=200 src=pictures/" & rs("navn") & ".jpg><br>" & rs("text") & "</td>")
        intTmp = 2
    ElseIf intTmp = 2 Then
        Response.Write("<td><img width=300 height=200 src=pictures/" & rs("navn") & ".jpg><br>" & rs("text") & "</td></tr>)
        intTmp = 1
    End If
  rs.MoveNext()
Wend

Conn.Close
Set Conn = Nothing
%>
</table>

//>Rune

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/maria/billede2.asp, line 44


--uddrag---
' SQL Count() Forspørgelse
strSQLCount = "SELECT COUNT(*) FROM Pictures WHERE Billedetype = 1" <-- line 44
Set objRsCount = Conn.Execute(strSQLCount)

Sorry. Det var en stavefejl!

Det virker sku.

thnx for help!

*G* Anytime ;o)
Thx 4 Poinz

//>Rune