CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 05 27 06:45:28

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

Code

Application

> FORUM STYLE ASPFR.COM (UN SEUL FICHIER ;O) [AVANCÉE]

FORUM STYLE ASPFR.COM (UN SEUL FICHIER ;O) [AVANCÉE]

Information sur la source

Note :

10,00 / 10

Catégorie :Application Niveau :Initié Date de création :14/04/2002 Date de mise à jour :20/04/2002 22:19:36 Vu / téléchargé :8 250 / 866

Auteur : pi0up51

Ecrire un message privé

Site perso

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Voilà presque tout est dans le titre !! C un forum ki tien sur une page !!

Je joint un Zip qui contient : - images
-base
-fichier.asp et .inc

Source

*********inckude-inc.asp*************
<SCRIPT language=JavaScript src="design.js"></SCRIPT>
<%
'toujours sur une seule ligne
DSN_base="DRIVER={Microsoft Access Driver (*.mdb)};" &"DBQ=" & Server.MapPath(".") &"/forum.mdb"
Set CONN = Server.CreateObject("ADODB.Connection")
CONN.Open DSN_BASE
%>
<%
Function SQLStr(pvValue)
Dim sTemp
Select Case VarType(pvValue)
Case 0, 1:
SQLStr = "NULL"
Case 2, 3, 4, 5, 6:
sTemp = "" & pvValue
sTemp = Replace(sTemp, "'", "''")
SQLStr = "'" & sTemp & "'"
Case 7: 'DateTime
sTemp = FormatDateTime(pvValue)
sTemp = Replace(sTemp, "'", "''")
SQLStr = "'" & sTemp & "'"
Case 8: 'String
sTemp = pvValue
sTemp = Replace(sTemp, "'", "''")
If Len(Trim(sTemp)) > 0 Then
SQLStr = "'" & sTemp & "'"
Else
SQLStr = "NULL"
End If
Case Else
SQLStr = "NULL"
End Select
End Function
%>
*fin fichier ***********************************
************** forum.asp *********************
<%
act=Request.QueryString("act")
id=Request.QueryString("id")
If id <> "" Then
'Lecture du message si action=read et si Id différent de ""
sql =""
sql = sql & "SELECT * FROM messageforum WHERE ID = " & request.querystring("id")
Set MessRS = Server.CreateObject("ADODB.Recordset")
MessRS.Open sql, CONN
%>
<%
CONN.Execute ("UPDATE messageforum SET affich = " & (MessRS.Fields("affich")+1) & " WHERE ID= " & request.querystring("id") )
%>
<HTML>
<HEAD>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
<TBODY>
<TR>
<TD vAlign=top width=95%>
<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD
border=0>
<TBODY>
<TR>
<TD>
<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
<TBODY>
<TR>
<TD bgColor=#CBDDDD><img src="derniere.gif" alt="" width="16" height="12" border="0">
<SPAN class=Titre>Message : <%=MessRS("Titre")%></SPAN></TD>
<TD align=right width="10"><A
href="javascript:ShowHide(piclastart,lastart);"><IMG height=9
src="minus.gif"
width=12 border=0 name=piclastart></A></TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE>
<DIV id=lastart style="DISPLAY: inline">
<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD
border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD>
<TABLE cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="80%">
<TABLE cellPadding=0 border=0>
<TBODY>
<TR>
<TD><FONT class=f1
color=#444444>  <B>Sujet</B></FONT></TD>
<TD><FONT class=f1
color=#444444> : </FONT></TD>
<TD><FONT class=f1 color=#444444> <%=MessRS("Titre")%></FONT></TD></TR>
<TR>
<TD><FONT class=f1
color=#444444>  <B>Date</B></FONT></TD>
<TD><FONT class=f1
color=#444444> : </FONT></TD>
<TD><FONT class=f1 color=#444444> <%=MessRS("datef")%></FONT></TD></TR>
<TR>
<TD><FONT class=f1
color=#444444>  <B>Auteur</B></FONT></TD>
<TD><FONT class=f1
color=#444444> : </FONT></TD>
<TD><FONT class=f1
color=#444444> <a href="mailto:<%=MessRS("mailauteur")%>"><%=MessRS("auteur")%></A></FONT></TD></TR>
<TR>
<TD><FONT class=f1
color=#444444>  <B>Nb.
affichage</B></FONT></TD>
<TD><FONT class=f1
color=#444444> : </FONT></TD>
<TD><FONT class=f1 color=#444444> <%=MessRS("affich")%>
fois</FONT></TD></TR></TBODY></TABLE></TD>
<TD width="20%">
</TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><A href="#reply"><img src="forum-reply.gif" alt="" width="80" height="25" border="0"></A>
<A href="forum.asp?act=nmsg"><img src="forum-nouv.gif" alt="" width="80" height="25" border="0"></A>
</TD>
<TD align=right>
<FONT face=Verdana color=#000000 size=2><B>
...</A>
</B></FONT>
</TD></TR></TBODY></TABLE>
<TABLE borderColor=#003399 cellSpacing=0 cellPadding=2 width="100%" align=center bgColor=#ffffff border=1>
<TBODY>
<TR>
<TD><FONT face=Verdana size=2>
<DIV align=justify><%=MessRS("contenu")%></DIV></FONT>
</TD>
</TR></TBODY></TABLE>
<FONT style="BACKGROUND: #003399" face=Verdana color=#ffffff size=2><B>Suivi du Message     </B></FONT><BR>
<%
'---- Fonction qui vérifie si IDOM message a des réponses ou non ----
function CheckForResponses(nivid,Index)
redim dataRec_CFR(Index)
set dataRec_CFR(Index)=CreateObject("ADODB.RecordSet")
dataRec_CFR(Index).Open "SELECT * FROM messageforum WHERE Niv_ID=" & nivid & " ORDER BY ID DESC",CONN
%>
<%
if not dataRec_CFR(Index).EOF then
WHILE not dataRec_CFR(Index).EOF
response.Write REPLACE(SPACE(dataRec_CFR(Index).Fields("Level"))," ","   ")
response.write "<A href=forum.asp?id=" & dataRec_CFR(Index).Fields("ID") & ">" & dataRec_CFR(Index).Fields("titre") & "</A> de " & dataRec_CFR(Index).Fields("auteur") & " le " & dataRec_CFR(Index).Fields("datef") & "<BR>" & vbcrlf
CheckForResponses dataRec_CFR(Index).Fields("ID"),Index+1
dataRec_CFR(Index).MoveNext
wend
end if
end function
%>
<%
'-----------------------
'Crée le recordset qui va balayer tous les messages a la recherche d'un message de niveau("level") 0
'>> C'est à dire un message de base. La fonction qui verifie lexistence de reponses est appelée.
'-----------------------
Dim dataRec_MSG
set dataRec_MSG = server.createObject("ADODB.RecordSet")
dataRec_MSG.CursorType = 1
dataRec_MSG.LockType = 3
dataRec_MSG.Open "SELECT * FROM messageforum WHERE pos=" & MessRS("pos") &" ORDER BY ID DESC",CONN
If not dataRec_MSG.BOF Then
dataRec_MSG.MoveLast
End If
%>
<%
Dim IDMsgB
response.Write "<font class=f1>"
WHILE not dataRec_MSG.BOF
IDMsgB=dataRec_MSG("ID")
if dataRec_MSG("Niv_ID")=0 then
response.Write "<A href=forum.asp?act=msg&id=" & IDMsgB & ">" & datarec_MSG("titre") & "</A> de " & dataRec_MSG("auteur") & " le " & dataRec_MSG("datef") & "<BR>" & vbcrlf
CheckForResponses IDMsgB,1
end if
dataRec_MSG.MovePrevious
wend
response.write "</FONT>"
%>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE><BR>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
<TBODY>
<TR>
<TD vAlign=top width=95%>
<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD
border=0>
<TBODY>
<TR>
<TD>
<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
<TBODY>
<TR>
<TD bgColor=#CBDDDD><img src="derniere.gif" alt="" width="16" height="12" border="0">
<SPAN class=Titre>Navigation dans le forum</SPAN></TD>
<TD align=right width="10"><A
href="javascript:ShowHide(piclastsources,lastsources);"><IMG height=9
src="minus.gif"
width=12 border=0 name=piclastsources></A></TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE>
<DIV id=lastsources style="DISPLAY: inline">
<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD
border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD><FONT class=f1>
<CENTER><B><A href="javascript:history.go(-1)">< Retour ></a>
</B></CENTER>
</FONT>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE><br>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
<TBODY>
<TR>
<TD vAlign=top width=95%>
<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD
border=0>
<TBODY>
<TR>
<TD>
<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
<TBODY>
<TR>
<TD bgColor=#CBDDDD><img src="_images/derniere.gif" alt="" width="16" height="12" border="0">
<SPAN class=Titre>Répondre à ce Message</SPAN></TD>
<TD align=right width="10"><A
href="javascript:ShowHide(picred,red);"><IMG height=9
src="minus.gif"
width=12 border=0 name=picred></A></TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE>
<DIV id=red style="DISPLAY: inline">
<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD
border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD><FONT class=f1>
<FONT face=Arial color=#003399 size=2><B>
<FORM name=NouveauMess action="forum.asp?act=rmsg" method=post>
<INPUT type=hidden name=nivid value="<%=MessRS("id")%>">
<INPUT type=hidden name=id value="<%=MessRS("id")%>">
<CENTER>Votre Pseudo : <BR><INPUT size=40 name=auteur>
<BR>Votre E-M@il : <BR><INPUT size=40 name=mailauteur><BR>
Le Sujet : <BR>
<INPUT size=50 value="Re : <%=MessRS("Titre")%>" name=Titre><BR>
La Réponse : <BR><TEXTAREA name=contenu rows=15 cols=60></TEXTAREA><BR><BR>
<INPUT TYPE="image" HEIGHT="26" ALT="Ajouter le message dans le forum" WIDTH="105" SRC="ajouter.gif" BORDER="0">
</CENTER></FORM>
</FONT>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE>
</HTML>
<%
ElseIf act="nmsg" Then
'Rédaction d'un nveau message si action=nmsg
%>
<HTML>
<HEAD>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
<TBODY>
<TR>
<TD vAlign=top width=95%>
<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD
border=0>
<TBODY>
<TR>
<TD>
<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
<TBODY>
<TR>
<TD bgColor=#CBDDDD><img src="derniere.gif" alt="" width="16" height="12" border="0">
<SPAN class=Titre>Rédaction d'un nouveau Message</SPAN></TD>
<TD align=right width="10"><A
href="javascript:ShowHide(piclastart,lastart);"><IMG height=9
src="minus.gif"
width=12 border=0 name=piclastart></A></TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE>
<DIV id=lastart style="DISPLAY: inline">
<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD
border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD>
<FONT class=f1 color=#003399><B>
<FORM name=NouveauMess2 onsubmit="return validate_form2()" action=forum.asp?act=amsg method=post>
<CENTER>Votre Pseudo : <BR><INPUT size=40 name=auteur>
<BR>Votre E-M@il : <BR><INPUT size=40 name=mailauteur><BR>
Le Sujet : <BR>
<INPUT size=50 value="" name=titre><BR>
Le Message : <BR><TEXTAREA name=contenu rows=15 cols=60></TEXTAREA>
<BR><BR><INPUT TYPE="image" HEIGHT="26" ALT="Ajouter le message dans le forum" WIDTH="105" SRC="ajouter.gif" BORDER="0">
</CENTER></FORM>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE><BR>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
<TBODY>
<TR>
<TD vAlign=top width=95%>
<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD
border=0>
<TBODY>
<TR>
<TD>
<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
<TBODY>
<TR>
<TD bgColor=#CBDDDD><img src="derniere.gif" alt="" width="16" height="12" border="0">
<SPAN class=Titre>Navigation dans le forum</SPAN></TD>
<TD align=right width="10"><A
href="javascript:ShowHide(picred,red);"><IMG height=9
src="minus.gif"
width=12 border=0 name=picred></A></TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE>
<DIV id=red style="DISPLAY: inline">
<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD
border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD><FONT class=f1>
<CENTER><B><A href="javascript:history.go(-1)">< Retour ></a>
</B></CENTER>
</FONT>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE>
</HTML>
<%
ElseIf act="rmsg" or act="amsg" Then
'Insertion d'un nveau message dans la base (nveau ou réponse)
'---- Crée le recordset qui va ajouter le nouvel enregistrement -----
Dim dataRec_AMSG
Set dataRec_AMSG=CreateObject("ADODB.Recordset")
dataRec_AMSG.CursorType = 1
dataRec_AMSG.LockType = 3
dataRec_AMSG.Open "messageforum", CONN, , , &H0002
dataRec_AMSG.AddNew
if Request.Form("nivid")<>"" then
'---- Crée le recordset pour vérifier l'exsitence de la news ----
Dim dataRec_VMSG
Set dataRec_VMSG=CreateObject("ADODB.RecordSet")
dataRec_VMSG.Open "SELECT * FROM messageforum WHERE ID=" & Request.Form("id"),CONN
if dataRec_VMSG.EOF then
response.Write "<SCRIPT language=JSCRIPT>"
response.Write "alert('La news que vous essayez de voir n\'existe pas ou plus!');"
response.Write "document.location.href='forum.asp';"
response.Write "</SCRIPT>"
end if
dataRec_AMSG("Niv_ID")=Request.Form("nivid")
dataRec_AMSG("level")=dataRec_VMSG("level")+1
else
dataRec_AMSG("Level")=0
end if
dataRec_AMSG("auteur")=Request.Form("auteur")
dataRec_AMSG("mailauteur")=Request.Form("mailauteur")
dataRec_AMSG("datef")=Date
dataRec_AMSG("titre")=request.Form("titre")
dataRec_AMSG("contenu")=request.Form("contenu")
dataRec_AMSG.UpDate
response.Redirect "forum.asp"
Else
%>
<HTML>
<HEAD>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
<TBODY>
<TR>
<TD vAlign=top width=95%>
<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD
border=0>
<TBODY>
<TR>
<TD>
<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
<TBODY>
<TR>
<TD bgColor=#CBDDDD><img src="derniere.gif" alt="" width="16" height="12" border="0">
<SPAN class=Titre>Rédaction d'un nouveau Message</SPAN></TD>
<TD align=right width="10"><A
href="javascript:ShowHide(piclastart,lastart);"><IMG height=9
src="minus.gif"
width=12 border=0 name=piclastart></A></TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE>
<DIV id=lastart style="DISPLAY: inline">
<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD
border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD>
<FONT class=f1 color=#003399>
<% '---- Fonction qui vérifie si IDOM message a des réponses ou non ----
function CheckForResponses(nivid,Index)
redim dataRec_CFR(Index)
set dataRec_CFR(Index)=CreateObject("ADODB.RecordSet")
dataRec_CFR(Index).Open "SELECT * FROM messageforum WHERE Niv_ID=" & nivid & " ORDER BY ID DESC",CONN
if not dataRec_CFR(Index).EOF then
WHILE not dataRec_CFR(Index).EOF
response.Write REPLACE(SPACE(dataRec_CFR(Index).Fields("Level"))," ","  ") & "<A href=forum.asp?id=" & dataRec_CFR(Index).Fields("ID") & ">" & dataRec_CFR(Index).Fields("titre") & "</A> de " & dataRec_CFR(Index).Fields("auteur") & "<BR>" & vbcrlf
CheckForResponses dataRec_CFR(Index).Fields("ID"),Index+1
dataRec_CFR(Index).MoveNext
wend
end if
end function
'-----------------------
'Crée le recordset qui va balayer tous les messages a la recherche d'un message de niveau("level") 0
'>> C'est à dire un message de base. La fonction qui verifie lexistence de reponses est appelée.
'-----------------------
set dataRec_MSG = server.createObject("ADODB.RecordSet")
dataRec_MSG.CursorType = 1
dataRec_MSG.LockType = 3
dataRec_MSG.Open "messageforum", CONN, , , &H0002
If not dataRec_MSG.BOF Then
dataRec_MSG.MoveLast
End If
WHILE not dataRec_MSG.BOF
IDMsgB=dataRec_MSG("ID")
if dataRec_MSG("Niv_ID")=0 then
response.Write "<img src='mes.gif' alt='' width=14 height=13 border=0> <A href=forum.asp?id=" & IDMsgB & ">" & datarec_MSG("titre") & "</A> de " & dataRec_MSG("auteur") & "<BR>" & vbcrlf
CheckForResponses IDMsgB,1
end if
dataRec_MSG.MovePrevious
wend%><BR>
<A href="forum.asp?act=nmsg"><img src="forum-nouv.gif" alt="" width="80" height="25" border="0"></A>
</FONT>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE><BR>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
<TBODY>
<TR>
<TD vAlign=top width=95%>
<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD
border=0>
<TBODY>
<TR>
<TD>
<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
<TBODY>
<TR>
<TD bgColor=#CBDDDD><img src="derniere.gif" alt="" width="16" height="12" border="0">
<SPAN class=Titre>Navigation dans le forum</SPAN></TD>
<TD align=right width="10"><A
href="javascript:ShowHide(picred,red);"><IMG height=9
src="_images/minus.gif"
width=12 border=0 name=picred></A></TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE>
<DIV id=red style="DISPLAY: inline">
<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD
border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD><FONT class=f1>
<CENTER><B><A href="javascript:history.go(-1)">< Retour ></a>
</B></CENTER>
</FONT>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE><br>
</HTML>
<%
End IF
%>
******************** fin fichier **************

