<%@ LANGUAGE="VBScript" %>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
SQLStmt = "select to_char(sysdate,'MM/DD/YYYY HH24:MI:SS') ddate,global_name from global_name "
' response.write(SQLStmt & "
" )
Set RS = Connection.Execute(SQLStmt)
If Not RS.EOF Then
ddate=RS("ddate")
gn=RS("global_name")
End If
Connection.Close
%>
Test
Script Engine <%=ScriptEngine%> Version <%=ScriptEngineMajorVersion%>.<%=ScriptEngineMinorVersion%>
Build <%=ScriptEngineBuildVersion%>
This is from VBS:
<%
Response.write(ddate & "
")
Response.write(gn & "
")
serversoftware=request.servervariables("server_software")
response.write ("server software ")
response.write ( serversoftware & "
")
Response.Write ("Script Timeout = " & Server.ScriptTimeout & " seconds
")
Response.Write ("Session Timeout = " & Session.Timeout & " minutes " )
%>