<% Set Databas = Server.CreateObject("ADODB.Connection")
Databas.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\kursbok\db\xxxxx.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM annonser WHERE typ = 'saljes' ORDER BY datum DESC"
RecSet.Open SQL, Databas, adOpenStatic, adLockOptimistic %>
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs = server.createobject("adodb.recordset")
Query = "SELECT titel,forfattare,pris FROM annonser WHERE typ = 'saljes'"
rs.open Query, conn
if not rs.eof Then
rs.movefirst
Do While NOt Rs.EOF
%>
<small><%=rs("titel")%></small><br>
<small><%=rs("forfattare")%></small><br>
<small><%=rs("pris")%></small><p>
<%
rs.movenext
Loop
else
response.write("<p align='left'><small>Databasen är tom</small></p>")
Följande saker kan jag se i WML-koden vid en snabb titt (jag antar att du redan testat databaskoden genom att generera HTML istället för WML ;) ) :
DTD:n är fel...
Den bör vara
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
[b]"http://www.wapforum.org/DTD/wml_1.1.xml"[/b]>
Alla dina <br> måste skrivas om som <br/>
All text som du lägger ut i ett <card> måste ligga inom <p>-taggar.
Exempel:
<card id="MainCard">
Do While NOt Rs.EOF
%>
[b]<p>[/b]
<small><%=rs("titel")%></small>[b]<br/>[/b]
<small><%=rs("forfattare")%></small>[b]<br/>[/b]
<small><%=rs("pris")%></small>
[b]</p>[/b]
<%
rs.movenext
Loop
255 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e