<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Untitled Document
<%
DIM sMedia
sMedia = Request.QueryString("Media")
DIM sStatus
sStatus= Request.QueryString("Status")
DIM sMsg
sMsg= Request.QueryString("Msg")
dim eConn
dim oRSsearched
set eConn=Server.CreateObject("ADODB.connection")
set oRSsearched=Server.CreateObject("ADODB.recordset")
%>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("text/default_stage.txt"), 1)
default_state = f.ReadAll
default_state = default_state & "?Media=" & sMedia
if sMsg = 1 then
default_state = default_state & "&Msg=1"
end if
Response.Redirect( default_state )
%>