Loading exe browsers. [Archive]

bobyyjavascript

12-20-2005, 10:34 AM

Is there possibly a smaller way of writing this code at all ?

<DOCTYPE HTML PUBLIC "-//W3C/DTD HTML 4.01 TRANSITIONAL//EN

"http://www.w3.org/TR/html4/loose.dtd">

<HTML>

<HEAD>

<TITLE>Servers</TITLE>

<img align="left"
alt="Open Taurus Server"
height="66"
id="test"
src="pic_taurus.gif"
style="cursor: pointer;"
title="Open Taurus Server"
width="60"
/> Taurus Server

<img
alt="Open Libra Server"
height="66"
id="test2"
src="pic_libra.gif"
style="cursor: pointer;"
title="Open Taurus Server"
width="60"
/> Libra Server

<img
alt="Open Virgo Server"
height="66"
id="test3"
src="pic_virgo.gif"
style="cursor: pointer;"
title="Open Taurus Server"
width="60"
/> Virgo Server

<img aligh=""
alt="Open Aries Server"
height="66"
id="test4"
src="pic_aries.gif"
style="cursor: pointer;"
title="Open Taurus Server"
width="60"
/> Aries Server

<img
alt="Open Scorpio Server"
height="66"
id="test5"
src="pic_scorpio.gif"
style="cursor: pointer;"
title="Open Taurus Server"
width="60"
/> Scorpio Server

</HEAD>

<BODY>

<script for="test" event="onclick" language="VBScript">
Dim objShell
Dim lngReturn

On Error Resume Next

Set objShell = CreateObject("WScript.Shell")

lngReturn = objShell.Run("F:\new\test\bob.cmd", 4, 1)

If Err.number <> 0 Then
MsgBox "ERROR: " & Err.Description & Err.Number
Else
MsgBox CheckInstallResult(lngReturn)
End If

Set objShell = Nothing
</script>

<script for="test2" event="onclick" language="VBScript">
Dim objShell
Dim lngReturn

On Error Resume Next

Set objShell = CreateObject("WScript.Shell")

lngReturn = objShell.Run("F:\new\test\bob2.cmd", 4, 1)

If Err.number <> 0 Then
MsgBox "ERROR: " & Err.Description & Err.Number
Else
MsgBox CheckInstallResult(lngReturn)
End If

Set objShell = Nothing
</script>

<script for="test3" event="onclick" language="VBScript">
Dim objShell
Dim lngReturn

On Error Resume Next

Set objShell = CreateObject("WScript.Shell")

lngReturn = objShell.Run("F:\new\test\bob3.cmd", 4, 1)

If Err.number <> 0 Then
MsgBox "ERROR: " & Err.Description & Err.Number
Else
MsgBox CheckInstallResult(lngReturn)
End If

Set objShell = Nothing
</script>

<script for="test4" event="onclick" language="VBScript">
Dim objShell
Dim lngReturn

On Error Resume Next

Set objShell = CreateObject("WScript.Shell")

lngReturn = objShell.Run("F:\new\test\bob4.cmd", 4, 1)

If Err.number <> 0 Then
MsgBox "ERROR: " & Err.Description & Err.Number
Else
MsgBox CheckInstallResult(lngReturn)
End If

Set objShell = Nothing
</script>

<script for="test5" event="onclick" language="VBScript">
Dim objShell
Dim lngReturn

On Error Resume Next

Set objShell = CreateObject("WScript.Shell")

lngReturn = objShell.Run("F:\new\test\bob5.cmd", 4, 1)

If Err.number <> 0 Then
MsgBox "ERROR: " & Err.Description & Err.Number
Else
MsgBox CheckInstallResult(lngReturn)
End If

Set objShell = Nothing
</script>

</BODY>

</HTML>

I have got to use the same script 5 times for each picture loading the servers is there possibly a smaller way of writing this code im new to java and cant seem to figure out some basic commands.