Estou precisando fazer uma consulta no banco de dados, e retorna um JSON.
Tentei usar JSON for ASP do Google, mas deu uns erros, então resolvi fazer manualmente:
<!--#include file="conexao.asp"-->
<%
medico = replace(request("medico"),"'","")
crm = replace(request("crm"),"'","")
sql = "SELECT nome_pro, crm FROM medicos WHERE nome LIKE UPPER('%" & medico & "%') "
set rs = server.createobject("adodb.recordset")
rs.cursorlocation = 3
rs.open sql,conexao
response.write("[")
If Not RS.EOF Then
Do
response.write("{")
for each x in rs.fields
response.write("'" & x.name & "'")
response.write(":")
response.write("'" & x.value & "'")
response.write(",")
next
response.write("}")
response.write(",")
RS.MoveNext()
Loop Until RS.EOF
End If
response.write("]")
%>
O problema que estou tendo, é que quando ele imprime o JSON, sai a ultima virgula, assim:
[{'NOME_PRO':'ALCINDO','CRM':'000000',},{'NOME_PRO':'PEDRO ','CRM':'000000',},{'NOME_PRO':'PEDRO','CRM':'111111',},]
Nunca usei ASP, estou usando pela primeiravez pra gerar esse JSON, e queria saber se tem algum metodo de não imprimir essa ultima virgula.
E tambem queria saber se tem como fazer com que o:
response.write("'" & x.name & "'")
Imprima aspas duplas em vez de imprimir unica.