<%@ Language=VBScript %>
Youpie.com
<%
If Request.Item("SaveFlag") = "1" then
Dim con
Dim strdsn
set con=server.createobject("ADODB.Connection")
strdsn="dsn=youpie"
con.Open strdsn
strdsn = "insert into contact(Nom,Societe,Adresse,Ville,CodePostal,email,telephone,fax,envoyer) values ('" & Request.Form("Nom") & "', '" & Request.Form("societe") & "', '" & Request.Form("adresse") & "', '" & Request.Form("ville") & "', '" & Request.Form("codepostal") & "', '" & Request.Form("email") & "', '" & Request.Form("telephone") & "', '" & Request.Form("fax") & "', '" & Request.Form("envoyer") & "')"
con.execute strdsn
con.Close
set smail = Server.CreateObject("CDONTS.NewMail")
msg = "Nom - " & Request.Form("Nom") & vbcrlf
msg = msg & "Societe - " & Request.Form("societe") & vbcrlf
msg = msg & "Adresse - " & Request.Form("adresse") & vbcrlf
msg = msg & "Ville - " & Request.Form("ville") & vbcrlf
msg = msg & "Code Postal - " & Request.Form("codepostal") & vbcrlf
msg = msg & "Email ID - " & Request.Form("email") & vbcrlf
msg = msg & "Numéro de téléphone - " & Request.Form("telephone") & vbcrlf
msg = msg & "Fax - " & Request.Form("fax") & vbcrlf
msg = msg & "Message - " & Request.Form("envoyer") & vbcrlf
smail.From = "logo@youpie.com"
smail.To = "logo@youpie.com"
smail.Subject = "Youpie.com - Contact information of " & Request.Form("Nom")
smail.Body = msg
smail.Send
set smail=nothing
%>
<%
Response.End
End if
%>