*********inckude-inc.asp*************
<SCRIPT language=JavaScript src="design.js"></SCRIPT>
<%
'toujours sur une seule ligne
DSN_base="DRIVER={Microsoft Access Driver (*.mdb)};" &"DBQ=" & Server.MapPath(".") &"/forum.mdb"
Set CONN = Server.CreateObject("ADODB.Connection")
CONN.Open DSN_BASE
%>
<%
Function SQLStr(pvValue)
   Dim sTemp

   Select Case VarType(pvValue)
      Case 0, 1:
         SQLStr = "NULL"
      Case 2, 3, 4, 5, 6:
         sTemp = "" & pvValue
         sTemp = Replace(sTemp, "'", "''")
         SQLStr = "'" & sTemp & "'"
      Case 7: 'DateTime
         sTemp = FormatDateTime(pvValue)
         sTemp = Replace(sTemp, "'", "''")
         SQLStr = "'" & sTemp & "'"
      Case 8: 'String
         sTemp = pvValue
         sTemp = Replace(sTemp, "'", "''")
         If Len(Trim(sTemp)) > 0 Then
            SQLStr = "'" & sTemp & "'"
         Else
            SQLStr = "NULL"
         End If
      Case Else
         SQLStr = "NULL"
   End Select
End Function
%>
*fin fichier ***********************************
************** forum.asp *********************
<!--#include file="include-inc.asp"-->
<!--#include file="adovbs.inc"-->
<%
act=Request.QueryString("act")
id=Request.QueryString("id")
If id <> "" Then
'Lecture du message si action=read et si Id différent de ""
sql =""
sql = sql & "SELECT * FROM messageforum WHERE ID = " & request.querystring("id")
Set MessRS = Server.CreateObject("ADODB.Recordset")
MessRS.Open sql, CONN
%>
<%
CONN.Execute ("UPDATE messageforum SET affich = " & (MessRS.Fields("affich")+1) & " WHERE ID= " & request.querystring("id") )
%>
<HTML>
<HEAD>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
  <TBODY>
  <TR>
    <TD vAlign=top width=95%>
	<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
		<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
        <TBODY>
        <TR>
          <TD bgColor=#CBDDDD><img src="derniere.gif" alt="" width="16" height="12" border="0">
		  <SPAN class=Titre>Message : <%=MessRS("Titre")%></SPAN></TD>
                <TD align=right width="10"><A 
                  href="javascript:ShowHide(piclastart,lastart);"><IMG height=9 
                  src="minus.gif" 
                  width=12 border=0 name=piclastart></A></TD></TR></TBODY></TABLE>
				</TD></TR></TBODY></TABLE>
            <DIV id=lastart style="DISPLAY: inline">
            <TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
                  <TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
                    <TBODY>
                    <TR>
                      <TD>
					  <!--Le message ;o)-->
					<TABLE cellPadding=0 width="100%" border=0>
                    <TBODY>
                    <TR>
                      <TD width="80%">
                        <TABLE cellPadding=0 border=0>
                          <TBODY>
                          <TR>
                            <TD><FONT class=f1 
                              color=#444444>&nbsp;&nbsp;<B>Sujet</B></FONT></TD>
                            <TD><FONT class=f1 
                              color=#444444>&nbsp;:&nbsp;</FONT></TD>
                            <TD><FONT class=f1 color=#444444>&nbsp;<%=MessRS("Titre")%></FONT></TD></TR>
                          <TR>
                            <TD><FONT class=f1 
                              color=#444444>&nbsp;&nbsp;<B>Date</B></FONT></TD>
                            <TD><FONT class=f1 
                              color=#444444>&nbsp;:&nbsp;</FONT></TD>
                            <TD><FONT class=f1 color=#444444>&nbsp;<%=MessRS("datef")%></FONT></TD></TR>
                          <TR>
                            <TD><FONT class=f1 
                              color=#444444>&nbsp;&nbsp;<B>Auteur</B></FONT></TD>
                            <TD><FONT class=f1 
                              color=#444444>&nbsp;:&nbsp;</FONT></TD>
                            <TD><FONT class=f1 
                              color=#444444>&nbsp;<a href="mailto:<%=MessRS("mailauteur")%>"><%=MessRS("auteur")%></A></FONT></TD></TR>
                          <TR>
                            <TD><FONT class=f1 
                              color=#444444>&nbsp;&nbsp;<B>Nb. 
                              affichage</B></FONT></TD>
                            <TD><FONT class=f1 
                              color=#444444>&nbsp;:&nbsp;</FONT></TD>
                            <TD><FONT class=f1 color=#444444>&nbsp;<%=MessRS("affich")%>
                              fois</FONT></TD></TR></TBODY></TABLE></TD>
                      <TD width="20%">
                        </TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                    <TR>
                      <TD><A href="#reply"><img src="forum-reply.gif" alt="" width="80" height="25" border="0"></A>
						  <A href="forum.asp?act=nmsg"><img src="forum-nouv.gif" alt="" width="80" height="25" border="0"></A>
					  </TD>
                      <TD align=right>
					  <FONT face=Verdana color=#000000 size=2><B>
					   ...</A>
					  </B></FONT>
					  </TD></TR></TBODY></TABLE>
					  <TABLE borderColor=#003399 cellSpacing=0 cellPadding=2 width="100%" align=center bgColor=#ffffff border=1>
                    <TBODY>
                    <TR>
                      <TD><FONT face=Verdana size=2>
                        <DIV align=justify><%=MessRS("contenu")%></DIV></FONT>
					   </TD>
					</TR></TBODY></TABLE>
					<FONT style="BACKGROUND: #003399" face=Verdana color=#ffffff size=2><B>Suivi du Message &nbsp;&nbsp;&nbsp;&nbsp;</B></FONT><BR>
