Probleme d'enregistrement Base de Donées
robin
-
robin -
robin -
Bonjour,
J'ai fait un petit programme en ASP, et quand je le fais fonctionner en localhost tout fonctionne parfaitement ! Mais quand je publie mon programme sur Internet et que je le fais fonctionner (sur Internet) j'ai un problème d'enregistrement dans ma Base de Données !
Là où il doit normalement enregistré UNE fois, il enregistre DEUX fois.... je comprends pas ! :s
Voilà tout mon code : (enfaite, je génére un code unique qui va s'enregistrer dans ma Base de Donées)
<% Set Connec = Server.CreateObject("ADODB.Connection")
connstring="Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & Server.MapPath("ip.mdb") & ";" _
& "Persist Security Info=False"
Connec.Open connstring %>
<% code = REQUEST("code") %>
<HTML>
<HEAD>
</HEAD>
<% dat = int(year(now)) %>
<% moi = int(month(now)) %>
<% jou = int(day(now)) %>
<% hou = int(hour(now)) %>
<% min = int(minute(now)) %>
<% sec = int(second(now)) %>
<% IF code = "" THEN %>
<%
'---------- Generation d'un Numero aleatoire
Function GenereAlea()
Dim RefreshAlea 'Num Aleatoire
Dim RefreshNum
Randomize
RefreshAlea = Int((100 * Rnd) + 1)
RefreshNum = CStr(RefreshAlea)
GenereAlea = RefreshNum
End Function
'---------- Fin Fonction Generation d'un Numero aleatoire
%>
<% code = dat&moi&jou&hou&min&sec+GenereAlea %>
<% Set connec = Server.CreateObject("ADODB.Connection")
connstring="Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & Server.MapPath("ip.mdb") & ";" _
& "Persist Security Info=False"
connec.Open connstring
strSQLStatement = "INSERT INTO base" _
& "(code ) " _
& "SELECT '" & code & "' AS code;"
connec.Execute(strSQLStatement) %>
<% ELSE %>
<% END IF %>
<BODY>
<TABLE BORDER=1 WIDTH=800 HEIGHT=600 CELLPADDING=0 CELLSPACING=5 ALIGN="center">
<TR>
<TD ALIGN="center">
<A HREF="ip.asp?code=<% =code %>">
<FONT SIZE=2 COLOR="black" FACE="tahoma">
<B>Jouer avec un(e) ami(e)</B><BR>
</FONT>
</A>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
J'ai fait un petit programme en ASP, et quand je le fais fonctionner en localhost tout fonctionne parfaitement ! Mais quand je publie mon programme sur Internet et que je le fais fonctionner (sur Internet) j'ai un problème d'enregistrement dans ma Base de Données !
Là où il doit normalement enregistré UNE fois, il enregistre DEUX fois.... je comprends pas ! :s
Voilà tout mon code : (enfaite, je génére un code unique qui va s'enregistrer dans ma Base de Donées)
<% Set Connec = Server.CreateObject("ADODB.Connection")
connstring="Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & Server.MapPath("ip.mdb") & ";" _
& "Persist Security Info=False"
Connec.Open connstring %>
<% code = REQUEST("code") %>
<HTML>
<HEAD>
</HEAD>
<% dat = int(year(now)) %>
<% moi = int(month(now)) %>
<% jou = int(day(now)) %>
<% hou = int(hour(now)) %>
<% min = int(minute(now)) %>
<% sec = int(second(now)) %>
<% IF code = "" THEN %>
<%
'---------- Generation d'un Numero aleatoire
Function GenereAlea()
Dim RefreshAlea 'Num Aleatoire
Dim RefreshNum
Randomize
RefreshAlea = Int((100 * Rnd) + 1)
RefreshNum = CStr(RefreshAlea)
GenereAlea = RefreshNum
End Function
'---------- Fin Fonction Generation d'un Numero aleatoire
%>
<% code = dat&moi&jou&hou&min&sec+GenereAlea %>
<% Set connec = Server.CreateObject("ADODB.Connection")
connstring="Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & Server.MapPath("ip.mdb") & ";" _
& "Persist Security Info=False"
connec.Open connstring
strSQLStatement = "INSERT INTO base" _
& "(code ) " _
& "SELECT '" & code & "' AS code;"
connec.Execute(strSQLStatement) %>
<% ELSE %>
<% END IF %>
<BODY>
<TABLE BORDER=1 WIDTH=800 HEIGHT=600 CELLPADDING=0 CELLSPACING=5 ALIGN="center">
<TR>
<TD ALIGN="center">
<A HREF="ip.asp?code=<% =code %>">
<FONT SIZE=2 COLOR="black" FACE="tahoma">
<B>Jouer avec un(e) ami(e)</B><BR>
</FONT>
</A>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
A voir également:
- Probleme d'enregistrement Base de Donées
- Base de registre - Guide
- Formules mathématiques de base - Télécharger - Études & Formations
- Enregistrement mp3 gratuit - Télécharger - Streaming audio
- Erreur lors de l'enregistrement du contact - Forum Xiaomi
- Exemple base de données access à télécharger gratuit - Forum Access
