Duas Instruções, Uma Com Erro

[Jony Walker]

estou fazendo dois updates, um em cada tabela, mas o segundo está acusando erro de falta de parâmetros, embora esteja imprimindo corretamente na tela:

<%

Dim varID, varOp, varNom, varTel
Dim varFx, varMail, varCto, varOk
Dim rsUpd, sqlUpd

varID = request.form("alt")
varOp = request.form("op")
varNom = request.form("nom")
varTel = request.form("tel")
varFx = request.form("fx")
varMail = request.form("mail")
varCto = request.form("cto")
varOk = request.form("ok")

if varOk = "1" then
varOk = true
else
varOk = false
end if

Set Conn = Server.CreateObject("ADODB.Connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.mappath & "\guia.mdb"
Conn.Open DSNtest

Set RS = Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação
sqlUpd = " UPDATE telemarketing SET "
sqlUpd = sqlUpd & " nome = '" & varNom & "'"
sqlUpd = sqlUpd & ", telefone = '" & varTel & "'"
sqlUpd = sqlUpd & ", fax = '" & varFx & "'"
sqlUpd = sqlUpd & ", mail = '" & varMail & "'"
sqlUpd = sqlUpd & ", contato = '" & varCto & "'"
sqlUpd = sqlUpd & " WHERE id = " & varID

Set Rsp = Server.CreateObject("ADODB.Recordset")
sqlX = " UPDATE doutores SET "
sqlX = sqlX & " cto = " & varOk & ""
sqlX = sqlX & " WHERE id = " & varID 

response.write sqlX
response.end

RS.Open sqlUpd, conn, 3
Rsp.Open sqlX, conn, 3

UPDATE doutores SET cto = Verdadeiro WHERE id = 1109

[kuroi]

o que seria verdadeiro, um campo da tabela? porque isso que você so vai funcionar se for.

se for uma variavel faca assim:

UPDATE doutores SET cto =" & Verdadeiro & " WHERE id = 1109

se for um valor boolean faca assim:

UPDATE doutores SET cto = True WHERE id = 1109

[Jony Walker]

Isso era o print da tela, talvez seja melhor eu escrever TRUE string do que puxar TRUE da var ??

[kuroi]

estranho ter aparecido verdadeiro em vez de true, deve ser a configuracao do seu pc ou do servidor.

o esquema é você testar antes:

sqlX = " UPDATE doutores SET "
sqlX = sqlX & " cto = " & Iif(varOk, "True", "False") & ""
sqlX = sqlX & " WHERE id = " & varID [/code]