<%
	'---- Fonction qui vérifie si IDOM message a des réponses ou non ----
	function CheckForResponses(nivid,Index)
		redim dataRec_CFR(Index)
		set dataRec_CFR(Index)=CreateObject("ADODB.RecordSet")
		dataRec_CFR(Index).Open "SELECT * FROM messageforum WHERE Niv_ID=" & nivid & " ORDER BY ID DESC",CONN
%>
<%		
		if not dataRec_CFR(Index).EOF then
			WHILE not dataRec_CFR(Index).EOF 
				response.Write REPLACE(SPACE(dataRec_CFR(Index).Fields("Level"))," ","&nbsp;&nbsp;&nbsp;")
				response.write "<A href=forum.asp?id=" & dataRec_CFR(Index).Fields("ID") & ">" & dataRec_CFR(Index).Fields("titre") & "</A>&nbsp;de&nbsp;" & dataRec_CFR(Index).Fields("auteur") & "&nbsp;le&nbsp;" & dataRec_CFR(Index).Fields("datef") & "<BR>" & vbcrlf
				CheckForResponses dataRec_CFR(Index).Fields("ID"),Index+1
			dataRec_CFR(Index).MoveNext
			wend
		end if

	end function
	%>
<% 
	'-----------------------
	'Crée le recordset qui va balayer tous les messages a la recherche d'un message de niveau("level") 0 
	'>> C'est à dire un message de base. La fonction qui verifie lexistence de reponses est appelée.
	'-----------------------

	Dim dataRec_MSG
	set dataRec_MSG = server.createObject("ADODB.RecordSet")
	dataRec_MSG.CursorType = 1                                    
	dataRec_MSG.LockType = 3                                     
	dataRec_MSG.Open "SELECT * FROM messageforum WHERE pos=" & MessRS("pos") &" ORDER BY ID DESC",CONN
	If not dataRec_MSG.BOF Then
		dataRec_MSG.MoveLast
	End If
