%@ Language=VBScript%>
<%'option explicit
'Page/form name: salesstudymissions_detail.asp
'Purpose : Details of Sales Cum Study Missions
'Date Modified: 17/07/2001
'Author :Vikas Agarwal
%>
<%
Dim strsql1
Dim rs1
Dim strsql2
Dim rs2
Dim sqlbfcase
Dim rsbfcase
Dim var_sscode
var_sscode = trim(Request.QueryString("missioncode"))
'var_sscode = 1
strsql1 = "select MissionCode, MissionName, Products, " &_
"Markets, Country, Currency, ParticipationCharges, " &_
"convert(char(10),LastDate,103) LastDate, GeneralInformation, " &_
"Salutation, FirstName, LastName, Designation, Organization, "&_
"ContactAddress1 ContactAddress1, ContactAddress2, ContactAddress3, ContactTelephone, "&_
"ContactFax, ContactEmail, ContactWebsite "&_
"from salesstudymission_master where MissionCode = " & var_sscode & ""
strsql2 = "select convert(char(10),missiondate,103) missiondate " &_
"from salesstudymission_schedule " &_
"where missioncode = " & var_sscode & " " &_
"order by missiondate "
set rs1 = server.CreateObject("adodb.RecordSet")
set rs2 = Server.CreateObject("ADODB.RecordSet")
on error resume next
rs1.Open strsql1, objconn
if err.number <> 0 then
Response.Redirect "/inc/commoninc/error.asp?errorno=err.number"
Response.End
end if
on error goto 0
on error resume next
rs2.Open strsql2, objconn
if err.number <> 0 then
Response.Redirect "/inc/commoninc/error.asp?errorno=err.number"
Response.End
end if
on error goto 0
%>
Sales-Cum-Study Missions - <%=Application("Title")%>
<%
' Add Briefcase Code
set rsbfcase = server.CreateObject("ADODB.Recordset")
sqlbfcase = "select min(convert(char(10),missiondate,103)) missiondate from salesstudymission_schedule " &_
" where missioncode = " & var_sscode & " "
rsbfcase.Open sqlbfcase,objconn
Briefcase_SectionCode = 1
Briefcase_REFVALUE1 = rs1("missionname")
Briefcase_REFVALUE2 = rs1("Country")
Briefcase_REFVALUE3 = rsbfcase("missiondate")
%>
<%rs1.Close
rs2.Close
rsbfcase.Close
%>
<%
updatetable = "salesstudymission_master"
updatewhereclause = " missioncode = " & var_sscode & ""
%>