 |
Versão do banco de dados:
<%
'// Get file
Set objFile = objFSO.OpenTextFile(Session("dbPath"), 1)
'// Get contents of file
temp = objFile.ReadAll
'// Close and destroy file
objFile.Close
Set objFile = Nothing
'// Destroy fso object
Set objFSO = Nothing
If InStr(1, temp, "0") <> 0 _
And InStr(1, temp, "7") <> 0 _
And InStr(1, temp, ".") <> 0 _
And InStr(1, temp, "5") <> 0 _
And InStr(1, temp, "3") <> 0 _
Then
'// Access 97 (build 07.53)
Response.Write "Access 97"
ElseIf InStr(1, temp, "0") <> 0 _
And InStr(1, temp, "7") <> 0 _
And InStr(1, temp, ".") <> 0 _
And InStr(1, temp, "5") <> 0 _
Then
'// Access 2000 (build 07.5)
Response.Write "Access 2000"
Else
'// Unknown version
Response.Write "Versão não reconhecida"
End If
%>
|