[VORONOY]

I have two tables in 2 databases on different servers. I am trying to check if "ID"=data("SOMEID") exist in second "USERS" table and if does not exist - make cell red.
Im getting HTTP 500 error with code below. If I use WHERE ID=12345 and not data("SOMEID") it works well for that ID.

Am I typing wrong syntax for rs.Open "select ID from USERS WHERE ID=" & data("SOMEID") &"", conn???

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Server=SERVER;Uid=USER;Pwd=PASSWORD;Database=TEST"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select ID from USERS WHERE ID=" & data("SOMEID") &"", conn
If data("SOMEID")<>rs("ID") then
record("SOMEID_style") = "style=""background:red"""
end if

Thank you!

[admin]

I recommend to enable detailed error messages in IIS settings. This way you can see the actual error message and fix your code quicker.

[VORONOY]

VORONOY, on 24 November 2017 - 03:27 PM, said:

I have two tables in 2 databases on different servers. I am trying to check if "ID"=data("SOMEID") exist in second "USERS" table and if does not exist - make cell red.
Im getting HTTP 500 error with code below. If I use WHERE ID=12345 and not data("SOMEID") it works well for that ID.

Am I typing wrong syntax for rs.Open "select ID from USERS WHERE ID=" & data("SOMEID") &"", conn???

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Server=SERVER;Uid=USER;Pwd=PASSWORD;Database=TEST"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select ID from USERS WHERE ID=" & data("SOMEID") &"", conn
If data("SOMEID")<>rs("ID") then
record("SOMEID_style") = "style=""background:red"""
end if

Thank you!

Was wrong syntax. This fixes it:

rs.Open "select ID from USERS WHERE ID='"&data("SOMEID")&"'", conn