Me volveré loko kon un error, alguien me puede ayudar ??

[mazingerz]

aver, no estoy seguro pero deberia ser problema que la variable que usas no traiga nada o no sea el tipo correcto

pgid = request("id")
adtype = request("type")

deberia ser....

pgid = cstr(Request.Form("id"))
adtype = cstr(Request.Form("type"))

o bien
pgid = cstr(Request.QueryString("id"))
adtype = cstr(Request.QueryString("type"))