<%@ Language=VBScript %>
<%
' ******************CHECK SESSION VARIABLE, IF IT DOESN'T EXIST, GO BACK TO LOGIN *******
authenticated=Session("Authenticated")
if authenticated <>1 then Response.Redirect("bad_session.asp")
%>
<%
' **************************MAKE DATABASE CONNECTION **************************
set con = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={SQL SERVER}; SERVER=FTSWEB01; uid=sa; pwd=password; DATABASE=RCS;"
con.Open strCon
' ********************SET VARIABLES FROM THE PREVIOUS PAGE *************************
select1=UCASE(Request.Form("select1")) ' NOTICE FOR
releasedate=UCASE(Request.Form("releasedate"))
project=UCASE(Request.Form("projects"))
apps=UCASE(Request.Form("apps"))
version=UCASE(Request.Form("version"))
dev1name=UCASE(Request.Form("dev1name"))
dev1phone=UCASE(Request.Form("dev1phone"))
dev2name=UCASE(Request.Form("dev2name"))
dev2phone=UCASE(Request.Form("dev2phone"))
othercontactname=UCASE(Request.Form("othercontactname"))
othercontactphone=UCASE(Request.Form("othercontactphone"))
filelocation=UCASE(Request.Form("cmuds"))
emailnotes=UCASE(Request.Form("S1"))
appproject=UCASE(Request.Form("appproject"))
appapplication=UCASE(Request.Form("appapplication"))
appversion=UCASE(Request.Form("appversion"))
' ******************GET INFO FROM DB TO FILL PROJECT, APP, AND VERSION SELECT BOXES *****
dim rs_record
set rs_record=Server.CreateObject("ADODB.Recordset")
sqlstatement="select distinct project, application, version_num from rcs_general ORDER BY project"
rs_record.open sqlstatement, con
' *************** GET CHOICE FROM PREVIOUS PAGE AND LOAD IT IN THE TOP OF THE SELECT BOX***
Dim strProjects
Dim strApps
Dim strVersions
strProjects = ""
strApps = "['" & project & "','" & apps & "'],["
strVersions = ""
Do while not rs_record.EOF
strApps = strApps & "'" & trim(rs_record(0)) & "'," & "'" & trim(rs_record(1)) & "- Version " & rs_record(2) & "'],["
rs_record.moveNext
Loop
rs_record.close
' ***************************STRIP OF LAST COMMA OF ARRAY *************************
strApps = Left(strApps,Len(strApps) - 2)
' **********DETERMINE SPECIFIC RECORDSET IN THE RECORDSET **************************
dim rs_specificrecord
set rs_specificrecord=Server.CreateObject("ADODB.Recordset")
sqlstatement= "SELECT PROJECT, APPLICATION, VERSION_NUM, DEVELOPER_NAME1, DEVELOPER_PHONE1, FILE_LOCATION, GENERAL_NUM, EMAIL_NOTES, RELEASE_DATE, DEVELOPER_NAME2, DEVELOPER_PHONE2, OTHERCONTACT_NAME, OTHERCONTACT_PHONE "
sqlstatement = sqlstatement + " FROM RCS_GENERAL WHERE (PROJECT = '" & appproject & "' AND APPLICATION = '" & appapplication & "' AND VERSION_NUM = '" & appversion & "')"
rs_specificrecord.open sqlstatement, con
while not rs_specificrecord.eof
recordnumber=rs_specificrecord("general_num")
releasedate= rs_specificrecord("release_date")
dev1name= rs_specificrecord("developer_name1")
dev1phone= rs_specificrecord("developer_phone1")
dev2name= rs_specificrecord("developer_name2")
dev2phone= rs_specificrecord("developer_phone2")
othercontactname= rs_specificrecord("othercontact_name")
othercontactphone= rs_specificrecord("othercontact_phone")
filelocation= rs_specificrecord("file_location")
emailnotes= rs_specificrecord("email_notes")
rs_specificrecord.MoveNext
wend
' ************************SESSION VARIABLES FROM PREVIOUS PAGE ***********************
Session("recordnumber")= recordnumber
session("appproject")= Request.form("appproject")
session("appapplication")=Request.form("appapplication")
session("appversion")=Request.form("appversion")
%>
