%@ language="vbscript"%>
<%'option explicit
%>
<%
Dim rs
Dim rs1
Dim strsql
Dim strsql1
Set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
strsql="select missionname, products, markets from salesstudymission_master where missioncode = " & Request.QueryString("missioncode") & ""
strsql1="select convert(char(10),missiondate,103) missiondate from salesstudymission_schedule where missioncode = " & Request.QueryString("missioncode") & ""
on error resume next
rs.Open strsql,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
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
%>
Sales and Study Mission - <%=Application("Title")%>