Lille kode :D

oRS.Open "Topic_List WHERE Id = " & Request.Querystring("tid"), oConn, 1, 3
    CountSetAf = oRS("Count_SetAf")
    CountSetAf = CountSetAf + 1
    oRS("Count_SetAf") = CountSetAf
    oRS.Update
oRS.Close

//>Rune

Hov.. :-)

oRS.Open "SELECT * FROMTopic_List WHERE Id = " & Request.Querystring("tid"), oConn, 1, 3
    CountSetAf = oRS("Count_SetAf")
    CountSetAf = CountSetAf + 1
    oRS("Count_SetAf") = CountSetAf
    oRS.Update
oRS.Close

//>Rune

kan jeg ikke opdatere den på en anden måde ? :D

Det er jo oxo det den gør! -kommer den da med en fejl eller hvad?

//>Rune

Det kunne evt. være at du ville ha' det lidt mere overskuelig...
Set oRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Topic_List WHERE Id = " & Request.Querystring("tid")
oRS.Open strSQL, oConn, 1, 3
    CountSetAf = oRS("Count_SetAf")
    CountSetAf = CountSetAf + 1
    oRS("Count_SetAf") = CountSetAf
    oRS.Update
oRS.Close

//>Rune

Du kan gøre det i en SQL sætning med UPDATE sådan her:

strSQL = "UPDATE Topic_List SET Count_SetAf = Count_SetAf + 1 WHERE Id = " & Request.Querystring("tid")
oConn.Execute (strSQL)

ja, det er den sætning jeg gerne vil bruge :D men den virker ikke :D

Microsoft VBScript runtime error '800a01a8'

Object required: ''

det skriver den :D

oConn skal definere med i toppen:
Set oConn = server.CreateObject("ADODB.Connection")
oConn.Open 'angiv drive eller provider som bruges til databasen

strSQL = "UPDATE Topic_List SET Count_SetAf = Count_SetAf + 1 WHERE Id = " & Request.Querystring("tid")
oConn.Execute (strSQL)
oConn.Close

hvordan har du oConn idag?

Eks: med driver:

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

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

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

/fiskebolle/forum.asp, line 20


den fejl kommer nu :) linie 20 er denne linie:

Conn.Execute (strSQL)

Så er denne Request.Querystring("tid") nok tom..
hvordan ser linket ud fil.asp?tid=xxx  eller?

Prøv evt at udskriver SQL'en så kan man som regl let se hvad der er galt:
strSQL = "UPDATE Topic_List SET Count_SetAf = Count_SetAf + 1 WHERE Id = " & Request.Querystring("tid")
response.write(strSQL)
oConn.Execute (strSQL)

YEAH! Jeg fandt ud af det :D det er lidt pinligt, men id er ikke id i min tabel :D så jeg skulle jo bare give den TopicID i stedet for :D