%@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
%>
Além de esclarecer dúvidas,
este espaço tem por objetivo aproximar mulheres, homens
e casais interessados em trocar experiências a respeito
da maternidade tripla. Aqui, os internautas poderão
fazer sugestões para o aprimoramento do site, deixar
mensagens, transmitir suas experiências e fazer perguntas,
que poderão ser respondidas por profissionais especializados
ou pelos pais que já vivenciaram a questão.
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.