 |
 |
||||||||||
 |
 |
 |
 |
 |
 |
 |
|
||||
 |
 |
 |
 |
 |
|
||||||
 |
|
||||||||||
 |
 |
 |
 |
|
|||||||
|
<% 'no security checking %> <% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" %> <% response.buffer = true 'get action a=request.form("a") 'get fields from form x_id = Request.Form("x_id") x_titre = Request.Form("x_titre") x_annonce = Request.Form("x_annonce") x_par = Request.Form("x_par") x_date = date() x_appro = Request.Form("x_appro") x_email = Request.Form("x_email") x_cat = Request.Form("x_cat") x_region = Request.Form("x_region") ' Open Connection to the database set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str Select Case a Case "A": ' Add ' Open record strsql = "SELECT * FROM [annonce]" set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn, 1, 2 rs.AddNew tmpFld = Trim(x_titre) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("titre") = tmpFld tmpFld = Trim(x_annonce) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("annonce") = tmpFld tmpFld = Trim(x_par) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("par") = tmpFld tmpFld = Trim(x_date) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("date") = tmpFld tmpFld = x_appro If tmpFld = "Yes" Then rs("appro") = True Else rs("appro") = False End If tmpFld = Trim(x_email) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("email") = tmpFld tmpFld = Trim(x_cat) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("cat") = tmpFld tmpFld = Trim(x_region) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("region") = tmpFld rs.Update rs.Close Set rs = Nothing conn.Close Set conn = Nothing Response.Clear Response.Redirect "merci.asp" End Select %> |
Accueil - Nos
services - Services en ligne
Choix de carrière - Contactez-nous
Kinéactif © 2004
Site web realisé par Atrosoft