function DisplayFullPage(pagename) {
window.open(pagename,null,
"fullscreen=no,status=yes,toolbar=no,resizable=yes,menubar=no,location=no,top=0,left=0,width=screen.Width,height=screen.Height");
}









option explicit

Dim oProjects
Dim oModels

Dim ManufacturerName
Dim Projectname
Dim Projectcode
Dim ModelName
Dim Session
Dim elt
Dim version
Dim configurl
Dim eng
Dim handbook
Dim schemas
Dim FirstImage

' l'url du site DDT2000Data, retrouvée Ä… partir du fichier parameters.xml situé dans la racine du site courant
dim dUrl
' l'adresse de la page en cours
dim bbref
' l'adresse de base de la page en cours (sans le nom du fichier)
dim baseUrl


'-----------------------------------------------------BUTTON DIAG CLICK
Sub ButtonDiag_onclick
' msgbox Projectcode
MyDDTWriteToRegister "Diag","Scan","project",Projectcode
location.href="ddt2000bframe.htm"
' window.event.returnValue = false
' If len(configurl) = 0 Then Exit sub
' window.status = "Loading " & configurl
' diag.style.cursor = "wait"
' window.event.returnValue = LoadConfig
' diag.style.cursor = "default"
' location.href="ddt2000bframe.htm"
End sub

sub HideAll
DocDiv.style.display="none"
SelectDiv.style.display="none"
ScriptsDiv.style.display="none"

ExtraSelect.style.display="none"
ExtraBlack.style.display="none"
end sub

'-----------------------------------------------------BUTTON RESTART CLICK
sub ButtonRestart_onclick
' msgbox "restarting"
HideAll
SelectDiv.style.display=""
ExtraSelect.style.display=""
ManufacturerName=""
RenaultLogo.style.display=""
NissanLogo.style.display=""
RSMLogo.style.display=""
DisplayManufacturername.innertext="Select a Manufacturer"
DisplayProjectname.innertext="."
DisplayModelname.innertext="."
Picture.style.display="none"
do until ModelsList.options.length= 0
ModelsList.options.remove 0
loop
do until ProjectsList.options.length= 0
ProjectsList.options.remove 0
loop
End sub

'-----------------------------------------------------BUTTON EXIT CLICK
sub ButtonExit_onclick
close()
End sub

'-----------------------------------------------------BUTTON DOCUMENTATION CLICK
sub ButtonDoc_onclick
HideAll
DocDiv.style.display=""
ExtraBlack.style.display=""
End sub


'-----------------------------------------------------BUTTON PROJECTS CLICK
sub ButtonProjects_onclick
HideAll
SelectDiv.style.display=""
ExtraSelect.style.display=""
End sub

'-----------------------------------------------------BUTTON SCRIPTS CLICK
sub ButtonScripts_onclick
dim scriptFolder
dim elt

if Projectcode = "" then exit sub

scriptFolder = ""
set elt=oProjects.selectSingleNode("/projects/Manufacturer/project[@code='" & Projectcode & "']/scripts")
If Not elt is Nothing Then
' msgbox "found"
On Error Resume Next
scriptFolder = elt.text
Err.Clear
On Error Goto 0
End If

if scriptFolder = "" then
HideAll
document.all.ScriptsFrame.src = ddtDataPath_ProjectsUrl & "/defaultscripts.htm"
' msgbox document.all.ScriptsFrame.src
ScriptsDiv.style.display=""
ExtraBlack.style.display=""
else
HideAll
document.all.ScriptsFrame.src = ddtDataPath_ProjectsUrl & "/" & scriptFolder & "/default.htm"
' msgbox document.all.ScriptsFrame.src
ScriptsDiv.style.display=""
ExtraBlack.style.display=""
end if

End sub


'-----------------------------------------------------Projects List Click
Sub ProjectsList_Onclick
Dim I
Dim Project

Projectcode = ""

