<% If Request.Form("nombre") <> "" Then strnombre = Request.Form("nombre") strpais = Request.Form("pais") strciudad = Request.Form("ciudad") strnacionalidad = Request.Form("nacionalidad") stremail = Request.Form("email") strcomentario = Request.Form("comentario") Dim Conexao, ConnString ConnString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\chilers\Dados\chilers.mdb;" Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open ConnString sql = "INSERT INTO cadastro (nombre,pais,ciudad,nacionalidad,email,comentario) VALUES ('" & strnombre & "','" & strpais & "','" & strciudad & "','" & strnacionalidad & "','" & stremail & "','" & strcomentario & "')" Conexao.Execute(sql) response.Write("Registro inserido com sucesso!!!") Conexao.Close Set Conexao = Nothing END IF %>Libro de visitas

  Quiénes Somos  Noticias  Eventos   Chile  Turísmo  Galeria  Social  Contáctenos  Mapa do Sitio  Portada 

                                     

   

      

 

 

 

 

 

 

   

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Libro de visitas

Nombre Completo   

   País de conexión                                                               

Ciudad                                                                                  

               Nacionalidad                

               E-mail                        

               Comentários   

      .                               

                                                agradecemos sus comentarios y sugerencias.