%
response.buffer=true
Session.Timeout = 720
'declaring variables
dim conn,conn2,conn3,rs2,rs3,sql2,sql3,rs,sql,a,b
response.buffer=true
sub connection()
Set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("db/soundselec.mdb")
conn.Open DSNtemp
end sub
sub close()
rs.close
set rs=nothing
conn.close
set conn=nothing
end sub
sub session_out(url1)
if (session.contents("username") = "") Then
session.contents("url1") = url1
response.write ("
")
End If
end sub
%>
<%
url1 = Request.ServerVariables("SCRIPT_NAME")
session_out(url1)
%>
SoundSelec-Sound-conditioning made easy