1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175
|
<%
ls_ConnectionString = session("ConnectionString")
ls_UsrData = session("UsrData")
ls_UsrLng = session("UsrLng")
ls_UsrCod = session("UsrCod")
ls_numCli = trim(request.form("ls_NumCli"))
ls_nom = trim(request.form("ls_nom"))
ls_prenom = trim(request.form("ls_prenom"))
ls_Adr = trim(request.form("ls_Adr"))
ls_cp = trim(request.Form("ls_cp"))
ls_commune = trim(request.form("ls_commune"))
ls_tel = trim(request.form("ls_tel"))
ls_email = trim(request.form("ls_email"))
if ls_numcli = "" then ls_numcli = trim(request.QueryString("ls_numcli")) end if
lb_swiErr = trim(request.QueryString("lb_swiErr"))
ls_MsgErr = trim(request.QueryString("ls_MsgErr"))
ls_IniData = ""
ls_IniData = ls_IniData & "<usrcod>" & ls_UsrCod & "</usrcod>"
ls_IniData = ls_IniData & "<numcli>" & ls_numcli & "</numcli>"
dim ls_Recordset
dim li_RecordCount_cpt
dim li_FieldCount_cpt
set madll = server.CreateObject ("ma dll")
ls_Result = madll.InitForm(ls_ConnectionString, ls_UsrData, "variable",ls_IniData)
if DetectError(ls_Result,ls_Return) then
SplitErrorMessage ls_Result,li_CodRet,ls_NumErr,ls_MsgErr,ls_LibErr,ls_DataErr
ls_XML = "EOF"
lb_ErrObj = True
else
ls_XML = ls_Return
lb_ErrObj = False
end if
if lb_ErrObj = False then
ReadXMLString_Recordset ls_XML, "lrs_Cli", lrs_record_cli, li_RecordCount_cli, li_FieldCount_cli
li_i = 1
ls_adrCou = trim(request.QueryString("ls_adrCou"))
ls_cpCou = trim(request.QueryString("ls_cpCou"))
ls_locCou = trim(request.QueryString("ls_locCou"))
ls_telCou = trim(request.QueryString("ls_telCou"))
ls_emailCou = trim(request.QueryString("ls_emailCou"))
ls_emailConf = trim(request.QueryString("ls_emailConf"))
if ls_adrCou = "" then ls_adrCou = lrs_record_cli(li_i, 3) end if
if ls_cpCou = "" then ls_cpCou = lrs_record_cli(li_i, 4) end if
if ls_locCou = "" then ls_locCou = lrs_record_cli(li_i, 5) end if
if ls_telCou = "" then ls_telCou = lrs_record_cli(li_i, 7) end if
if ls_emailCou = "" then ls_emailCou = lrs_record_cli(li_i, 8) end if
if ls_emailConf = "" then ls_emailConf = lrs_record_cli(li_i, 8) end if
end if
%>
<div id="title">
<h3>|| <%Response.write XML_FormLabel(ls_XML, "lbl_Titre") & " : " %></h3>
</div>
<%if lb_SwiErr = "True" then%>
<div id="error">
<h3>Error</h3><%response.write "<font color=""red"" face=""Arial""> <b>- " & ls_MsgErr & "</b></font>"%>
</div>
<%end if%>
<div id="mainform">
<form method="post" name="Cli" action="suivante.asp" name="contact_form" id="contact_form" class="formu" onSubmit="verif_conf_mail();return validateForm(this,'Error(s)');">
<table width="70%" cellpadding="4" cellspacing="1" bgcolor="#F3F3F3">
<tr>
<td>
<div align="right">
<label for="txt" title="" class="oblig"><% response.write XML_FormLabel(ls_XML, "lbl_txt") %> :</label>
</div>
</td>
<td>
</td>
</tr>
<tr>
<td>
<div align="right">
<label for="RueCou" title="<%=XML_FormLabel(ls_XML, "lbl_PlsCho") & " " & XML_FormLabel(ls_XML, "lbl_rue")%>" class="oblig">*<% response.write XML_FormLabel(ls_XML, "lbl_rue") %> :</label>
</div>
</td>
<td>
<input name="ls_adrCou" class="oblig" id="adresse" value="<% response.write(ls_adrCou) %>" title="<%=XML_FormLabel(ls_XML, "lbl_PlsCho") & " " & XML_FormLabel(ls_XML, "lbl_rue")%>"/>
</td>
</tr>
<tr>
<td>
<div align="right">
<label for="cpCou" title="<%=XML_FormLabel(ls_XML, "lbl_PlsCho") & " " & XML_FormLabel(ls_XML, "lbl_cp")%>" class="oblig">*<% response.write XML_FormLabel(ls_XML, "lbl_cp") %> :</label>
</div>
</td>
<td><input name="ls_cpCou" value="<% response.write(ls_cpCou) %>" class="oblig" id="codpos" title="<%=XML_FormLabel(ls_XML, "lbl_PlsCho") & " " & XML_FormLabel(ls_XML, "lbl_cp")%>" /></td>
</tr>
<tr>
<td><div align="right">
<label for="locCou" title="<%=XML_FormLabel(ls_XML, "lbl_PlsCho") & " " & XML_FormLabel(ls_XML, "lbl_commune")%>" class="oblig">*<% response.write XML_FormLabel(ls_XML, "lbl_commune") %> :</label>
</div></td>
<td><input name="ls_locCou" value="<% response.write(ls_locCou) %>" class="oblig" title="<%=XML_FormLabel(ls_XML, "lbl_PlsCho") & " " & XML_FormLabel(ls_XML, "lbl_commune")%>" /></td>
</tr>
<tr>
<td><div align="right">
<label for="telCou" title="<%=XML_FormLabel(ls_XML, "lbl_PlsCho") & " " & XML_FormLabel(ls_XML, "lbl_tel")%>" class="oblig">*<% response.write XML_FormLabel(ls_XML, "lbl_tel") %> :</label>
</div></td>
<td><input name="ls_telCou" value="<% response.write(ls_telCou) %>" class="oblig" title="<%=XML_FormLabel(ls_XML, "lbl_PlsCho") & " " & XML_FormLabel(ls_XML, "lbl_tel")%>" /></td>
</tr>
<tr>
<td><div align="right">
<label for="emailCou" title="<%=XML_FormLabel(ls_XML, "lbl_PlsCho") & " " & XML_FormLabel(ls_XML, "lbl_email")%>" class="oblig">*<% response.write XML_FormLabel(ls_XML, "lbl_email") %> :</label>
</div></td>
<td><input name="ls_emailCou" value="<% response.write(ls_emailCou) %>" class="oblig" id="eMail" title="<%=XML_FormLabel(ls_XML, "lbl_PlsCho") & " " & XML_FormLabel(ls_XML, "lbl_email")%>" /></td>
</tr>
<tr>
<td><div align="right">
<label for="CodCou" >*<% response.write XML_FormLabel(ls_XML, "lbl_emailCnf") %> :</label>
</div></td>
<td><input name="ls_emailConf" value="<% response.write(ls_emailConf) %>" id="eMail_conf" /></td>
</tr>
<tr>
<td valign="top" class="oblig"><div align="right">
<%
If session("FLcSwiNaa_Dyn")="True" then
Response.write XML_FormLabel(ls_XML, "lbl_DigPas")
else
Response.write XML_FormLabel(ls_XML, "lbl_usrsgn")
end if %>
<input type="password" size="15" maxlength="10" name="txt_usrsgn" value="<%Response.write ls_usrsgn%>">
<input type="hidden" value="<% response.write(lrs_record_cli(li_i, 1)) %>" name="ls_nom"/>
<input type="hidden" value="<% response.write(lrs_record_cli(li_i, 2)) %>" name="ls_prenom"/>
<input type="hidden" value="<% response.write(lrs_record_cli(li_i, 3)) %>" name="ls_adr"/>
<input type="hidden" value="<% response.write(lrs_record_cli(li_i, 4)) %>" name="ls_cp"/>
<input type="hidden" value="<% response.write(lrs_record_cli(li_i, 5)) %>" name="ls_loc"/>
<input type="hidden" value="<% response.write(lrs_record_cli(li_i, 6)) %>" name="ls_pay"/>
<input type="hidden" value="<% response.write(lrs_record_cli(li_i, 7)) %>" name="ls_tel"/>
<input type="hidden" value="<% response.write(lrs_record_cli(li_i, 8)) %>" name="ls_email"/>
<input type="hidden" value="<% response.write(lrs_record_cli(li_i, 9)) %>" name="ld_datnai"/>
<input type="hidden" value="<% response.write(lrs_record_cli(li_i, 10)) %>" name="ls_vilnai"/>
<input type="hidden" value="<% response.write(lrs_record_cli(li_i, 11)) %>" name="ls_etaciv"/>
<input type="hidden" value="<% response.write(lrs_record_cli(li_i, 12)) %>" name="ls_cartid"/>
<input type="hidden" value="<% response.write(lrs_record_cli(li_i, 13)) %>" name="ld_datval"/>
<input type="hidden" value="<% response.write(lrs_record_cli(li_i, 14)) %>" name="ls_codtit"/>
<input type="hidden" value="<% response.write(lrs_record_cli(li_i, 15)) %>" name="ls_nation"/>
<input type="hidden" value="<% response.write(lrs_record_cli(li_i, 16)) %>" name="ls_resfis"/>
<input type="hidden" value="<% response.write ls_numcli %>" name="ls_numcli"/>
</div></td>
<td>
<input type="submit" name="ok" value="<% response.write XML_FormLabel(ls_XML, "lbl_cnf")%>" title="Cliquez sur ce bouton pour passer à la page suivante" tabindex="11" style="width: auto" />
</td>
</tr>
</table>
</form>
</div> |
Partager