<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META name=VI60_defaultClientScript content=VBScript> <META http-equiv=Content-Type content="text/html; charset=unicode"> <META content="MSHTML 6.00.2600.0" name=GENERATOR><SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript> <!-- Function form1_onsubmit Set WshShell = CreateObject("WScript.Shell") WshShell.Run("YourVFPProgramHere.exe") form1_onsubmit = false End Function --> </SCRIPT> </HEAD> <BODY> <FORM name=form1> <INPUT id=submit1 type=submit value="Run program" name=submit1> </FORM> </BODY></HTML>>
><script language=vbscript> >function LaunchSQL( cServer, cDatabase ) >Set oShell = CreateObject( "wscript.shell" ) >oShell.Run "isqlw.exe -S " & cServer & " -d " & cDatabase, 1 >end function ></script> > ><a href='vbscript:LaunchSQL( "{servname}", "{dbname}" )'><img src="isqlw50.gif" border="0" /></a> >