Converter para inteiro

Pode parecer estranho, mas estou pedindo ajuda para ver se conseguem ver algo que não vejo nesse código, não consigo converter para inteiro um valor, é de um código de paginação que sempre usei, estou usando em outros lugares no mesmo site mas aqui não funciona...

dá erro de tipos incompatíveis (VBScript erro '800a000d), aqui:

cdblMat = pAtual - 1

veja que recupero pAtual como querystring logo no inicio, já tentei converter para númerico com Cint, FormatNumber, cdbl e Val, mas sempre o mesmo erro...

Eu chamo essa página passando o valor de pAtual através de uma função javascript, pesquisei sobre isso (mesmo funciionando em outros lugares) e não achei nada que dissesse que ele pode estar vindo num formato que não fosse apenas string.... Obrigado.

<%

textovideo = request.querystring("textovideo")
cod_cat = request.querystring("cod_cat")
pAtual = Request.querystring("pAtual")

if cod_cat = "" then
cod_cat = 0
end if

set cnprocura = Server.createobject("adodb.connection")
set rsprocura = Server.createobject("adodb.recordset")

 cmdsql = "(select a.cod_videos, a.titulo, a.datapublicacao, a.horapublicacao, a.ativo, a.link, a.cod_categorias from videos a "
 cmdsql = cmdsql & "where a.ativo = 'on' "

 if cod_cat <> 0 then
 cmdsql = cmdsql & "and a.cod_categorias = '"& cod_cat &"' "
 end if

 if textovideo <> "" then
 cmdsql = cmdsql & "and a.titulo like '%"& textovideo &"%' "
 end if

 cmdsql = cmdsql & " ) "

 cnprocura.open "driver=MySQL ODBC 3.51 Driver;DATABASE="& bancodedados&";SERVER=" & ip & ";UID=" & nomebd & ";PASSWORD=" & senhabd & ""

 ''' Total de registros por pagina
 fimRegistros = 8

 ''' Total de links exibidos na tela
 intMaxLinksNavegacao = 10

 ''' Define a pagina atual
 If pAtual = "" then
 pAtual = 1
 End If

 ''' Diz ao MySQL o inicio do filtro de linhas.
 ''' Inicialmente vamos iniciar da linha Zero
 cdblMat = pAtual - 1
 intInicioPaginasRegistros = cdblMat * fimRegistros