3 svar · 146 visningar · startad av jboy_87
Så här ser koden ut:
<%
Response.Buffer = True
Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-control", "no-store"
%>
<%
Set connection = server.createObject("adodb.connection")
connection.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/medlemmar.mdb") & ";"
%>
<head>
<title></title>
<base target="top">
</head>
<body bgcolor="#F3F3F3">
<table border="0" width="100%" height="12">
<tr>
<td width="81%" height="1" bgcolor="#008000"> <font face="Verdana" size="1"><b><font color="#FFFFFF">Välkommen
</font><%=Session (SiteID + "namn")%></b></font></td>
<td width="19%" height="1" bgcolor="#008000"><font color="#FFFFFF" size="1" face="Verdana"><b> 10
Senaste medlemmarna</b></font></td>
</tr>
<tr>
<td width="81%" height="26"></td>
<td width="19%" height="98"><font size="5" face="Verdana"><b><%=SELECT TOP 10 * FROM anvandare ORDER BY id_nr
DESC%></b></font>
</td>
</tr>
</table>
<%=Session (SiteID + "namn")%>
Byt ut + mot &
Denna kod måste köras via ditt "Connection" objekt, dvs
Set rs = Connection.Execute "SELECT TOP 10 * FROM anvandare ORDER BY id_nr DESC"
Och sen för att visa får du göra på följande vis:
Do Until rs.Eof
Response.Write rs("det fält du vill visa")
Loop
------------------
Peter D
då blir det så Kompileringsfel i Microsoft VBScript fel '800a0401'
Slut på programsats förväntas.
/min_sida2.asp, rad 11
Set rs = Connection.Execute "SELECT TOP 10 * FROM anvandare ORDER BY id DESC"
----------------------------^
Set rs = Connection.Execute ("SELECT TOP 10 * FROM anvandare ORDER BY id DESC")
------------------
essentitia preter non sans multiplicandum