<%
Dim ForumURL
Dim AbstractURL
Dim FullPaperURL
Dim PowerPointURL
Dim HotelURL
Dim FlightURL
Dim BusinessURL
CreateConn
sql = "SELECT customerid from customer_profile_cn WHERE customerid = " & myCustomerId
set rs = Conn.execute(sql)
if rs.eof then
ForumURL = "forumregistration.asp"
else
ForumURL = "forumregistration_edit.asp"
end if
sql = "SELECT customerid from customer_abstract_cn WHERE customerid = " & myCustomerId
set rs = Conn.execute(sql)
if rs.eof then
AbstractURL = "abstract.asp"
else
AbstractURL = "abstract_edit.asp"
end if
sql = "SELECT customerid from customer_fullpaper_cn WHERE customerid = " & myCustomerId
set rs = Conn.execute(sql)
if rs.eof then
FullPaperURL = "fullpaper.asp"
else
FullPaperURL = "fullpaper_edit.asp"
end if
sql = "SELECT customerid from customer_hotel WHERE customerid = " & myCustomerId
set rs = Conn.execute(sql)
if rs.eof then
HotelURL = "hotelbooking.asp"
else
HotelURL = "hotelbooking_edit.asp"
end if
sql = "SELECT customerid from customer_business WHERE customerid = " & myCustomerId
set rs = Conn.execute(sql)
if rs.eof then
BusinessURL = "businessmatching.asp"
else
BusinessURL = "businessmatching_edit.asp"
end if
sql = "SELECT customerid from customer_flight WHERE customerid = " & myCustomerId
set rs = Conn.execute(sql)
if rs.eof then
FlightURL = "flight.asp"
else
FlightURL = "flight_edit.asp"
end if
set rs = nothing
PowerPointURL = "upload_ppt.asp"
CloseConn
%>