Ir para conteúdo
Fórum Script Brasil

fatimamaria

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    22

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por fatimamaria

  2. Assistente

    em ASP

    Postado

    O código completo ficou assim:

    formulario.asp

    <html>
<head>
<title>Assistente Virtual</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="respostas.asp">
  <b><font size="2" face="Arial">Digite sua pergunta: 
  <input type="text" name="perguntas">
 <input type="submit" name="Submit" value="Enviar">
 </font></b> 
</form>
<p><font face="Tahoma" size="2"><b>&nbsp;<br>
  <br>
  Perguntas Cadastradas no BD: </b></font></p>
<p> <font face="Tahoma" size="2"> 
  <%
dim dsn
dim Conn
dsn="DBQ=" & Server.Mappath("perguntas_respostas.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn


sql = "SELECT top 4 * FROM tabela order by ID "
Set RS = Conn.Execute(sql)

TotalRecs = rs.recordcount
w = 0
For w = 1 to 20
	If rs.eof then 

  Exit For
	Else
  perguntas = RS("perguntas")
   %>
  - <%=perguntas%> <br>
  <%rs.MoveNext
End If
Next
%>
  </font></p>
</body>
</html>
    respostas.asp 
    <html>
<head>
<title>Assistente Virtual</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">

<%
pergunta = Trim(Request.Form("perguntas"))
If Len(pergunta) < 1 Then
%>
<b>Você precisa digitar uma pergunta!!</b>
<%

Else

dim dsn
dim Conn
dsn="DBQ=" & Server.Mappath("perguntas_respostas.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn

sql = "SELECT *FROM tabela WHERE perguntas = '"&pergunta&"'"
Set RS = Conn.Execute(sql)

If RS.EOF Then

Response.redirect "enviaemail.asp?pergunta=" & pergunta & "'"

Else
perguntas = RS("perguntas")
respostas = RS("respostas")
%>
<b>Pergunta:</b>  <%=perguntas%> <br>
<b>Resposta:</b>  <%=respostas%> <br><br>

<%
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
End If
End If
%>
</body>
</html>
    enviaemail.asp 
    <%

Option Explicit

Dim var_pergunta, var_to, var_Mail, EnviarMail, MsgBody

var_pergunta = Request.QueryString("pergunta")
var_to = "fatimamaria2006@bol.com.br"
var_Mail = "fatimamaria2006@bol.com.br"

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = var_to
EnviarMail.From = var_Mail
EnviarMail.Subject = "Assitente virtual"
MsgBody = var_pergunta
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send

Set EnviarMail = Nothing

' Mostra Mensagem de Confirmação na Tela
Response.write "Não encontramos a resposta para sua pergunta, então encaminhamos para a administradora... !"

' Redireciona após 5 segundos
response.write "<br><br>Você será redirecionado em 3 segundos..<br>"
response.write "<meta http-equiv='refresh' content='3; url=default.asp'/>"
%>
    Até ai, funciona direitinho, mas pintou uma dúvida, aliais uma solução, eu consigo ter a resposta do sistema para perguntas feitas exatamente como foi cadastrada, e se o usuário digitar uma pergunta diferente o sistema envia um e-mail. Dai achei esse código: 
    function Fonetica(campo, valor)

 fonetica = " (" &_
       " replace(replace(replace( "                &_
       " replace(replace(replace( "                &_
       " replace(replace(replace( "                &_
       " replace(replace(replace( "                &_
       " replace(replace(replace( "                &_
       " replace(replace(replace( "                &_
       " replace(replace( "                        &_
     " translate(lower(  " & campo & " )," &_ 
     " 'ãáâàõôóêéxçzkcmyíúvw',"  &_ 
     " 'aaaaoooeesssssniiuuu')," &_
     " 'qu','s'  ),  'h',''    ),  '''',''    ), "    &_
     " 'zz','s'  ),  'll','l'  ),  'mm','m'  ), "    &_
     " 'tt','t'  ),  'rr','r'  ),  'ff','f'  ), "    &_
     " 'ii','i'  ),  'bb','b'  ),  'eia','ea' ), "    &_
     " 'nn','n'  ),  'ch', 's' ),  'gg','g'  ), "    &_
     " 'ou', 'u' ),  'st', 't' ),  'sh', 's'  ), "    &_
     " 'ss','s'  ),  'st', 't' ) "                    &_
   " LIKE " &_
       " replace(replace(replace( "                &_
       " replace(replace(replace( "                &_
       " replace(replace(replace( "                &_
       " replace(replace(replace( "                &_
       " replace(replace(replace( "                &_
       " replace(replace(replace( "                &_
       " replace(replace( "                        &_
     "translate(lower(  '%" & valor & "%' )," &_ 
     "'ãáâàõôóêéxçzkcmyíúvw',"  &_ 
     "'aaaaoooeesssssniiuuu')," &_ 
     " 'qu','s'  ),  'h',''    ),  '''',''    ), "    &_
     " 'zz','s'  ),  'll','l'  ),  'mm','m'  ), "    &_
     " 'tt','t'  ),  'rr','r'  ),  'ff','f'  ), "    &_
     " 'ii','i'  ),  'bb','b'  ),  'eia','ea' ), "    &_
     " 'nn','n'  ),  'ch', 's' ),  'gg','g'  ), "    &_
     " 'ou', 'u' ),  'st', 't' ),  'sh', 's'  ), "    &_
     " 'ss','s'  ),  'st', 't' ) "                    &_
   " )"
end function

    Basicamente ele faz a verificação da digitação e valida, exemplo de uma pergunta assim: "Você esta bem?" e se o usuário digitar: "você esta bem?" ele entende e localiza o registro, o problema é que não to sabendo adaptar no que já tenho pronto...

    help-me please

    bjos Fá

  3. Assistente

    em ASP

    Postado

    Então, explicando melhor, estava procurando soluções para o sistema e achei esse para adaptar ao que o douglasdamame ajudou fazer, no exemplo atual da para procurar as perguntas exatas, assim esta muito bem, mas pensei em um exemplo: se o usuário digitar "vc" ao invés de Você não vai achar mesmo, então esse cógido faz isso, ou mais oumenos que eu tenha entendido rs

    será que alguém pode me dar uma forcinha?

    bjos

    obrigada

  4. Assistente

    em ASP

    Postado

    Oi, olha eu aqui de novo, achei esse código no fórum e gostaria de saber se da para adapta-lo, achei bem interessante, da uma olhada:

    function Fonetica(campo, valor)
  
  fonetica = " (" &_
        " replace(replace(replace( "                &_
        " replace(replace(replace( "                &_
        " replace(replace(replace( "                &_
        " replace(replace(replace( "                &_
        " replace(replace(replace( "                &_
        " replace(replace(replace( "                &_
        " replace(replace( "                        &_
      " translate(lower(  " & campo & " )," &_ 
      " 'ãáâàõôóêéxçzkcmyíúvw',"  &_ 
      " 'aaaaoooeesssssniiuuu')," &_
      " 'qu','s'  ),  'h',''    ),  '''',''    ), "    &_
      " 'zz','s'  ),  'll','l'  ),  'mm','m'  ), "    &_
      " 'tt','t'  ),  'rr','r'  ),  'ff','f'  ), "    &_
      " 'ii','i'  ),  'bb','b'  ),  'eia','ea' ), "    &_
      " 'nn','n'  ),  'ch', 's' ),  'gg','g'  ), "    &_
      " 'ou', 'u' ),  'st', 't' ),  'sh', 's'  ), "    &_
      " 'ss','s'  ),  'st', 't' ) "                    &_
    " LIKE " &_
        " replace(replace(replace( "                &_
        " replace(replace(replace( "                &_
        " replace(replace(replace( "                &_
        " replace(replace(replace( "                &_
        " replace(replace(replace( "                &_
        " replace(replace(replace( "                &_
        " replace(replace( "                        &_
      "translate(lower(  '%" & valor & "%' )," &_ 
      "'ãáâàõôóêéxçzkcmyíúvw',"  &_ 
      "'aaaaoooeesssssniiuuu')," &_ 
      " 'qu','s'  ),  'h',''    ),  '''',''    ), "    &_
      " 'zz','s'  ),  'll','l'  ),  'mm','m'  ), "    &_
      " 'tt','t'  ),  'rr','r'  ),  'ff','f'  ), "    &_
      " 'ii','i'  ),  'bb','b'  ),  'eia','ea' ), "    &_
      " 'nn','n'  ),  'ch', 's' ),  'gg','g'  ), "    &_
      " 'ou', 'u' ),  'st', 't' ),  'sh', 's'  ), "    &_
      " 'ss','s'  ),  'st', 't' ) "                    &_
    " )"
end function

    bjos

  5. Assistente

    em ASP

    Postado

    Oi douglasdamame,

    Poxa nem sei como te agradecer, deu certo sim, agora vou dar uma pesquisada de como inserir no bd, acho que deve ser fácil, de qualquer modo, posto aqui pra você, to me esforçando bastante rs

    Bjos e obrigada

  6. Assistente

    em ASP

    Postado

    Oi,

    Fiz e refiz, mas não ta enviando, ta dando erro no servidor, olha o código:

    <%

'Email para onde serão enviados os dados do formulário
email_form = "fatimamaria2006@bol.com.br"

'Título do email
assunto_form = "Assistente virtual"

'Servidor de email
servidor = "smtp.sementesdinale.com.br"

'Componente para envio do email: CDONTS
componente = "CDONTS"

'Cabeçalho do texto do email recebido
cabecalho_email = "Pergunta não cadastrada no assistente"

'*******************************************************************
%>
<html>
<head>
<title>Assistente Virtual</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%


pergunta = Trim(Request.Form("perguntas"))
If Len(pergunta) < 1 Then
%>
               <b> Você precisa digitar uma pergunta!!</b>
<%
Else


dim dsn
dim Conn
dsn="DBQ=" & Server.Mappath("perguntas_respostas.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn


sql = "SELECT *FROM tabela WHERE perguntas = '"&pergunta&"'"
Set RS = Conn.Execute(sql)

If RS.EOF Then
%>

<b> Não tem resposta para sua pergunta </b>

<%

Option Explicit

Dim , var_mail, var_pergunta, var_to, EnviarMail, MsgBody


var_mail = "fatimamaria2006@bol.com.br"
var_to = "fatimamaria2006@bol.com.br"
var_pergunta = Request.form("pergunta")

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = var_to
EnviarMail.From = var_mail
EnviarMail.Subject = "Assitente virtual"
MsgBody = var_pergunta
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send

Set EnviarMail = Nothing

Response.redirect "Obrigado.asp"

%>


<% Else
perguntas = RS("perguntas")
respostas = RS("respostas")
%>
<b>Pergunta:</b>  <%=perguntas%> <br>
<b>Resposta:</b>  <%=respostas%> <br><br>

<%
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
End If
End If


%>


</body>
</html>
    Tentei fazer com aquele que eu tinha feito mas sem o "case" e não deu.. será que to fazendo burrada? ah e fiz assim também: 
    <html>
<head>
<title>Assistente Virtual</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%


pergunta = Trim(Request.Form("perguntas"))
If Len(pergunta) < 1 Then
%>
               <b> Você precisa digitar uma pergunta!!</b>
<%
Else


dim dsn
dim Conn
dsn="DBQ=" & Server.Mappath("perguntas_respostas.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn


sql = "SELECT *FROM tabela WHERE perguntas = '"&pergunta&"'"
Set RS = Conn.Execute(sql)

If RS.EOF Then
%>

<b> Não tem resposta para sua pergunta </b>

<%

Option Explicit

Dim , var_mail, var_pergunta, var_to, EnviarMail, MsgBody


var_mail = "fatimamaria2006@bol.com.br"
var_to = "fatimamaria2006@bol.com.br"
var_pergunta = Request.form("pergunta")

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = var_to
EnviarMail.From = var_mail
EnviarMail.Subject = "Assitente virtual"
MsgBody = var_pergunta
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send

Set EnviarMail = Nothing

Response.redirect "Obrigado.asp"

%>


<% Else
perguntas = RS("perguntas")
respostas = RS("respostas")
%>
<b>Pergunta:</b>  <%=perguntas%> <br>
<b>Resposta:</b>  <%=respostas%> <br><br>

<%
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
End If
End If


%>


</body>
</html>

    bjs

  7. Assistente

    em ASP

    Postado 

    Primeiramente, porque Case "CDONTS" ??? Você não esta fazendo verificação de Casos.....

    Rs boa pergunta, mas vamos lá to gostando disso pois to aprendendo muito, vou postar logo logo o código, quero quebrar um pouco a cabeça rs

    bjs

  8. Assistente

    em ASP

    Postado

    Oi,

    Acho que to fazendo algo errado, mas eu consegui colocar o sistema e resgatar a variável, mas não ta chegando e-mail, consultei o servidor e ele me disseram que o componente tem, talvez meu código ta errado, veja:

    <%

'Email para onde serão enviados os dados do formulário
email_form = "fatimamaria2006@bol.com.br"

'Título do email
assunto_form = "Assistente virtual"

'Servidor de email
servidor = "smtp.sementedinale.com.br"

'Componente para envio do email: CDONTS
componente = "CDONTS"

'Cabeçalho do texto do email recebido
cabecalho_email = "Pergunta não cadastrada no assistente"

'*******************************************************************
%>

<html>
<head>
<title>Assistente Virtual</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%


pergunta = Trim(Request.Form("perguntas"))
If Len(pergunta) < 1 Then
%>
                <b> Você precisa digitar uma pergunta!!</b>
<%
Else


dim dsn
dim Conn
dsn="DBQ=" & Server.Mappath("perguntas_respostas.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn


sql = "SELECT *FROM tabela WHERE perguntas = '"&pergunta&"'"
Set RS = Conn.Execute(sql)

If RS.EOF Then
%>

<b> Não tem resposta para sua pergunta </b>
<%

destino = request.form("fatimamaria2006@bol.com.br")
resposta = "Pergunta não encontrada: "& perguntas &" <BR>"
  
EnviaEmail servidor, componente, email_form, email_form, destino, assunto_form, resposta
Function EnviaEmail(Host,Componente,Email,NomeEmail,ParaEmail,Assunto,resposta)
Select Case Componente


Case "CDONTS"

on error resume next
Set eObjMail = Server.CreateObject("CDONTS.NewMail")
eObjMail.to = ParaEmail
eObjMail.from = NomeEmail & "<" & Email & ">"
eObjMail.subject = Assunto
eObjMail.Importance = 1
eObjMail.BodyFormat = 0
eObjMail.MailFormat = 0
eObjMail.body = resposta  
eObjMail.send
Set eObjMail = nothing
End Select
End Function
%>

<% Else
perguntas = RS("perguntas")
respostas = RS("respostas")
%>
<b>Pergunta:</b>  <%=perguntas%> <br>
<b>Resposta:</b>  <%=respostas%> <br><br>

<%
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
End If
End If


%>


</body>
</html>

  9. Assistente

    em ASP

    Postado

    Oi Doglas,

    Eu vi o que estava fazendo errado, você tem me ajudado muito, vou tentar fazer o sistema para enviar a pergunta por e-mail e posto para tirar dúvidas, obrigada mesmo

    bjos

    Fá

  10. Assistente

    em ASP

    Postado

    Oi douglasdamame,

    Poxa era isso mesmo que eu estava querendo.

    Só que tem uma coisa, fiz o teste de duas perguntas:

    Pergunta: tem namorado? Resposta: Tenho

    Pergunta: Tem namorados? Resposta: Não

    Percebe, fiz duas perguntas meio que parecidas, o resultado foi que não havia resposta para pergunta.

    Depois fiz o teste com o que escreveu:

    - Quanto é 2 + 2

    - Quanto é 2 + 5

    o sistema também não achou resposta. Basicamente são diferentes mas o sistema não acha, tem como resolver?

    bjs

  11. Assistente

    em ASP

    Postado

    Oi douglasdamame,

    Poxa era isso mesmo que eu estava querendo, parece meio sem sentido mas tenho uma justificativa, bom, esse sistema será utilizado para responder perguntas normalmente já formuladas em que os usuários costumam faze-las sempre, já tenho as perguntas (são mais ou menos 200).

    Estou pensando em uma solução, nem sei se da pra fazer isso, exemplo, se o usuário digitar uma pergunta e não tiver no banco de dados, o sistema informa a ele que no momento não há resposta, e automaticamente envia a pergunta para o administrador via e-mail para que ele possa cadastrar. Será que da pra fazer isso?

    bjos obrigada

  12. Assistente

    em ASP

    Postado

    É assim:

    Vou alimentar o bd de duas formas, perguntas e respostas destas perguntas.

    Quando o usuário digitar uma pergunta, o sistema vai procurar a resposta para a questão. Mas, o sistema de busca que criei ai em cima procura palavras. Se eu tiver duas perguntas que contenha uma palavra idêntica é mostrado duas respostas. ex:

    Pergunta: Qual é a cor da folha de lírio Resposta: Roxa

    Pergunta: Qual é a cor da folha de rosa Resposta: vermelha

    Se na busca o usuário digitar qual é a cor da folha, o sistema traz duas respostas diferentes ou se houver mais perguntas com qualquer palavra o sistema ta trazendo tudo, portanto ele busca somente palavra, eu queria uma busca pela frase, se não tiver a frase, o sistema não aponta resultado.

    percebeu a dificuldade? Tem como resolver isso?

    bjs

  14. Assistente

    em ASP

    Postado

    Então, o meu ta parecido, mas só busca palavra e não frase, fiz um teste com seu código mas não funcionou, fiz a conexão salvei a tabela e inseri perguntas e respostas mas ele não ta buscando....

    o meu código para bbusca é assim:

                  <%
If strSearch <> "" Then

	strDBPath = Server.MapPath("contato.mdb")

Const adUseClient = 3

	Set cnnSearch = Server.CreateObject("ADODB.Connection")

cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
cnnSearch.CursorLocation = adUseClient

strSQL = "SELECT pergunta, resposta " _
  & "FROM contato " _
  & "WHERE pergunta LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _
  '& "OR pergunta LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _
  '& "ORDER BY nome;"

	Set rstSearch = cnnSearch.Execute(strSQL)
intContador = rstSearch.RecordCount

	%>

    ele busca palavras, queria que buscasse a frase, tem como adaptar?

  16. Assistente

    em ASP

    Postado

    Então não sei fazer isso, o sistema ta buscando somente palavras, se eu incluir nas respostas "Rosas vermelhas" e "Rosas Azuis" e no campo busca digitar "Rosas" ele trz os dois tipos, eu gostaria que ele trouxesse a frase inteira entende?

  18. Assistente

    em ASP

    Postado

    Amigo só uma ajuda para fazer com que a busca seja por uma frase, o sistema que eu postei busca palavras, por exemplo:

    Se tiver mais de tres perguntas com a palavra "folha" o sistema vai inserir as três respostas referente a palavra folha que esta em três perguntas entende.

    O que eu quero é se eu escrever na pergunta" folha de abril" e outra pergunta "folha de março" e o usuário digitar na pesquisa "folha de março" somente terá acesso a essa pergunta . As variaveis estarei colocando ou melhor digitando....

  19. Assistente

    em ASP

    Postado

    Você não entendeu, eu é que vou digitar perguntas e respostas para minha orientação, o usuário vai digitar apenas as perguntas e o resultado para ele será a resposta

    Quanto a probabilidade de digitar uma pergunta idêntica é fácil resolver, só que não consigo é fazer que a busca seja pela frase e não pela palavra...

  20. Assistente

    em ASP

    Postado

    Olá pessoal, bom consegui pegar alguns exemplos e criei o código, agora gostaria da ajuda de vocês para definir melhor o resultado da resposta, eu explico.

    Agora o sistema posui um adm para cadastrar pergunta e resposta.

    Para o usuário terá um campo onde ele faz a pergunta e só será mostrada a resposta, mas eu gostaria que o resultado fosse dado não por busca de palavras chave e sim pela frase completa. Entenderam?

    Tem como fazer isso?

    abaixo segue os códigos:

    Procura.asp

    <%

Dim strURL     
             

Dim cnnSearch 
Dim rstSearch  
Dim strDBPath  

Dim strSQL    
Dim strSearch  
inicio = Timer

'#Função que tira todos os acentos das palavras
function TiraAcento(StrAcento)
 for i = 1 to len(StrAcento) 
  Letra = mid(StrAcento, i, 1)
  Select Case Letra
   Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"
   Letra = "A"
   Case "é","É","ê","Ê","Ë","ë","È","è"
   Letra = "E"
   Case "í","Í","ï","Ï","Ì","ì"
   Letra = "I"
   Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"
   Letra = "O"
   Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"
   Letra = "U"
   Case "ç","Ç"
   Letra = "C"
   Case "não"
   Letra = "N"
  End Select
  texto = texto & Letra
 next
 TiraAcento = texto
end function 


strURL = Request.ServerVariables("URL")

strSearch = Request.QueryString("search")

%><title>Assistente</title>
<p>&nbsp;</p>
<table width="69%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F2FFF2">
  <tr>
    <td><table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
          <td bgcolor="#FFFFFF"><table width="44%" border="0" align="center" cellpadding="2" cellspacing="2">
<tr align="center"> 
                <td bgcolor="#99CCFF" width="35%"> <div align="center"><font color="#000099"><b>
    	<font color="#CCCCCC" face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="form_inclusao.asp">Incluir</a></font></b></font></div></td>
                <td bgcolor="#99CCFF" width="30%"> <div align="center"><font color="#669999"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="form_exclui.asp" class="menu">Excluir</a></font></b></font></div></td>
                <td width="18%" bgcolor="#99CCFF"> <div align="center"><font color="#000099"><b><font color="#999999" size="2" face="Verdana, Arial, Helvetica, sans-serif">Pesquisar</font></b></font></div></td>
                <td bgcolor="#99CCFF" width="35%"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"><a href="escolhe_pra_auterar.asp" class="menu">Alterar</a></font></b></font></div></td>
              </tr>
            </table>
            <p align="center"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#000099"> 
              :: Assistente virtual::</font></STRONG></FONT></p>
            <form action="<%= strURL %>" method="get">
              <div align="center"> 
                <input name="search" value="<%= strSearch %>" />
                <input name="submit" type="submit" value="Pesquisar" />
              </div>
            </form>
            <p align="center"> 
              <%
If strSearch <> "" Then

	strDBPath = Server.MapPath("contato.mdb")

Const adUseClient = 3

	Set cnnSearch = Server.CreateObject("ADODB.Connection")

cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
cnnSearch.CursorLocation = adUseClient

strSQL = "SELECT pergunta, resposta " _
  & "FROM contato " _
  & "WHERE pergunta LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _
  '& "OR pergunta LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _
  '& "ORDER BY nome;"

	Set rstSearch = cnnSearch.Execute(strSQL)
intContador = rstSearch.RecordCount

	%>
            </p></td>
        </tr>
      </table>
      <p align="center"><br>
        <font size="1" face="Verdana, Arial, Helvetica, sans-serif">[ Foram encontradas&nbsp;<b><%=intContador%></b> 
        ocorrências ] </font> </p>
      <div align="center"> 
        <table width="500" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr> 
            <th width="300" bgcolor="#FF6600"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFFFF">::Pergunta 
              ::</font></STRONG></FONT></th>
            <th width="300" bgcolor="#FF6600"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFFFF">:: 
              Resposta::</font></STRONG></FONT></th>
          </tr>
          <%
	Do While Not rstSearch.EOF
  %>
          <tr> 
            <td bgcolor="#FFFFE6"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("pergunta").Value %></font></td>
            <td bgcolor="#FFFFE6">
              <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("resposta").Value %></font></div></td>
          <%

  rstSearch.MoveNext
	Loop
	%>
        </table>
        <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
        &nbsp;Sua Pergunta foi processada em 
        <%response.write FormatNumber( Timer - inicio, 2 )%>
        segundos.</font><br>
        <%

	rstSearch.Close
	Set rstSearch = Nothing
	cnnSearch.Close
	Set cnnSearch = Nothing
End If

%>
      </div></td>
  </tr>
</table>
<p>&nbsp;</p>
    Este insere os campos no BD Insert_intro.asp 
    <%
'Força a declaração de todas as variáveis
Option Explicit
'Não deixa informações no Cache
Response.Expires = 0
'Declaração das variáveis
Dim objConn, objRs, strQuery, strConnection, pergunta, resposta
'Atrubuição dos valores as respectivas variáveis
pergunta = Request.Form("pergunta")
resposta = Request.Form("resposta")
'Cria o objeto RecordSet e atribui a variável 
Set objConn =  Server.CreateObject("ADODB.Connection")
'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...
'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)
'(*.mdb) indica que o arquivo utiliza extensão mdb
objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
'Insere os dados na tabela aberta
strQuery = "INSERT INTO contato (pergunta, resposta) VALUES ('"&pergunta&"','"&resposta&"')"
'Caso ocorra um erro esta função de erro será chamada
On error Resume Next
'Executa a inserção no Banco de Dados 
Set ObjRs = objConn.Execute(strQuery)
'Fecha o Objeto de Conexão
objConn.close
'"APAGA" qualquer instancia que possa ter no objeto objRs e objConn
Set objRs = Nothing
Set objConn = Nothing
'Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0
if err = 0 Then
	'Redireciona o usuário caso não tenha ocorrido erro na transação
	response.redirect "sucesso.asp"
end if
%>

    Mais uma vez obrigada

    bjs

    Fátima

  21. Assistente

    em ASP

    Postado

    Olá,

    bom mais ou menos, o que eu quero é desenvolver um sistema onde o usuário digita uma pergunta e o sistema da uma resposta baseando-se na pergunta ...

    Alguém tem idéia de como fazer?

    bjs

    Fátima

  22. Assistente

    em ASP

    Postado

    Olá pessoal, sou nova na comunidade, entendo muito pouco de asp e gostaria da ajuda de vocês, bom não sei por onde começar e gostaria de uma luz, gostaria de saber como eu posso criar um assistente virtual utilizando asp e access

    A idéia inicial é ter uma janela onde o usuário digita uma pergunta e o assistente emite uma resposta comparando no banco de dados a resposta.

    Tem como fazer isso?

    Obrigada,

    Fátima

×
×
  • Criar Novo...