<% 'dim conexaodb pag = request("pag") action = request("action") %> <% IF action = "" Then SQL = "SELECT * FROM duvidas ORDER BY nome ASC" Call abreconexao Set RS = conexaodb.execute(SQL) 'SQL = "SELECT * FROM duvidassubcategorias ORDER BY id DESC" 'Call abreconexao 'Set RS = conexaodb.execute(SQL) ELSEIF action = "adicionar" and request("submit") = "Incluir" then vnome = request("txtnome") vcategoria = request("txtcategoria") vsubcategoria = request("txtsubcategoria") vdescricao = request("txtdescricao") vimagp = request("imag_peq") vimagg = request("imag_gr") ' altero ' por " para não dar erro no banco vnome = replace(vnome,"'",""") vdescricao = replace(vdescricao,"'",""") 'vnome = replace(vnome,"'",""") 'response.Write(vnome & vcategoria & vsubcategoria & vdescricao & vimagp & vimagg) 'response.end() SQL = "INSERT INTO duvidas (nome, categoria, subcategoria, descricao, fotop, fotog) VALUES ('"&vnome&"', '"&vcategoria&"', '"&vsubcategoria&"', '"&vdescricao&"', '"&vimagp&"', '"&vimagg&"')" Call abreconexao conexaodb.execute(SQL) %> <% ELSEIF action = "excluir" then codigo = request("codigo") SQL = "DELETE * FROM duvidas WHERE id="&codigo Call abreconexao conexaodb.execute (SQL) %> <% ELSEIF action = "alterar" and request("Submit") <> "Alterar" then codigodaduvida = request("codigodaduvida") SQL = "SELECT * FROM duvidas WHERE id="&codigodaduvida Call abreconexao Set rsduvida = conexaodb.execute(SQL) 'response.Write(request("Submit")) ELSEIF action = "alterar" and request("Submit") = "Alterar" then vcodigo = request("codigodaduvida") vnome = request("txtnome") vcategoria = request("txtcategoria") vsubcategoria = request("txtsubcategoria") vdescricao = request("txtdescricao") vimagp = request("imag_peq") vimagg = request("imag_gr") ' altero ' por " para não dar erro no banco vnome = replace(vnome,"'",""") vdescricao = replace(vdescricao,"'",""") 'vnome = replace(vnome,"'",""") 'response.Write(vnome& vcategoria & vsubcategoria & vdescricao & vimagp & vimagg & vcodigo) 'response.End() SQL = "UPDATE duvidas SET nome='"&vnome&"', categoria="&vcategoria&", subcategoria="&vsubcategoria&", descricao='"&vdescricao&"', fotop='"&vimagp&"', fotog='"&vimagg&"' WHERE id= "&vcodigo Call Abreconexao set Rs = conexaodb.execute(SQL) Call Fechaconexao Set RS = Nothing %> <% END IF %> <% IF pag = 1 then %> <% ELSEIF pag = 2 then %> <% ELSEIF pag = 3 then %> <% END IF %>
Dúvidas > Adicionar
<% categoria = request("txtcategoria") IF categoria <> "" Then SQL = "SELECT * FROM duvidascategorias WHERE id="&categoria Call abreconexao Set rscod = conexaodb.execute(SQL) codselect = rscod("id") END IF SQL = "SELECT * FROM duvidascategorias ORDER BY nome ASC" Call abreconexao Set rs = conexaodb.execute(SQL) %>
Imagem: 
 <% IF vimag_peq = "" Then vimag_peq = request("imag_peq") vimag_gr = request("imag_gr") END IF if trim(vimag_peq)<>"" then vurlFoto="../../images_foto/" & vimag_peq else vurlFoto="../imagens/pix_transp.gif" end if %>
Categoria: 
  
Sub-Categoria: 
Nome: 
Descrição: 
                                       
                         <%'botão%>
   
Dúvidas > Listar
<% subcategoria = Request("txtsubcategoria") categoria = request("txtcategoria") 'Response.Write(categoria & subcategoria) 'response.end() IF categoria <> "" And subcategoria <> "" Then SQL = "SELECT * FROM duvidas Where categoria="&categoria&" and subcategoria=" &subcategoria Call abreconexao Set rs3= conexaodb.execute(SQL) %> <% If Not rs3.EOF Then While Not rs3.EOF 'imagem = Rs("fotop") %> <% rs3.Movenext Wend rs3.close Call FechaConexao Set rs3 = Nothing Else %> <%End IF End IF%>
 
Categoria: 
<% categoria = request("txtcategoria") IF categoria <> "" Then SQL = "SELECT * FROM duvidascategorias WHERE id="&categoria Call abreconexao Set rs = conexaodb.execute(SQL) codselect = rs("id") ELSE SQL = "SELECT * FROM duvidascategorias ORDER BY nome ASC" Call abreconexao Set rs = conexaodb.execute(SQL) END IF %>  
" hspace="3" vspace="3" border="0"> <%=rs3("nome")%>
<%=left(replace(rs3("descricao"),vbcrlf, "
"),120)%>		 )">  )">
Não contem duvidas cadastrado com esta categoria ! ! !

Selecione Outra categoria !!!
Dúvidas > Alterar
<% codigodaduvida = request("codigodaduvida") categoria = request("txtcategoria") IF categoria <> "" Then SQL = "SELECT * FROM duvidascategorias WHERE id="&categoria Call abreconexao Set rscod = conexaodb.execute(SQL) codselect = rscod("id") END IF SQL = "SELECT * FROM duvidascategorias ORDER BY nome ASC" Call abreconexao Set rs = conexaodb.execute(SQL) %> " method="post" name="Dados"> "> ">
Imagem: 
 <% IF vimag_peq = "" Then vimag_peq = rsduvida("fotop")'request("imag_peq") vimag_gr = rsduvida("fotog")'request("imag_gr") END IF if trim(vimag_peq)<>"" then vurlFoto="../../images_foto/" & vimag_peq else vurlFoto="../imagens/pix_transp.gif" end if %>
Categoria: 
  
Sub-Categoria: 
 <% codigosubcategoria = rsduvida("subcategoria") 'SQL = "SELECT * FROM duvidascategorias Where id="& codigocategoria 'call abreconexao 'set rssubcategoria = conexaodb.execute(SQL) %>
Nome: 
Descrição: 
              
                         <%'botão%>