% Response.buffer=true Response.clear Response.ExpiresAbsolute=#Jan 1,1980 12:00:00# Response.expires=0 strConnectPath="." strConnectPath=server.MapPath(strConnectPath) & "\admin\data\wz.mdb" Application("appConnectionStringForWz114")="driver={Microsoft Access Driver (*.mdb)};dbq=" & strConnectPath Dim oConn Set oConn= Server.CreateObject("ADODB.Connection") oConn.Open Application("appConnectionStringForWz114") %>