<%@Language=VBScript%> <% SetLocale("1046") Dim sConn, sRec, sStrConn, sSQL sStrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\IDIOMAS\PTG\asd54as\depoimentos.mdb") Sub AbreConexao() set sConn = Server.CreateObject("ADODB.Connection") sConn.Open sStrConn End Sub Sub FechaConexao() if not sConn.State = 0 then sConn.Close set sConn = nothing End Sub Sub Salvar() call AbreConexao() sSQL = "INSERT INTO TB_DEPOIMENTO(Nome, Email, Depoimento) values ('" sSQL = sSQL & Request.Form("txtNome") & "','" sSQL = sSQL & Request.Form("txtEmail") & "','" sSQL = sSQL & Request.Form("txaMsg") & "')" sConn.Execute sSQL Response.Write("") call FechaConexao() end sub if Request.QueryString("Acao") = "SALVAR" then call Salvar() end if %> TRI!gêmeos

Dúvidas e depoimentos

Aos casais que têm TRIGÊMEOS, solicitamos que nos enviem um pequeno texto e uma foto com as crianças (opcional), que será inserido, com sua permissão, no link DICAS DE MÃES DE TRIGÊMEOS, assim como dicas para os casais que vivenciam ou estão prestes a vivenciar a experiência da maternidade.

Escreva sua dúvida, pergunta ou depoimento.

Nome:
E-mail:
Comentarios:
 

©2003 MSDesigns    
contato
webmaster