%>
<%
	Dim IDMsgB
	response.Write "<font class=f1>"
	WHILE not dataRec_MSG.BOF
		IDMsgB=dataRec_MSG("ID")
		if dataRec_MSG("Niv_ID")=0 then
			response.Write "<A href=forum.asp?act=msg&id=" & IDMsgB & ">" & datarec_MSG("titre") & "</A>&nbsp;de&nbsp;" & dataRec_MSG("auteur") & "&nbsp;le&nbsp;" & dataRec_MSG("datef") &  "<BR>" & vbcrlf
			CheckForResponses IDMsgB,1
		end if
	dataRec_MSG.MovePrevious
	wend
	response.write "</FONT>"
	%>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE><BR>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
  <TBODY>
  <TR>
    <TD vAlign=top width=95%>
	<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
		<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
        <TBODY>
        <TR>
          <TD bgColor=#CBDDDD><img src="derniere.gif" alt="" width="16" height="12" border="0">
		  <SPAN class=Titre>Navigation dans le forum</SPAN></TD>
                <TD align=right width="10"><A 
                  href="javascript:ShowHide(piclastsources,lastsources);"><IMG height=9 
                  src="minus.gif" 
                  width=12 border=0 name=piclastsources></A></TD></TR></TBODY></TABLE>
				</TD></TR></TBODY></TABLE>
            <DIV id=lastsources style="DISPLAY: inline">
            <TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
                  <TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
                    <TBODY>
                    <TR>
                      <TD><FONT class=f1>
					  <!--Navigation + recherche ;o)-->
					  <CENTER><B><A href="javascript:history.go(-1)">< Retour ></a> 
					  <!--<IMG SRC="_images/derniere.gif" BORDER=0 WIDTH=16 HEIGHT=12><a href="forum.asp">Liste des thèmes ></a>--></B></CENTER>
					  </FONT>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE><br>

