class= " lineNumbers " de
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 :
176 :
177 :
178 :
179 :
180 :
181 :
182 :
183 :
184 :
185 :
186 :
187 :
188 :
189 :
190 :
191 :
192 :
193 :
194 :
195 :
196 :
197 :
198 :
199 :
200 :
201 :
202 :
203 :
204 :
205 :
206 :
207 :
208 :
209 :
210 :
211 :
212 :
213 :
214 :
215 :
216 :
217 :
218 :
219 :
220 :
221 :
222 :
223 :
224 :
|
class= de
class= ><%@LANGUAGE= " notpretty " " VBSCRIPT " CODEPAGE= " de l'id= " codeSnippet776971 " de
< ! --file= " raccordements/NBconnect1.asp " de #include -->
<%
Faible MM_editAction
MM_editAction = CStr (Request.ServerVariables (« SCRIPT_NAME »))
Si ("" de <> de Request.QueryString) puis
MM_editAction = MM_editAction et « ? » Et Server.HTMLEncode (Request.QueryString)
Finir si
'booléen pour avorter le disque éditer
Obscurcir MM_abortEdit
MM_abortEdit = faux
%>
<%
'Exécution d'IIf
Fonction MM_IIf (condition, ifTrue, ifFalse)
Si condition = puis ""
MM_IIf = ifFalse
Autrement
MM_IIf = ifTrue
Finir si
Finir la fonction
%>
<%
Si (CStr (demande (« Login_ID »)) = « form1 ») puis
Si (pas MM_abortEdit) puis
'exécuter l'insertion
Obscurcir MM_editCmd
Placer MM_editCmd = Server.CreateObject (« ADODB.Command »)
MM_editCmd.ActiveConnection = MM_NBconnect1_STRING
MM_editCmd.CommandText = « dbo de mise à jour. Ouvrir une session (FirstName, nom de famille, relation, email, username, mot de passe) les VALEURS (? ? ? ? ? ?) là où Login_ID = ? »
MM_editCmd.Prepared = rectifient
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter (« param1 », 202, 1, 15, Request.Form (« FirstName »)) 'adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter (« param2 », 202, 1, 20, Request.Form (« nom de famille »)) 'adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter (« param3 », 202, 1, 20, Request.Form (« relation »)) 'adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter (« param4 », 202, 1, 50, Request.Form (« email »)) 'adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter (« param5 », 202, 1, 15, Request.Form (« username »)) 'adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter (« param6 », 202, 1, 15, Request.Form (« mot de passe »)) 'adVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
Finir si
Finir si
%>
<%
Obscurcir Recordset1__MMColParam
Recordset1__MMColParam = « 1 »
Si "" de <> (de session (« MM_UserName »)) puis
Recordset1__MMColParam = session (« MM_UserName »)
Finir si
%>
<%
Obscurcir Recordset1
Obscurcir Recordset1_cmd
Obscurcir Recordset1_numRows
Placer Recordset1_cmd = Server.CreateObject (« ADODB.Command »)
Recordset1_cmd.ActiveConnection = MM_NBconnect1_STRING
Recordset1_cmd.CommandText = « CHOISISSENT * À PARTIR du dbo. Ouvrir une session OÙ username = ? »
Recordset1_cmd.Prepared = rectifient
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter (« param1 », 200, 1, 15, Recordset1__MMColParam) 'adVarChar
Placer Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
< ! PUBLIC de HTML de DOCTYPE « - //W3C//DTD XHTML 1.0 Transitional//EN » « http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd " >
xmlns= " http://www.w3.org/1999/xhtml " de
Contenu-Type " texte de content= "/HTML de http-equiv= " de
Document Untitled
type= " texte/CSS " de
class= " récipient " de
class= " contenu " de
" border=
height= de   du colspan= " 4 " ; |
>  du width= " 115 " de
> Hi <%= (Recordset1.Fields.Item (« relation » du colspan= " 2 " de |
  ; |
>  du width= " 116 " de
|
  ; |
height= de |
<%
Recordset1.Close ()
Placer Recordset1 = rien
%>
|