I = ProjectsList.selectedIndex
If I < 0 Then
ProjectsList.style.display=""
Exit Sub
else
project = ProjectsList.options(I).innertext
' msgbox project
set elt=oProjects.selectSingleNode("/projects/Manufacturer/project[@name='" & project & "']/@code")
If Not elt is Nothing Then
' msgbox "found"
On Error Resume Next
Projectcode = elt.nodevalue
Err.Clear
On Error Goto 0
End If
End If
projectname = ProjectsList.Options(I).text
' window.status = "Loading " & ProjectsList.value
' msgbox "model load" & ProjectsList.value
oModels.load ProjectsList.value

window.status = ""
DisplayProjectname.innertext=projectname
DisplayModelname.innertext="Select a model"
Picture.style.display="none"

End Sub

'-----------------------------------------------------Models List Click
Sub ModelsList_Onclick
Dim I
dim model
dim oElt
dim img
eng = ""
handbook = ""
schemas = ""
model = ""
Picture.style.display="none"
I = ModelsList.selectedIndex
If I < 0 Then
ModelsList.style.display=""
Exit Sub
else
model = ModelsList.options(I).innertext
configurl = ModelsList.value
set elt=oModels.selectSingleNode("/models/model[@name='" & model & "']")
If Not elt is Nothing Then
On Error Resume Next
eng = elt.selectSinglenode("Docs/Engineering").text
handbook = elt.selectSinglenode("Docs/Handbook").text
schemas = elt.selectSinglenode("Docs/Schemas").text
set oElt = elt.selectSinglenode("Picture")
if not oElt is nothing then
img = oElt.text
if img "" then
Picture.src = ddtDataPath_ProjectsUrl & "/" & img
Picture.style.display=""
end if
end if
Err.Clear
On Error Goto 0
End If
End If
modelname = ModelsList.Options(I).text
DisplayModelname.innertext=Modelname
End Sub


'-----------------------------------------------------Projects List Change
Sub oProjects_OnReadyStateChange
dim node
dim oOption

If oProjects.readyState 4 Then Exit Sub
If oProjects.parseerror.errorcode0 then
' msgbox oProjects.parseerror.reason & VBCRLF & oProjects.parseerror.line
exit sub
end if
set elt = Nothing


End Sub

'-----------------------------------------------------Models List Change
Sub oModels_OnReadyStateChange
dim node
dim oOption
' msgbox "model ready state " & oModels.readyState
If oModels.readyState 4 Then Exit Sub
If oModels.parseerror.errorcode0 then
msgbox oModels.parseerror.reason
exit sub
end if

If Len(projectname) = 0 Then Exit Sub
set elt = Nothing
do until ModelsList.options.length= 0
ModelsList.options.remove 0
loop
For Each Node In oModels.selectNodes("/models/model")
set oOption = document.createElement("OPTION")
ModelsList.options.add oOption
oOption.value = ddtDataPath_ProjectsUrl & "/" & Node.SelectSingleNode("url").text
oOption.innerText = Node.getAttribute("name")
' If Node.getAttribute("name") = version Then oOption.selected = True
Next
End Sub


'-----------------------------------------------RENAULT ICON CLICK
sub RenaultLogo_onclick
ManufacturerName="RENAULT"
NissanLogo.style.display="none"
RSMLogo.style.display="none"

DisplayManufacturername.innertext=ManufacturerName

StartManufacturer

ProjectsList.style.display=""
ModelsList.style.display=""
DisplayProjectname.innertext="Select a Project"
DisplayModelname.innertext="."
end sub

'-----------------------------------------------NISSAN ICON CLICK
sub NissanLogo_onclick
ManufacturerName="NISSAN"
RenaultLogo.style.display="none"
RSMLogo.style.display="none"
DisplayManufacturername.innertext=ManufacturerName
StartManufacturer
ProjectsList.style.display=""
ModelsList.style.display=""
DisplayProjectname.innertext="Select a Project"
DisplayModelname.innertext="."
end sub

'-----------------------------------------------RSM ICON CLICK
sub RSMLogo_onclick
ManufacturerName="RSM"
RenaultLogo.style.display="none"
NissanLogo.style.display="none"
DisplayManufacturername.innertext=ManufacturerName
StartManufacturer
ProjectsList.style.display=""
ModelsList.style.display=""
DisplayProjectname.innertext="Select a Project"
DisplayModelname.innertext="."
end sub