<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
  <TBODY>
  <TR>
    <TD vAlign=top width=95%>
	<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
		<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
        <TBODY>
        <TR>
          <TD bgColor=#CBDDDD><img src="_images/derniere.gif" alt="" width="16" height="12" border="0">
		  <SPAN class=Titre>Répondre à ce Message</SPAN></TD>
                <TD align=right width="10"><A 
                  href="javascript:ShowHide(picred,red);"><IMG height=9 
                  src="minus.gif" 
                  width=12 border=0 name=picred></A></TD></TR></TBODY></TABLE>
				</TD></TR></TBODY></TABLE>
            <DIV id=red style="DISPLAY: inline">
            <TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
                  <TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
                    <TBODY>
                    <TR>
                      <TD><FONT class=f1>
					  <!--Formulaire de réponse ;o)-->
					  
                  <FONT face=Arial color=#003399 size=2><B>
                  <FORM name=NouveauMess action="forum.asp?act=rmsg" method=post>
<INPUT type=hidden name=nivid value="<%=MessRS("id")%>">
<INPUT type=hidden name=id value="<%=MessRS("id")%>">
				  <CENTER>Votre Pseudo : <BR><INPUT size=40 name=auteur>
				  <BR>Votre E-M@il : <BR><INPUT size=40 name=mailauteur><BR>
				  Le Sujet : <BR>
				  <INPUT size=50 value="Re : <%=MessRS("Titre")%>" name=Titre><BR>
				  La Réponse : <BR><TEXTAREA name=contenu rows=15 cols=60></TEXTAREA><BR><BR>
