la meme page en .ASP ( page blanche )
merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 <HTML> <HEAD> <META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252"> <TITLE>Contacts</TITLE> </HEAD> <BODY> <% strProvider = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\base\bd1.mdb;" objConn.Open strProvider If ObjConn.State = 1 THEN response.Write("Connection opened<br>") ELSE response.Write("Connection failed<br>") END IF %> <% If IsObject(Session("Contacts_rs")) Then Set rs = Session("Contacts_rs") Else sql = "SELECT * FROM [Contacts]" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 If rs.eof Then rs.AddNew End If Set Session("Contacts_rs") = rs End If %> <TABLE BORDER=1 BGCOLOR=#ffffff CELLSPACING=0><FONT FACE="Arial" COLOR=#000000><CAPTION><B>Contacts</B></CAPTION></FONT> <THEAD> <TR> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Prénom</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>NomFamille</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Adresse</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>CodePostal</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Ville</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>DépartementOuRégion</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Pays/Région</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>TélProfessionnel</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>PosteTravail</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>TéléphoneMobile</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>NumTélécopie</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>NomCourrierÉlec</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Remarques</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>lieu du contact</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>date de prise de contact</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Remarque materiel</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Lieu d'installation</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Contact pris par</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Date d'Achat Envisagé</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>recontact</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Lieu</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Lequel</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Taille</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>marque</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Nbre de chambre</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>salon</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Budget Maxi</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>refcontact</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Modifiable197</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Modifiable199</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Modifiable201</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Modifiable203</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Modifiable205</FONT></TH> <TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="Arial" COLOR=#000000>Texte220</FONT></TH> </TR> </THEAD> <TBODY> <% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <TR VALIGN=TOP> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Prénom").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("NomFamille").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Adresse").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("CodePostal").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Ville").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("DépartementOuRégion").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Pays/Région").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("TélProfessionnel").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("PosteTravail").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("TéléphoneMobile").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("NumTélécopie").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("NomCourrierÉlec").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Remarques Divers").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Lieu du Contact").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ALIGN=RIGHT><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Date").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:10pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Remarque Materiel").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Lieu d'installation").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Contact pris par").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ALIGN=RIGHT><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Date d'achat Envisagé").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Recontact").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Lieu").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("lequel").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="Tahoma" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Taille").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="Tahoma" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Marque").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ALIGN=RIGHT><FONT style=FONT-SIZE:8pt FACE="Tahoma" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Nbre de chambre").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="Tahoma" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Salon").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ALIGN=CENTER><B><FONT style=FONT-SIZE:14pt FACE="Tahoma" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Budget Maxi").Value)%><BR></FONT></B></TD> <TD BORDERCOLOR=#000000 ALIGN=RIGHT><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("RéfContact").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Entreprise connu par").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Propriétaire d'un MH").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Marque q").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Projet abouti").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("Projet annulé").Value)%><BR></FONT></TD> <TD BORDERCOLOR=#000000 ALIGN=RIGHT><FONT style=FONT-SIZE:8pt FACE="MS Sans Serif" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("date de recontact").Value)%><BR></FONT></TD> </TR> <% rs.MoveNext loop%> </TBODY> <TFOOT></TFOOT> </TABLE> </BODY> </HTML>
Partager