simpelt

Sådan noget i den her stil ? Jeg går ud fra at du benytter access

<%
  Set MyConn = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("dindatabase.mdb")
  MyConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
  StatSql = "SELECT views FROM joke"
  set rs = MyConn.Execute(StatSql)
  If Not (rs.BOF Or rs.EOF) Then
    Do While Not rs.EOF
    response.write rs("views") & "<br>"
  rs.MoveNext
  Loop
end if
  myConn.Close
  Set myConn = Nothing
  Response.Write strAddLine
%>

næsten... den skal kun vise det der står i views for den joke man har åbnet..  hvordan gør du det? hver joke har har et ID som også kan findes under joke i databasen..

Vil du kun have én post ud af databasen ? Og er det en bestemt post ?

<%
  Set MyConn = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("dindatabase.mdb")
  MyConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

  rs = MuConn.Execute("SELECT * FROM [joke] WHERE [id] = " & Request ("jokeID"))
  If NOT rs.EOF Then
    Response.Write rs("views")
  End If
%>

Nu skal du bare åbne siden med en parameter kaldet jokeID. f.eks www.ditwebsite.dk/jokes.asp?jokeID=25. Så vil den finde den joke med id'et 25, og derefter udskrive dens views.

Mvh Mark
--
www.gameshots.dk
www.profiled.org

ja... den skal kun vise det der står i views for den joke man har åbnet.. hver joke har som sagt sit helt eget ID... hjalp det?

den får jeg en fejl i

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/easy/joke.asp, line 44

<%
  Set MyConn = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("dindatabase.mdb")
  MyConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

  rs = MyConn.Execute("SELECT * FROM [joke] WHERE [id] = " & Request ("jokeID"))
  If NOT rs.EOF Then
    Response.Write rs("views")
  End If
%>

Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'EOF'
/easy/joke.asp, line 45

<%
  Set MyConn = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("dindatabase.mdb")
  MyConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

  Set rs = Server.CreateObject("ADODB.RecordSet")
  rs.Open "SELECT * FROM [joke] WHERE [id] = " & Request ("jokeID"), Conn, 1, 2
  If NOT rs.EOF Then
    Response.Write rs("views")
  End If
%>

sårn :)

Error Type:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/easy/joke.asp, line 45


4 gang er lykkens gang..håber jeg:)

forresten så ser linksne sådan ud... http://mitdomæne/joke.asp?id=etnummer

<%
  Set MyConn = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("dindatabase.mdb")
  MyConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

  Set rs = Server.CreateObject("ADODB.RecordSet")
  rs.Open "SELECT * FROM [joke] WHERE [id] = " & Request ("id"), Conn, 1, 2
  If NOT rs.EOF Then
    Response.Write rs("views")
  End If
%>

Nu?

nej desværre... det eneste jeg skal er faktisk bare at den kan vise hvor mange gange en joke er blevet læst...  disse information kan scriptet få i databasen under jokes hvor der er 2 coloner..nemlig ID og views

<%
  Set MyConn = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("dindatabase.mdb")
  MyConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

  Set rs = Server.CreateObject("ADODB.RecordSet")
  rs.Open "SELECT * FROM [joke] WHERE [id] = " & Request ("id"), MyConn, 1, 2
  If NOT rs.EOF Then
    Response.Write rs("views")
  End If
%>

Min fejl, nu virker det

Jeg takker dig enddnu en gang:)