<INPUT TYPE="image" HEIGHT="26" ALT="Ajouter le message dans le forum" WIDTH="105" SRC="ajouter.gif" BORDER="0">
            </CENTER></FORM>
					  </FONT>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE>       
</HTML>
<%
ElseIf  act="nmsg" Then
'Rédaction d'un nveau message si action=nmsg
%>
<HTML>
<HEAD>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
  <TBODY>
  <TR>
    <TD vAlign=top width=95%>
	<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
		<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
        <TBODY>
        <TR>
          <TD bgColor=#CBDDDD><img src="derniere.gif" alt="" width="16" height="12" border="0">
		  <SPAN class=Titre>Rédaction d'un nouveau Message</SPAN></TD>
                <TD align=right width="10"><A 
                  href="javascript:ShowHide(piclastart,lastart);"><IMG height=9 
                  src="minus.gif" 
                  width=12 border=0 name=piclastart></A></TD></TR></TBODY></TABLE>
				</TD></TR></TBODY></TABLE>
            <DIV id=lastart style="DISPLAY: inline">
            <TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
                  <TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
                    <TBODY>
                    <TR>
                      <TD>
					  <!--Le message ;o)-->
				  <FONT class=f1 color=#003399><B>
				  <FORM name=NouveauMess2 onsubmit="return validate_form2()" action=forum.asp?act=amsg method=post>
				  <CENTER>Votre Pseudo : <BR><INPUT size=40 name=auteur>
				  <BR>Votre E-M@il : <BR><INPUT size=40 name=mailauteur><BR>
				  Le Sujet : <BR>
				  <INPUT size=50 value="" name=titre><BR>
				  Le Message : <BR><TEXTAREA name=contenu rows=15 cols=60></TEXTAREA>
				  <BR><BR><INPUT TYPE="image" HEIGHT="26" ALT="Ajouter le message dans le forum" WIDTH="105" SRC="ajouter.gif" BORDER="0">
            </CENTER></FORM>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE><BR>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
  <TBODY>
  <TR>
    <TD vAlign=top width=95%>
	<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
		<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
        <TBODY>
        <TR>
          <TD bgColor=#CBDDDD><img src="derniere.gif" alt="" width="16" height="12" border="0">
		  <SPAN class=Titre>Navigation dans le forum</SPAN></TD>
                <TD align=right width="10"><A 
                  href="javascript:ShowHide(picred,red);"><IMG height=9 
                  src="minus.gif" 
                  width=12 border=0 name=picred></A></TD></TR></TBODY></TABLE>
				</TD></TR></TBODY></TABLE>
            <DIV id=red style="DISPLAY: inline">
            <TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
                  <TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
                    <TBODY>
                    <TR>
                      <TD><FONT class=f1>
					  <!--Navigation + recherche ;o)-->
					  <CENTER><B><A href="javascript:history.go(-1)">< Retour ></a> 
					  <!--<IMG SRC="_images/derniere.gif" BORDER=0 WIDTH=16 HEIGHT=12><a href="forum.asp">Liste des thèmes ></a>--></B></CENTER>
					  </FONT>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE>
