No se realiza insercion en postgre

[lmalvarez]

Gracias por contestar, acabo de poner lo que me has dicho y sale lo siguiente

ADODB.Recordset (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.

Código asp:

Set Conex = Server.CreateObject("ADODB.Connection")
'Dsn=PostgreSQL30;database=p_comercio;server=localhost;port=5432;uid=postgres;sslmode=disable;readonly=0;protocol=7.4-1;fakeoidindex=0;showoidcolumn=0;rowversioning=0;showsystemtables=0;fetch=100;socket=4096;unknownsizes=0;maxvarcharsize=255;maxlongvarcharsize=8190;debug=0;commlog=0;optimizer=1;ksqo=1;usedeclarefetch=1;textaslongvarchar=1;unknownsaslongvarchar=0;boolsaschar=1;parse=0;cancelasfreestmt=1;extrasystableprefixes=dd_;lfconversion=1;updatablecursors=1;disallowpremature=0;trueisminus1=0;bi=0;byteaaslongvarbinary=0;useserversideprepare=0;lowercaseidentifier=0;xaopt=1'
'Conex.Open ("Driver={PostgreSQL}; Server=localhost; Database=p_comercio; Uid=postgres; Pwd=admin; port=5432")'
Conex.Open ("Dsn=PostgreSQL30;database=p_comercio;server=localhost;port=5432;uid=postgres;sslmode=disable;readonly=0;protocol=7.4-1;fakeoidindex=0;showoidcolumn=0;rowversioning=0;showsystemtables=0;fetch=100;socket=4096;unknownsizes=0;maxvarcharsize=255;maxlongvarcharsize=8190;debug=0;commlog=0;optimizer=1;ksqo=1;usedeclarefetch=1;textaslongvarchar=1;unknownsaslongvarchar=0;boolsaschar=1;parse=0;cancelasfreestmt=1;extrasystableprefixes=dd_;lfconversion=1;updatablecursors=1;disallowpremature=0;trueisminus1=0;bi=0;byteaaslongvarbinary=0;useserversideprepare=0;lowercaseidentifier=0;xaopt=1")
'Dsn=PostgreSQL30;uid=postgres;pwd=admin'
Response.write("Conectado a la base de datos<br/>")
set RS = Server.CreateObject("ADODB.Recordset")
'RS.CursorType = 2'
'RS.Open SQL, DbConn'
'total=RS.RecordCount'
 
'Const adCmdText = &H0001'
'Const adOpenStatic = 3'
 
 
 
'Driver={PostgreSQL};Server=IP address;Port=5432;Database=myDataBase;Uid=myUserna me;Pwd=myPassword;'
 
'SQL = "SELECT * FROM reclamos"'
'set DbConn = Server.CreateObject("ADODB.Connection")'
'set RS = Server.CreateObject("ADODB.Recordset")'
'DbConn.Open DSN_de_la_base_de_datos'
'RS.CursorType = 1'
'RS.Open SQL, DbConn'
'total=RS.RecordCount'
 
strQuery = "SELECT     nombre,usuario FROM         usuarios WHERE     (idusuarios =(SELECT     usuarios_idusuarios FROM          tarjetas_RFID  WHERE      (tag_hash = '"&tag&"')))"
'Set RS = Server.CreateObject("ADODB.RecordSet")'
'RS.Open strSQL,Conex,adopenstatic,adcmdtext'
'strQuery = "Select * from usuarios"'
 
Set RS = conex.Execute(strQuery)
Dim i
if rs.Supports(adApproxPosition)=true then
    i = RS.RecordCount
End If
if i > 0 then
    Dim usuario
    set usuario = RS("usuario")
    p = RS.GetRows(1,0)
    strQuery = "insert into eventos (propiedades) values ('Usuario: "&p(1,0)&" se ha identificado mediante tag: "&tag&" en la tienda: "&reader&"')"
    set RS = conex.Execute(strQuery)
    
    
'while not RS.eof'
else Response.Write("no entra")
End If