Help...

[danyort]

Esse é o código:

Set rsNewTopic = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblTopic.* FROM tblTopic "
strSQL = strSQL & "ORDER By tblTopic.Start_date ASC;"
rsNewTopic.CursorType = 2
rsNewTopic.LockType = 3
rsNewTopic.Open strSQL, strCon
rsNewTopic.AddNew
rsNewTopic.Fields("Subject") = strSubject
rsNewTopic.Update
rsNewTopic.Requery
rsNewTopic.MoveLast
lngTopicID = CLng(rsNewTopic("Topic_ID"))	

EStá dando o seguinte erro:

Invalid use of Null: 'CLng'

A linha onde indica que tem erro é

lngTopicID = CLng(rsNewTopic("Topic_ID"))

Tá retornando valor nulo.

O banco que uso é sql server.

Alguém pode me ajudar??

[donga]

tenta assim

lngTopicID = CLng(rsNewTopic("Topic_ID") & "")

[danyort]

Mas o problema não vai continuar o mesmo??

Ou seja, o rsNewTopic("Topic_ID") não vai continuar me retornando um valor nulo??

O acontece acontece ali por não existir valor.

Mas o problema está antes.

[crucifier]

não conheco sql server...mas não tem um eskema que muda no campo do topic_id para ver se é null ou not null?

se tiver not null significa que não pod ficar vazio

ou então coloca um valor padrão para ele no campo.ou então tambem...pode colocar la:

if rsNewTopic("Topic_ID") = "" then

Topic_ID = "0"

end if

...

lngTopicID = CLng(Topic_ID & "")

ve se é isso