</HTML>
<%
ElseIf act="rmsg" or act="amsg" Then
'Insertion d'un nveau message dans la base (nveau ou réponse)
'---- Crée le recordset qui va ajouter le nouvel enregistrement -----
	Dim dataRec_AMSG
	Set dataRec_AMSG=CreateObject("ADODB.Recordset")
	dataRec_AMSG.CursorType = 1                                    
	dataRec_AMSG.LockType = 3  
	dataRec_AMSG.Open "messageforum", CONN, , , &H0002 

	dataRec_AMSG.AddNew

		if Request.Form("nivid")<>"" then			
			'---- Crée le recordset pour vérifier l'exsitence de la news ----
			Dim dataRec_VMSG
			Set dataRec_VMSG=CreateObject("ADODB.RecordSet")
			dataRec_VMSG.Open "SELECT * FROM messageforum WHERE ID=" & Request.Form("id"),CONN

			if dataRec_VMSG.EOF then
				response.Write "<SCRIPT language=JSCRIPT>"
				response.Write "alert('La news que vous essayez de voir n\'existe pas ou plus!');"
				response.Write "document.location.href='forum.asp';"
				response.Write "</SCRIPT>"

			end if
			dataRec_AMSG("Niv_ID")=Request.Form("nivid")
			dataRec_AMSG("level")=dataRec_VMSG("level")+1
		else
			dataRec_AMSG("Level")=0
		end if
		dataRec_AMSG("auteur")=Request.Form("auteur")
		dataRec_AMSG("mailauteur")=Request.Form("mailauteur")
		dataRec_AMSG("datef")=Date
		dataRec_AMSG("titre")=request.Form("titre")
		dataRec_AMSG("contenu")=request.Form("contenu")
	dataRec_AMSG.UpDate

response.Redirect "forum.asp"

Else
%>
<HTML>
<HEAD>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
  <TBODY>
  <TR>
    <TD vAlign=top width=95%>
	<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
		<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
        <TBODY>
        <TR>
          <TD bgColor=#CBDDDD><img src="derniere.gif" alt="" width="16" height="12" border="0">
		  <SPAN class=Titre>Rédaction d'un nouveau Message</SPAN></TD>
                <TD align=right width="10"><A 
                  href="javascript:ShowHide(piclastart,lastart);"><IMG height=9 
                  src="minus.gif" 
                  width=12 border=0 name=piclastart></A></TD></TR></TBODY></TABLE>
				</TD></TR></TBODY></TABLE>
            <DIV id=lastart style="DISPLAY: inline">
            <TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
                  <TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
                    <TBODY>
                    <TR>
                      <TD>
					  <!--Le message ;o)-->
				  <FONT class=f1 color=#003399>
				  
<%	'---- Fonction qui vérifie si IDOM message a des réponses ou non ----
	function CheckForResponses(nivid,Index)
		redim dataRec_CFR(Index)
		set dataRec_CFR(Index)=CreateObject("ADODB.RecordSet")
		dataRec_CFR(Index).Open "SELECT * FROM messageforum WHERE Niv_ID=" & nivid & " ORDER BY ID DESC",CONN

		
		if not dataRec_CFR(Index).EOF then
			WHILE not dataRec_CFR(Index).EOF 
				response.Write REPLACE(SPACE(dataRec_CFR(Index).Fields("Level"))," ","&nbsp;&nbsp;") & "<A href=forum.asp?id=" & dataRec_CFR(Index).Fields("ID") & ">" & dataRec_CFR(Index).Fields("titre") & "</A>&nbsp;de&nbsp;" & dataRec_CFR(Index).Fields("auteur") & "<BR>" & vbcrlf
				CheckForResponses dataRec_CFR(Index).Fields("ID"),Index+1
			
			dataRec_CFR(Index).MoveNext
			wend
		end if

	end function
	'-----------------------
	'Crée le recordset qui va balayer tous les messages a la recherche d'un message de niveau("level") 0 
	'>> C'est à dire un message de base. La fonction qui verifie lexistence de reponses est appelée.
	'-----------------------

	set dataRec_MSG = server.createObject("ADODB.RecordSet")
	dataRec_MSG.CursorType = 1                                    
	dataRec_MSG.LockType = 3                                     
	dataRec_MSG.Open "messageforum", CONN, , , &H0002               
	If not dataRec_MSG.BOF Then
		dataRec_MSG.MoveLast
	End If
	WHILE not dataRec_MSG.BOF
		IDMsgB=dataRec_MSG("ID")
		if dataRec_MSG("Niv_ID")=0 then
			response.Write "<img src='mes.gif' alt='' width=14 height=13 border=0> <A href=forum.asp?id=" & IDMsgB & ">" & datarec_MSG("titre") & "</A>&nbsp;de&nbsp;" & dataRec_MSG("auteur") &  "<BR>" & vbcrlf
			CheckForResponses IDMsgB,1
		end if
	dataRec_MSG.MovePrevious
	wend%><BR>
	      <A href="forum.asp?act=nmsg"><img src="forum-nouv.gif" alt="" width="80" height="25" border="0"></A>
				  </FONT>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE><BR>
