<%
Sub impPergResp(a,b)
Dim rs2, temp
Set rs2 = Server.CreateObject("ADODB.RecordSet")
query = "SELECT Faqs.pergunta, Faqs.resposta " & _
" FROM Faqs " & _
" WHERE Faqs.status = 'A' AND Faqs.categoriaFaq = " & a
rs2.open query, conn
If Not rs2.EOF Then
temp = "