'-----------------------------------------------START MANUFACTURER
Sub StartManufacturer
Dim Node
Dim oOption

do until ProjectsList.options.length= 0
ProjectsList.options.remove 0
loop
' msgbox ManufacturerName
For Each Node In oProjects.selectNodes("/projects/Manufacturer[name/text()='" & ManufacturerName & "']/project")
set oOption = document.createElement("OPTION")
ProjectsList.options.add oOption
' msgbox Node.getattribute("name")
oOption.value = ddtDataPath_ProjectsUrl & "/" & Node.selectsingleNode("models/text()").nodevalue
oOption.innerText = Node.selectsingleNode("@name").nodevalue
oOption.innerText = Node.getattribute("name")
If Node.getattribute("name") = projectname Then oOption.selected = True
Next
'Picture.src= dUrl & "/" & oProjects.documentElement.selectsingleNode("Picture").text
'FirstImage=dUrl & "/" & oProjects.documentElement.selectsingleNode("Picture").text

'Picture.style.display="none"

'ProjectsList_OnClick

Set Session = DiagContext.Object.Object
Err.Clear
on error goto 0
If Session Is Nothing Then
Set Session=DiagSession.Object
Session.CommPort = Session.DefaultPort
If (Err0) Or (Len(Session.CommPort)=0) Then
Err.Clear
window.location.href = "CommPort.htm"
Exit Sub
End If
Set DiagContext.Object.Object = Session
ElseIf typename(Session) = "Object" Then
Set Session=DiagSession.Object
Set DiagContext.Object.Object = Session
Session.CommPort = Session.DefaultPort
If (Err0) Or (Len(Session.CommPort)=0) Then
Err.Clear
window.location.href = "CommPort.htm"
Exit Sub
End If
End If

projectname = "" & Session.document.documentelement.selectsinglenode("Vehicle").getattribute("name")
If Len(projectname) = 0 Then
version = ""
projectname=""
Else
version = "" & Session.document.documentelement.selectsinglenode("Vehicle").getattribute("configuration")
End If

end sub


'--------------------------------------------------------------------------------------------
'-------------------------------------------ON LOAD------------------------------------------
'--------------------------------------------------------------------------------------------

Sub Window_OnLoad()
dim oParam


set oProjects=createobject("MSXML2.DOMDocument")
oProjects.setproperty "SelectionLanguage","XPath"
oProjects.OnReadyStateChange=GetRef("oProjects_OnReadyStateChange")

set oModels=createobject("MSXML2.DOMDocument")
oModels.setproperty "SelectionLanguage","XPath"
oModels.OnReadyStateChange=GetRef("oModels_OnReadyStateChange")


Set Session = Nothing
On Error Resume Next

' lire le fichier parameters.xml du site DDT2000
ddtPath_InitSitePathAndLink

ddtDataPath_ReadInfoDDT2000Data

oProjects.load ddtDataPath_ProjectsUrl & "/" & ddtDataPath_ProjectsFile

' pas de projet selectionné
Projectcode = ""

DisplayManufacturername.innertext="Select a Car Maker"
DisplayProjectname.innertext="."
DisplayModelname.innertext="."
End Sub

//-->















































VEHICLES




 





 
 

 

 
 
 



 
 
 
 
 
 















 
 

Documentation

 
 
 



 


Engineering




Plant




After-Sales


 
 



 





Engineering
folder





 





Spare
Parts Handbook








Electronic
Charts





 
 



 
 
 
 
 
 










 





 
 











 
 


Product
Range




Models


 
 




 



















 
 




 
 
 
 
 
 





















 
 


 




 




 


 
 




 
 
 
 
 



 
 
 
 
 


 
 





RESTART





VEHICLES





SCRIPTS





DIAGNOSTIC





DOCUMENTATION





EXIT



 
 


 
 
 
 
 


 



 




© RENAULT 1996-2002 All rights reserved