[#008d71]voici le script default.asp
<%@ LANGUAGE="VBSCRIPT" %>
<% Response.Expires = -1
Session("Principio" )=True
Dim str_fecini
Dim str_horini
Dim str_fecfin
Dim str_horfin
Dim correcto
Dim inicio
Dim fin
Dim str_noticia(6)
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Mi_Conexion = Server.CreateObject ("ADODB.Connection" )
Mi_Conexion.ConnectionTimeout = 0
Mi_Conexion.CommandTimeout = 0
Mi_Conexion.Open Session("MITSUBISHI_ConnectionString" ), Session("MITSUBISHI_RuntimeUserName" ), Session("MITSUBISHI_RuntimePassword" )
On Error Resume Next
linea1 = "Celui-ci est un Réseau interne propiété de <br> Toute utilisation, emploi ou modification par une personne non autorisée est strictement interdite.<br><br> Copyright © MMC Automóviles España,S.A"
linea2 = "Version: IMFV001R002M002"
linea3 = "Cet intranet a été créé par les Services informatique de et par <font color=red>ADP</font> Dealer Services España. "
linea4 = "Configurez la résolution à 1024x768 pour une visulisation optimale"
linea5 = "Au cours de la procédure dutilisation, vous saisissez un nom de compte et un mot de passe. Vous êtes seul responsable de la conservation du caractère confidentiel de votre compte et de votre mot de passe et de toutes actions qui pourront être faites sous votre compte et/ou avec votre mot de passe. "
linea6 = "Vous vous engagez à informer immédiatement de toute utilisation non autorisée de votre compte et/ou de votre mot de passe, ainsi qu’à vous assurer que vous vous déconnectez à l’issue de chaque session."
linea7 = " ne pourra être tenu responsable de toute perte ou dommage survenant en cas de manquement à ces obligations."
linea8 = "Vous devez utiliser Microsoft Internet Explorer 6.0 ou supérieur"
'Recuperar mensajes
Set Mi_RecordSet3 = Server.CreateObject("ADODB.Recordset" )
str_sql3 = "SELECT * FROM MGNOTICIA WHERE MGNOTICIA.ID <> 2 "
Mi_RecordSet3.Open str_sql3 , Mi_Conexion, adOpenKeyset, adLockOptimistic
If Err <> 0 Then
Err.Clear
Else
If Not Mi_RecordSet3.EOF Then
str_fechact = Mid(now(),1,10)
Mi_RecordSet3.MoveFirst
Do While Not Mi_RecordSet3.EOF
correcto = true
inicio = true
fin = true
str_noticia(Mi_RecordSet3("ID" )) = Mi_RecordSet3("NOTICIA" )
str_fecini = Mi_RecordSet3("FECINI" )
if Trim(str_fecini) = "" then str_fecini = "01/01/1900"
str_horini = Mi_RecordSet3("HORINI" )
if Trim(str_horini) = "" then str_horini = "00:00"
str_fecfin = Mi_RecordSet3("FECFIN" )
if Trim(str_fecfin) = "" then str_fecfin = "31/12/2050"
str_horfin = Mi_RecordSet3("HORFIN" )
if Trim(str_horfin) = "" then str_horfin = "23:59"
if cDate(str_fechact) >= cdate(str_fecini) and cdate(str_fechact) <= cDate(str_fecfin) then
if Cdate(str_fechact) = cDate(str_fecini) then
if Hour(now) >= hour(str_horini) then
if Hour(now) = hour(str_horini) then
if Minute(now) >= Minute(str_horini) then
inicio = true
else
inicio = false
end if
else
inicio = true
end if
else
inicio = false
end if
else
inicio = true
end if
if Cdate(str_fecact) = cDate(str_fecfin) then
if Hour(now) <= hour(str_horfin) then
if Hour(now) = hour(str_horfin) then
if Minute(now) <= Minute(str_horfin) then
fin = true
else
fin = false
end if
else
fin = true
end if
else
fin = false
end if
else
fin = true
end if
if inicio and fin then
correcto = true
else
correcto = false
end if
else
correcto = false
end if
if not correcto or TRIM(str_noticia(Mi_RecordSet3("ID" ))) = "" then str_noticia(Mi_RecordSet3("ID" )) = " <br> <br> "
Mi_RecordSet3.MoveNext
Loop
End if
end if
Mi_RecordSet3.Close
%>
<script language="javascript"><!--
function BubbaGump(B,BQ)
{
if (BQ==4){
B.style.color='black';
}
if (BQ==3){
B.style.color='green';
}
if (BQ==2){
B.style.color='red';
}
if (BQ==1){
B.style.color='blue';
}
if (BQ==0){
B.style.color='white';
}
}
--></script>
<html>
<head>
<meta name="Creado" content=" POR ADP Dealer Services España.">
<title>Accès à l'Application</title>
<link rel="stylesheet" type="text/css" media="screen" href="../style/estilos.css">
<script language="JavaScript" src="../js/overlib.js"></script>
</head>
<script LANGUAGE="VBScript"><!--
Sub window_onLoad()
Dim i_w
Dim i_h
i_w = window.screen.availWidth
i_h = window.screen.availHeight
call window.resizeTo(i_w, i_h)
call window.moveTo(0, 0)
call pantalla.USUARIO.focus()
End Sub
Function Redireccion(valor)
Dim abre
Select Case valor
Case 1
abre = "http://helpdesk.mitsubishi-motors.fr"
Case 2
abre = "http://intranet.mitsubishi-motors.fr"
Case 3
abre = "https://tads.mitsubishi-motors.fr"
Case 4
abre = "http://www.staci.com/WW70AWP/WW70AWP.EXE/CONNECT/Loginweb7?LNG=FR"
End Select
window.open(abre)
End Function
--></script>
<BODY background="images/fondo_new.gif">
<form action="inicio.asp" method="POST" name="pantalla">
<div id=overDiv style="position: absolute; z-index: 1; width: 20px; height: 22px"></div>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="left" width="5%"><img border="0" src="../images/logo.jpg" border="0"></td>
<td align="left" background="../images/bg_header.gif" valign="bottom" width="100%" colspan="2" >
<table cellpadding="0" cellspacing="0" border="0" >
<tr valign="top">
<td valign="top" width="40%"></td>
<td valign="top" align="left"><img src="../images/distributor.gif" border="0" height="40"></td>
</tr>
<tr><td> </td></tr>
<tr>
<td width="100%" colspan="3">
<input TYPE="button" NAME="cmdAtras" VALUE="Sortir" onclick="window.close()" class="boton_cab" title="Cliquer pour sortir" width="10%" onmouseover="javascript:activa(this,1);" onmouseout="javascript:activa(this,2);">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign="top">
<br>
<table class="login" width="90%" height="100%" align="center" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><font style="FONT-WEIGHT: bold;COLOR:white; CURSOR: default; FONT-FAMILY: Verdana"> Utilisateur</font></td>
</tr>
<tr>
<td><input type="password" size="5" maxlength="8" name="USUARIO" value="" class="lstprincipal_login"></td>
</tr>
<tr>
<td title="Code de Communications"><font style="FONT-WEIGHT: bold;COLOR:white; CURSOR: hand; FONT-FAMILY: Verdana">Password</font></td>
</tr>
<tR>
<td><input type="password" size="5" maxlength="5" name="COMUNICACIONES" value="" class="lstprincipal_login_cort"><input type="submit" name="cmdAceptar" value="OK" class="boton_login"></td>
</tr>
</table>
<br>
<table class="login" width="90%" height="100%" align="left" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<div align="center" onmouseover="this.style.cursor='hand';">
<font style="FONT-WEIGHT: bold;COLOR:white; CURSOR: default; FONT-FAMILY: Verdana">
<a onmouseout=nd(); onmouseover="overlib('<p align=right><div align=center><center><font class=OVERLIB><br><strong><%=linea1%> <br><br><%=linea2%><br><br><%=linea5%><br><br><%=linea6%><br><br><%=linea7%> <br><br><%=linea3%></strong></font></center><br><center><font class=OVERLIB size=2><strong><%=linea4%></strong><br><br><strong><%=linea8%></strong></font></center></div></p>', TEXTCOLOR ,'#000099', FGCOLOR ,'#FFFFDD')"><small><b>Copyright ®</b></small></a>
</font>
</div>
</td>
</tr>
</table>
<br>
<table class="login" width="90%" height="100%" align="center" border="0" cellpadding="0" cellspacing="0">
<tr>
<td title="Le site pour vos demandes informatiques" onclick="window.open('http://.fr');"><font size="4" style="FONT-WEIGHT: bold;COLOR:white; CURSOR: hand; FONT-FAMILY: Verdana"> HELPDESK</font></td>
</tr>
<tr>
<td><font style="FONT-WEIGHT: bold;COLOR:white; CURSOR: default; FONT-FAMILY: Verdana">0800 566 500</font></td>
</tr>
<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
<TR><TD title="helpdesk@mitsubsihi-motors.fr" onclick="javascript:document.location.href='mailto:;"><font style="FONT-WEIGHT: bold;COLOR:white; CURSOR: hand; FONT-FAMILY: Verdana">EMAIL<FONT></td></tr>
</table>
</td>
<td valign="top">
<table cellpading="0" cellspacing="0" border = "0" height="100%" >
<tr>
<table cellpading="0" cellspacing="0" border = "0" height="100%" >
<tr>
<td valign="top">
<table border="0" width="660" height="100%" class="PRESENTACION" align="center" >
<tr>
<td>
<TABLE class="formname" border="0">
<tr><td> </td></tr>
<tr>
<td class="formname_presen" style="cursor:default;" height="75" title="Divers">General:</td>
<td> </td>
<td class="mensaje_presen" valign="top"><%=str_noticia(1)%></td>
</tr>
<tr><td> </td></tr>
<tr>
<td class="formname_presen" style="cursor:default;" height="75" width="20%" title="Véhicules" >Véhicule:</td>
<td width="3%"> </td>
<td class="mensaje_presen" valign="top"><%=str_noticia(3)%></td>
</tr>
<tr><td> </td></tr>
<tr>
<td class="formname_presen" style="cursor:default;" height="75" title="Pieces">Pièces:</td>
<td> </td>
<td class="mensaje_presen" valign="top"><%=str_noticia(4)%></td>
</tr>
<tr><td> </td></tr>
<tr>
<td class="formname_presen" style="cursor:default;" height="75" title="Garanties">Garanties:</td>
<td> </td>
<td class="mensaje_presen" valign="top"><%=str_noticia(5)%></td>
</tr>
<tr><td> </td></tr>
<tr><td> </td></tr>
<tr><td> </td></tr>
<tr><td> </td></tr>
<tr><td> </td></tr>
<tr><td> </td></tr>
<tr><td> </td></tr>
</table>
</td>
</tr>
</table>
</td>
<td align="left" valign="top" background="../images/bg_content_small.jpg">
<table border="0" width="190" height="580">
<tr><td colspan="2" height="15"> </td></tr>
<tr >
<td class="none" height="15" colspan="2">
<div class="contentBlock_cortplus" >
<h1>
Portal Area Links To:
</h1>
</div>
</td>
</tr>
<tr>
<td valign="top">
<table>
<tr>
<td width="15"> </td>
<td class="formname_menu" onClick="Redireccion(1)" onMouseOver="BubbaGump(this,2)" onMouseOut="BubbaGump(this,4)" title="Le site pour vos demandes informatiques">Helpdesk MMF</td>
</tr>
<tr>
<td> </td>
<td class="formname_menu" onClick="Redireccion(2)" onMouseOver="BubbaGump(this,2)" onMouseOut="BubbaGump(this,4)" title="Accédez à l'Intranet">Intranet</td>
</tr>
<tr>
<td> </td>
<td class="formname_menu" onClick="Redireccion(3)" onMouseOver="BubbaGump(this,2)" onMouseOut="BubbaGump(this,4)" title="Accédez à MMF Test And Drive System pour gérer vos contacts et vos campagnes">TADS</td>
</tr>
<tr>
<td> </td>
<td class="formname_menu" onClick="Redireccion(4)" onMouseOver="BubbaGump(this,2)" onMouseOut="BubbaGump(this,4)" title="Accédez à Staci pour commander votre matériel publicitaire.">STACI</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</td>
</tr>
</table>
</FORM>
<script language="JavaScript">
function activa(obj,valor)
{
if (valor ==1)
{
if (obj.disabled == false)
{
obj.style.color = "black";
obj.style.backgroundColor = "#FFC040";
}
}
else if (valor == 2)
{
obj.style.color = "white";
obj.style.backgroundColor = "";
}
else
{
obj.style.color = "black";
obj.style.backgroundColor = "";
}
}
</script>
<% If Not IsEmpty(Request("Codigo" )) Then
If Request("Codigo" )=1 then
Session("G_CONTACCESO" )= Session("G_CONTACCESO" )+1
'If Session("G_CONTACCESO" ) >= 3 Then %>
<SCRIPT LANGUAGE="VBScript"><!--
' top.location.href = "Sin_Salida.htm"
--></SCRIPT>
<%' End If %>
<script LANGUAGE="VBScript"><!--
MsgBox "Accès refusé",,"¡¡ATTENTION!!"
--></script>
<% ElseIf Request("Codigo" )=2 then %>
<script LANGUAGE="VBScript"><!--
MsgBox "ARRÊT DE CONTRÔLE",,"¡¡ATTENTION!!"
--></script>
<% ElseIf Request("Codigo" )=3 then %>
<script LANGUAGE="VBScript"><!--
MsgBox "ACCÈS BLOQUÉ",,"¡¡ATTENTION!!"
--></script>
<% End If
End If %>
</body>
</html>
