<%
' FP_ASP ASP gerado automaticamente por um componente do FrontPage. Não edite.
On Error Resume Next
strErrorUrl = ""
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear
Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Não é possível criar conexão"
Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Não é possível criar o conjunto de registros"
fp_conn.Open Application("gostaríamos_de_saber_a_sua_opini1_ConnectionString")
FP_DumpError strErrorUrl, "Não é possível abrir o banco de dados"
fp_rs.Open "Resultados", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Não é possível abrir o conjunto de registros"
fp_rs.AddNew
FP_DumpError strErrorUrl, "Não é possível adicionar novo conjunto de registros ao banco de dados"
Dim arFormFields0(1)
Dim arFormDBFields0(1)
arFormFields0(0) = "Comentarios"
arFormDBFields0(0) = "Comentarios"
FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
If Request.ServerVariables("REMOTE_USER") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Nome_de_usuário"
End If
If Request.ServerVariables("REMOTE_HOST") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Nome_do_computador_remoto"
End If
If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Tipo_de_navegador"
End If
FP_SaveFieldToDB fp_rs, Now, "Carimbo_de_hora"
fp_rs.Update
FP_DumpError strErrorUrl, "Não é possível atualizar o banco de dados"
fp_rs.Close
fp_conn.Close
FP_FormConfirmation "text/html; charset=windows-1252",_
"Confirmação de formulário",_
"Agradecemos o envio da seguinte informação:",_
"gostaríamosdesaber.htm",_
"Retornar ao formulário."
End If
End If
%>
Gostaríamos de saber a sua opinião sobre o nosso site da Web
Gostaríamos de saber a sua opinião sobre o nosso site da Web. Escreva os
seus comentários neste livro público de convidados para compartilhar suas
idéias com outros visitantes.
[guestlog.htm]
Informações sobre o autor.
Copyright © 1999 por [NomeOrganização]. Todos os direitos reservados.
Revisado em: 04 nov 2009 09:19:00 -0400
.