Visual Basic

Dim ScriptString As String = "<script type='text/javascript'>function Go(){return}</script>"<br />
   ScriptString += "<script type='text/javascript' src='exmplmenu_var.asp ?Ordlkp=False'></script>"<br />
   ScriptString += "<script type='text/javascript' src='menu_com.js'></script>"

<%if request.QueryString("OrdLkp") then %><br />
	Menu1=new Array("Order LookUp","http://www.dynamicdrive.com","",4,20,138);<br />
	Menu1_1=new Array("Search By Order No","blank.htm","",0,20,138);	<br />
	Menu1_2=new Array("Search By Reference","http://www.cnn.com","",0,20,138);<br />
	Menu1_3=new Array("Search By Order Date","http://www.abcnews.com","",0);<br />
	Menu1_4=new Array("View Jobs on Query","http://www.msnbc.com","",0);<br />
                <br />
<%end if%>

' API declaration in myAPI.bas <br />
Public Declare Function SetCallbacks Lib "tfm.dll" ( _ <br />
    ByVal hConn As Long, ByVal pfnGuiCallback As Long, _ <br />
    ByVal pGuiCallbackCtx As Long,ByVal pfnGuiStateCallback AsLong,   <br />
    ByVal pGuiCallbackCtx As Long) As Long <br />

 <br />
Public Sub cmdCallback_click() <br />
Result = SetCallbacks(Connection, 0&, 0&, AddressOf STATE_CALLBACK, 0&) <br />
  ''Any Code here <br />
End Sub <br />

<br />
Function STATE_CALLBACK(ByVal pGuiCallbackCtx As Long, ByVal dwState As Long, ByRef pRes As Byte, ByVal Msg As Long, ByVal byProg As Byte, ByVal pSample As Long, ByVal pData As Long) As Long <br />

<br />
Result = SetCallbacks(Connection, 0, 0, AddressOf Callback.STATE_CALLBACK, 0) <br />

Dim strCnnStr As String = "provider=Microsoft.Jet.OLEDB.4.0; " & _<br />
                    "data source=" & dlgExcelFile.FileName & "; " & _<br />
                    "Extended Properties=Excel 8.0;HDR=No"<br />
            Dim myAdapter As New OleDb.OleDbDataAdapter("select * from [Sheet1$]", strCnnStr)<br />
            Dim myDS As New DataSet<br />
            myAdapter.Fill(myDS)