<%@Language=VBSCRIPT%>
<%
'==================================================================================//
' ISugest.com
' Portfolio owner's Collection page
' Copyright 2006 ISugest.com
' Developed and Designed by DPITL
'=================================================================================//
'On Error Resume Next
Response.Buffer = True
Response.Expires = -1
'== check User's session
If session("USER_ID") = "" and session("STATUS")="" then
Response.Redirect("../../user_login/")
End if
if session("USER_TY") ="B" then
Response.Redirect("../../user_login/")
End if
'== Data connection
Set objDataconn = Server.CreateObject("ADODB.connection")
objDataconn.Open Application("SERVICE_ConStr"),Application("SERVICE_RunUsr"),Application("SERVICE_PassWod")
Set objDatarecs = Server.CreateObject("ADODB.recordset")
Set objDatarecsa = Server.CreateObject("ADODB.recordset")
%>
Isugest.com - Place of Opportunity, Designers, Actors, Models, Writers, Portfolios
<%
'== Acting portfolio
strSQLRAct = "SELECT TBLTRANS_PORTFO_ACTING.CATEGO_SERI,TBLTRANS_PORTFO_ACTING.NICK_NAME AS NICK_NAME, TBLTRANS_PORTFO_ACTING.CRITERIA AS CRITERIA," & _
"TBLTRANS_PORTFO_ACTING.PID AS PID, TBLTRANS_PORTFO_ACTING.EXPIRENCE AS EXPIRENCE,"& _
"TBLTRANS_PORTFO_ACTING.COUNTER AS COUNTER, CONVERT(VARCHAR, TBLTRANS_PORTFO_ACTING.MOD_DATE, 111) AS MOD_DATE,TBLTRANS_PORTFO_ACTING.SPORT_ACT AS SPORT_ACT," & _
"CONVERT(VARCHAR, TBLTRANS_PORTFO_ACTING.CRT_DATE, 111) AS CRT_DATE,TBLTRANS_PORTFO_ACTING.STATUS FROM TBLMAS_PROTFO_OWNER INNER JOIN " & _
"TBLTRANS_PORTFO_ACTING ON TBLMAS_PROTFO_OWNER.USER_CODE_OWN = TBLTRANS_PORTFO_ACTING.USER_CODE_OWN " & _
"WHERE (TBLMAS_PROTFO_OWNER.USER_ID = '"&session("USER_ID")&"')"
objDatarecs.Open strSQLRAct,objDataconn
If Not objDatarecs.EOF then
%>
<%
End if
objDatarecs.Close
%>
<%
strSQLRDat= "SELECT TBLTRANS_PORTFO_DATING.CATEGO_SERI,TBLTRANS_PORTFO_DATING.NICK_NAME, TBLTRANS_PORTFO_DATING.PID, TBLTRANS_PORTFO_DATING.CATCH_LINE, " & _
"TBLTRANS_PORTFO_DATING.AGE, TBLTRANS_PORTFO_DATING.BODY_TYPE, TBLTRANS_PORTFO_DATING.ETHNICITY, CONVERT(VARCHAR, " & _
"TBLTRANS_PORTFO_DATING.CRT_DATE_OWN, 111) AS CRT_DATE_OWN,TBLTRANS_PORTFO_DATING.COUNTER AS COUNTER, CONVERT(VARCHAR, TBLTRANS_PORTFO_DATING.MOD_DATE_OWN, 111) " & _
"AS MOD_DATE_OWN, TBLMAS_PORTFO_USERS.COUNTRY,TBLMAS_PORTFO_USERS.CITY,TBLTRANS_PORTFO_DATING.STATUS FROM TBLTRANS_PORTFO_DATING INNER JOIN " & _
"TBLMAS_PROTFO_OWNER ON TBLTRANS_PORTFO_DATING.USER_CODE_OWN = TBLMAS_PROTFO_OWNER.USER_CODE_OWN INNER JOIN "& _
"TBLMAS_PORTFO_USERS ON TBLMAS_PROTFO_OWNER.USER_ID = TBLMAS_PORTFO_USERS.USER_ID "& _
"WHERE TBLMAS_PROTFO_OWNER.USER_ID='"&session("USER_ID")&"'"
objDatarecs.Open strSQLRDat,objDataconn
If Not objDatarecs.EOF then
%>
">
<%
End if
objDatarecs.Close
'=====================================================================================================
'== Designing
strSQLRDesi = "SELECT TBLTRANS_PORTFO_DESINER.CATEGO_SERI,TBLTRANS_PORTFO_DESINER.NICK_NAME AS NICK_NAME, TBLTRANS_PORTFO_DESINER.PID AS PID, " & _
"TBLTRANS_PORTFO_DESINER.EXPERIENCE AS EXPERIENCE, TBLTRANS_PORTFO_DESINER.DESIG_TOOLS AS DESIG_TOOLS, " & _
"TBLTRANS_PORTFO_DESINER.COUNTER AS COUNTER, CONVERT(VARCHAR, TBLTRANS_PORTFO_DESINER.CRT_DATE_OWN, 111) " &_
"AS CRT_DATE_OWN, CONVERT(VARCHAR, TBLTRANS_PORTFO_DESINER.MOD_DATE_OWN, 111) AS MOD_DATE_OWN " & _
"FROM TBLMAS_PROTFO_OWNER INNER JOIN TBLTRANS_PORTFO_DESINER ON TBLMAS_PROTFO_OWNER.USER_CODE_OWN = " & _
"TBLTRANS_PORTFO_DESINER.USER_CODE_OWN WHERE TBLMAS_PROTFO_OWNER.USER_ID='"&session("USER_ID")&"'"
objDatarecs.Open strSQLRDesi,objDataconn
If Not objDatarecs.EOF then
%>
<%
End if
objDatarecs.Close
'==================================================================================================
'== Idea Portfolio
strSQLRidea = "SELECT TBLTRANS_PORTFO_IDEA.CATEGO_SERI,TBLTRANS_PORTFO_IDEA.PID AS PID, TBLTRANS_PORTFO_IDEA.NICK_NAME AS NICK_NAME, " & _
"TBLTRANS_PORTFO_IDEA.PROFESION AS PROFESION, TBLTRANS_PORTFO_IDEA.TITLE AS TITLE, " & _
"TBLTRANS_PORTFO_IDEA.IDEA_CATEGO AS IDEA_CATEGO,TBLTRANS_PORTFO_IDEA.COUNTER AS COUNTER, " & _
"CONVERT(VARCHAR,TBLTRANS_PORTFO_IDEA.CRT_DATE_OWN,111) AS CRT_DATE_OWN, CONVERT(VARCHAR,TBLTRANS_PORTFO_IDEA.MOD_DATE_OWN,111) AS MOD_DATE_OWN" & _
" FROM TBLTRANS_PORTFO_IDEA INNER JOIN " & _
"TBLMAS_PROTFO_OWNER ON TBLTRANS_PORTFO_IDEA.USER_CODE_OWN = TBLMAS_PROTFO_OWNER.USER_CODE_OWN " &_
"WHERE (TBLMAS_PROTFO_OWNER.USER_ID = '"&session("USER_ID")&"')"
objDatarecs.Open strSQLRidea,objDataconn
If Not objDatarecs.EOF then %>
<%
End if
objDatarecs.Close
'=======================================================================================================
'== Marriage Portfio
strSQLRMarr = "SELECT TBLTRANS_PORTFO_MARRIAGE.CATEGO_SERI, TBLTRANS_PORTFO_MARRIAGE.PID, TBLTRANS_PORTFO_MARRIAGE.NICK_NAME, " & _
"TBLTRANS_PORTFO_MARRIAGE.CATCH_PRAS, TBLTRANS_PORTFO_MARRIAGE.ETHNICITY, TBLTRANS_PORTFO_MARRIAGE.AGE, " & _
"TBLTRANS_PORTFO_MARRIAGE.BODY_TYPE, TBLTRANS_PORTFO_MARRIAGE.COUNTER, CONVERT(VARCHAR, " & _
"TBLTRANS_PORTFO_MARRIAGE.CRT_DATE_OWN, 111) AS CRT_DATE_OWN, CONVERT(VARCHAR, " & _
"TBLTRANS_PORTFO_MARRIAGE.MOD_DATE_OWN, 111) AS MOD_DATE_OWN, TBLMAS_PORTFO_USERS.CITY, " & _
"TBLMAS_PORTFO_USERS.COUNTRY FROM TBLMAS_PROTFO_OWNER INNER JOIN " & _
"TBLTRANS_PORTFO_MARRIAGE ON TBLMAS_PROTFO_OWNER.USER_CODE_OWN = TBLTRANS_PORTFO_MARRIAGE.USER_CODE_OWN INNER JOIN " & _
"TBLMAS_PORTFO_USERS ON TBLMAS_PROTFO_OWNER.USER_ID = TBLMAS_PORTFO_USERS.USER_ID " & _
"WHERE (TBLMAS_PROTFO_OWNER.USER_ID = '"& session("USER_ID")&"')"
objDatarecs.Open strSQLRMarr,objDataconn
If Not objDatarecs.EOF then
%>
<%End if
objDatarecs.Close
'=======================================================================================================
'== Modelling
strSQLRMod= "SELECT TBLTRANS_PORTFO_MODEL.CATEGO_SERI,TBLTRANS_PORTFO_MODEL.PID, TBLTRANS_PORTFO_MODEL.NICK_NAME, TBLTRANS_PORTFO_MODEL.EXPERIENCE, " & _
"TBLTRANS_PORTFO_MODEL.MODEL_PRE, TBLTRANS_PORTFO_MODEL.AGE, TBLTRANS_PORTFO_MODEL.HEIGHT, " & _
"TBLTRANS_PORTFO_MODEL.BODY_TYPE, TBLTRANS_PORTFO_MODEL.COUNTER, CONVERT(VARCHAR, " & _
"TBLTRANS_PORTFO_MODEL.CRT_DATE_OWN, 111) AS CRT_DATE_OWN, CONVERT(VARCHAR, TBLTRANS_PORTFO_MODEL.MOD_DATE_OWN,111) AS MOD_DATE_OWN " & _
"FROM TBLMAS_PROTFO_OWNER INNER JOIN TBLTRANS_PORTFO_MODEL ON TBLMAS_PROTFO_OWNER.USER_CODE_OWN = TBLTRANS_PORTFO_MODEL.USER_CODE_OWN "& _
"WHERE (TBLMAS_PROTFO_OWNER.USER_ID = '"& session("USER_ID") &"')"
objDatarecs.Open strSQLRMod,objDataconn
If Not objDatarecs.EOF then
%>
<%End if
objDatarecs.Close
'=========================================================================================================================
'== Suggestion
strSQLRSug = "SELECT TBLTRANS_PORTFO_SUGGESTION.CATEGO_SERI,TBLTRANS_PORTFO_SUGGESTION.NICK_NAME, TBLTRANS_PORTFO_SUGGESTION.PID, TBLTRANS_PORTFO_SUGGESTION.PROFESSION, " & _
"TBLTRANS_PORTFO_SUGGESTION.TITLE, TBLTRANS_PORTFO_SUGGESTION.SUGGES_CATGO, TBLTRANS_PORTFO_SUGGESTION.COUNTER, " & _
"CONVERT(VARCHAR, TBLTRANS_PORTFO_SUGGESTION.CRT_DATE_OWN, 111) AS CRT_DATE_OWN, CONVERT(VARCHAR,TBLTRANS_PORTFO_SUGGESTION.MOD_DATE_OWN, 111) AS MOD_DATE_OWN " & _
"FROM TBLMAS_PROTFO_OWNER INNER JOIN TBLTRANS_PORTFO_SUGGESTION ON TBLMAS_PROTFO_OWNER.USER_CODE_OWN = TBLTRANS_PORTFO_SUGGESTION.USER_CODE_OWN " & _
"WHERE (TBLMAS_PROTFO_OWNER.USER_ID = '"& session("USER_ID") &"')"
objDatarecs.Open strSQLRSug,objDataconn
If Not objDatarecs.EOF then
%>
<%End if
objDatarecs.Close
'========================================================================================================================
'== Writing
strSQLRWri="SELECT TBLTRANS_PORTFO_WRITER.CATEGO_SERI,TBLTRANS_PORTFO_WRITER.NICK_NAME, TBLTRANS_PORTFO_WRITER.PID,TBLTRANS_PORTFO_WRITER.EXPERIENCE, " & _
"TBLTRANS_PORTFO_WRITER.WRITING_STY, TBLTRANS_PORTFO_WRITER.ABOUT_YOU, TBLTRANS_PORTFO_WRITER.COUNTER, " & _
"CONVERT(VARCHAR, TBLTRANS_PORTFO_WRITER.CRT_DATE_OWN, 111) AS CRT_DATE_OWN, CONVERT(VARCHAR, " & _
"TBLTRANS_PORTFO_WRITER.MOD_DATE_OWN, 111) AS MOD_DATE_OWN, TBLTRANS_PORTFO_WRITER.CATEGO_SERI " & _
"FROM TBLMAS_PROTFO_OWNER INNER JOIN TBLTRANS_PORTFO_WRITER ON TBLMAS_PROTFO_OWNER.USER_CODE_OWN = " & _
"TBLTRANS_PORTFO_WRITER.USER_CODE_OWN WHERE (TBLMAS_PROTFO_OWNER.USER_ID = '"& session("USER_ID")&"')"
objDatarecs.Open strSQLRWri,objDataconn
If Not objDatarecs.EOF then
%>