<TABLE cellSpacing=0 cellPadding=0 border=0 width=100%>
  <TBODY>
  <TR>
    <TD vAlign=top width=95%>
	<TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
		<TABLE borderColor=#CBDDDD cellSpacing=0 cellPadding=2 width=100% border=0>
        <TBODY>
        <TR>
          <TD bgColor=#CBDDDD><img src="derniere.gif" alt="" width="16" height="12" border="0">
		  <SPAN class=Titre>Navigation dans le forum</SPAN></TD>
                <TD align=right width="10"><A 
                  href="javascript:ShowHide(picred,red);"><IMG height=9 
                  src="_images/minus.gif" 
                  width=12 border=0 name=picred></A></TD></TR></TBODY></TABLE>
				</TD></TR></TBODY></TABLE>
            <DIV id=red style="DISPLAY: inline">
            <TABLE cellSpacing=0 cellPadding=1 width=100% bgColor=#CBDDDD 
            border=0>
              <TBODY>
              <TR>
                <TD>
                  <TABLE cellSpacing=7 cellPadding=0 width=100% border=0>
                    <TBODY>
                    <TR>
                      <TD><FONT class=f1>
					  <!--Navigation + recherche ;o)-->
					  <CENTER><B><A href="javascript:history.go(-1)">< Retour ></a> 
					  <!--<IMG SRC="_images/derniere.gif" BORDER=0 WIDTH=16 HEIGHT=12><a href="forum.asp">Liste des thèmes ></a>--></B></CENTER>
					  </FONT>
</TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
</TD></TBODY></TABLE><br>
</HTML>
<%
End IF
%>
******************** fin fichier **************

Conclusion

Voilà c la première version, y a plein de bug mai e vai les corriger !! ;o)

-> OUlà ça s'affiche mal !!!! ;o( Fo ke j'otpimise l'affichage du code je crois !!! :o(

@tte er bonn' prog'
pi0up51

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

adovbs.inc7 419 octets
derniere.gif 143 octets
forum.asp 20 270 octets
forum.mdb550 912 octets
forum-nouv.gif 1 248 octets
forum-reply.gif 1 180 octets
include-inc.asp 1 057 octets
mes.gif 113 octets
minus.gif 843 octets
plus.gif 842 octets

Télécharger le zip

Sources du même auteur

AUTOMATISATION DES CONNECTION ET RECORDSET

NOMBRE DE CONNECTÉ (AVEC MEMBRES ;)

DERNIÈRE VISITE SUR LE SITE (COOKIE)

FONCTION DE FORMATAGE DE TEXTE

PETITES FONCTIONS POUR UTILISER LES DATES

Toutes les sources de pi0up51

Sources de la même categorie

GESTION DE QUIZ par ysfhor

UPLOAD FILES WITH A PROGRESSBAR ( ASPUPLOAD ) par chunait

GESTION PLANNING par Cpustack

ENVOI (SAUVEGARDE) D'UN FICHIER BINAIRE SUR UN SITE DISTANT ... par Chrigou

MINI MESSAGERIE par Simo_TSSI

Toutes les sources de la catégorie Application

Commentaires et avis

Commentaire de vbtom le 14/04/2002 21:48:32

Serieu tu te fout de mma gueule???
J'ai posté le mem source et en + ta pris le mem titre...
Nan mais c lol koi...

Commentaire de pi0up51 le 15/04/2002 08:54:11

Attends c pa la mêm sources !! ;o)
Moi ell est plus complète lol ;o)

Commentaire de pi0up51 le 15/04/2002 16:49:30

ça te va comm ça ?? lol ;o)

Commentaire de vbtom le 15/04/2002 16:52:16

mais moi je depende pas m$ pr mes pages asp(adovbs.inc) :)
huhuhu...
lol

Commentaire de softghost le 11/05/2006 19:26:21

c pas bien d'etre voleur

mais c trés bien de dévlopper .

Commentaire de ghuysmans99 le 20/08/2007 16:43:39

à ne SURTOUT pas utiliser sur un serveur de prod MSSQL.
pourquoi ? injection !

Ajouter un commentaire

Nos sponsors

Derniers Blogs

IMAGINE CUP 2012, MAKE A SIGN EN FINALE par junarnoalg

KINECT 1.5 IS OUT ! par Vko

LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) par richardc

REACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITER par Groc

SHAREPOINT BLOG SITE, PROBLèME D'ARCHIVES par junarnoalg

Forum

RE : GRIDVIEW CHECKBOX par jacksparoow

GESTION DE BIBLIOTHèQUE par tdiniss

GRIDVIEW CHECKBOX par invent001

OUTIL MYSQL par nobla

AFFICHAGE D'IMAGES OU ZONE COULEUR SUR UN PLAN par yok28

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Realisation d-une version 2 d-un site e-commerce existant sous prestashop-REPUBLICATION
Budget : 5 000€
Recherche Infogerance Serveur Debian Linux
Budget : 1 800€
Creation d-un site vitrine avec MagentO
Budget : 2 000€

Logiciels

sDEVIS-FACTURES vlPRO (8.1.0.3)
SDEVIS-FACTURES VLPRO (8.1.0.3)

sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa...

Cliquez pour télécharger sDEVIS-FACTURES vlPRO
974 Application Server (12.2.4.6)
974 APPLICATION SERVER (12.2.4.6)

Développez de puissantes applications dans un environnement de 'cloud computing', clusterisé, séc...

Cliquez pour télécharger 974 Application Server
vPicture (1.4.2.1)
VPICTURE (1.4.2.1)

Avec vPicture, hébergez vos images facilement et rapidement. vPicture est un utilitaire simple, ...

Cliquez pour télécharger vPicture
Easy-Planning (2.2.1.6)
EASY-PLANNING (2.2.1.6)

Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté au...

Cliquez pour télécharger Easy-Planning
COM-BACKUP (2.0)
COM-BACKUP (2.0)

COM-BACKUP est un logiciel de sauvegarde qui permet de planifier les sauvegardes de vos dossiers ...

Cliquez pour télécharger COM-BACKUP