Som i förra inlägget har jag problem med det jag håller på och bygger på denna sida http://www.freecfm.com/t/tibia/ottenby/ring.asp Öppna databasen i acces. Öppna tabelen i design läge. Om det inte finns ett fält som har datatypen Räknare(Autonumber) Lägg till ett nytt fält. Jag föredrar att ha den längst upp i tabellen. Detta gör du genom att markera översta raden och trycker insert knappen. Ge det nya fältet ett namn. T.ex BildID. Som standard brukar Access automatiskt lägga till index för fält som innehåller ID. Så öppna index fönstret och markera indexet med namnet BildID. Finns tre kryssrutor för indexets attributer. Kryssa i Primär(Primary). Kommer då automatiskt kryssa unik(Unique). Spara och det är klart... :O)Problem
Denna ska presentera en massa bilder och text som ligger i en databas. Grejen är den att jag kan bara gå framåt ett steg, inte längre. Kan man på något vis se vilken post man står på?
Koden är denna:
<%@ Language=VBSCRIPT %>
<% Option Explicit %>
<% Response.Buffer="True" %>
<%
Const adCmdTable="2"
Const adOpenKeyset="3"
Dim ObjConn, ObjRS, strSQL,bild
%>
<%
Set ObjConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("ring.mdb")
objConn.Open
Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL=" SELECT * FROM tblring"
objRS.Open strSQL, objConn, adOpenKeyset, adCmdTable
%>
<%
If Request.Querystring("bild")="next" Then
objRS.MoveNext
End If
%>
<HTML>
<HEAD>
<TITLE>Ringmärkning steg för steg</TITLE>
<LINK REL=STYLESHEET HREF="styles.css" TYPE="text/css">
</HEAD>
<BODY>
<TABLE WIDTH="120" BORDER="0" ALIGN="center">
<TR>
<TD ALIGN="center" COLSPAN="3"><H6>Ringmärkningen steg för steg</H6></TD>
</TR>
<TR>
<TD ALIGN="center" COLSPAN="3">
<IMG SRC="<%=ObjRS("bild")%>">
</TD>
</TR>
<TR>
<TD>
</TD>
<TD ALIGN="left">
<%=ObjRS("text")%>
</TD>
<TD>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
<%
%>Sv: Problem