% 'specify the provider Set objNet = CreateObject("WScript.NetWork") sObject = objNet.ComputerName set objFSO = CreateObject("Scripting.FileSystemObject") Select Case sObject Case "AUSMIS53" strDataSource = "Data Source=D:\webroots\HHSC\root\HCF\VDP\MDB\VDP_Pharmacies.mdb;" Case Else strDataSource = "Data Source=E:\Inetpub\wwwroot\HCF\VDP\MDB\VDP_Pharmacies.mdb;" End Select 'specify the provider strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;" strProvider = strProvider & strDatasource 'strProvider="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\") & "\mdb\VDP_Pharmacies.mdb;" 'create and open a connection set dbConn = Server.CreateObject("ADODB.Connection") dbConn.Open strProvider 'define the recordset strDate="SELECT * FROM Dated" 'create and open the recordset set rsDate=Server.CreateObject("ADODB.Recordset") rsDate.Open strDate, dbConn, , , adCmdText %>
Some documents linked to this webpage are in Adobe Acrobat (PDF) format. If you need the free Adobe Acrobat Reader, you can download it here. Access.adobe.com provides a set of free tools that may allow visually disabled users to read documents in Adobe PDF format. This page is maintained by the HHSC Medicaid/CHIP: Vendor Drug Program. Comments and suggestions may be addressed to: contact@hhsc.state.tx.us |
|
Home |
About HHSC |
Contact Us |
HHSC Council | HHSC Programs (Medicaid/CHIP) |
HHSC Projects |
|
|
© Health and Human Services Commission |
|
|
pages on this site conform to Cast/Bobby accessibility standards |
|