Isugest.com - Place of Opportunity, Designers, Actors, Models, Writers, Portfolios

<%@Language=vbscript%> <% '==================================================================================// ' ISugest.com ' Portfolio owner's Collection Model view portfolio ' Copyright 2006 ISugest.com ' Developed and Designed by DPITL '=================================================================================// 'On Error Resume Next Response.Buffer = true Response.Expires = -1 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") If Request.ServerVariables("REQUEST_METHOD")="POST" then strCatSer = Request("hidCat_Ser") strSQLR="SELECT TBLTRANS_PORTFO_MODEL.NICK_NAME, TBLTRANS_PORTFO_MODEL.MODEL_PRE, TBLTRANS_PORTFO_MODEL.COL_HAIR, " & _ "TBLTRANS_PORTFO_MODEL.EXPERIENCE, TBLTRANS_PORTFO_MODEL.HEIGHT, TBLTRANS_PORTFO_MODEL.HIP_SIZE, " & _ "TBLTRANS_PORTFO_MODEL.AGE, TBLTRANS_PORTFO_MODEL.WAIST_SIZE, TBLTRANS_PORTFO_MODEL.COL_EYE, " & _ "TBLTRANS_PORTFO_MODEL.CHEST_SIZE, TBLTRANS_PORTFO_MODEL.BODY_TYPE, TBLTRANS_PORTFO_MODEL.SPOR_HOBB,TBLTRANS_PORTFO_MODEL.ABOUT_YOU " & _ "FROM TBLMAS_PROTFO_OWNER INNER JOIN TBLMAS_PORTFO_USERS ON TBLMAS_PROTFO_OWNER.USER_ID = TBLMAS_PORTFO_USERS.USER_ID INNER JOIN " & _ "TBLTRANS_PORTFO_MODEL ON TBLMAS_PROTFO_OWNER.USER_CODE_OWN = TBLTRANS_PORTFO_MODEL.USER_CODE_OWN " & _ "WHERE (TBLTRANS_PORTFO_MODEL.CATEGO_SERI = '"&strCatSer&"')" objDatarecs.Open strSQLR, objDataconn If Not objDatarecs.EOF then %> Isugest.com - Place of Opportunity, Designers, Actors, Models, Writers, Portfolios

Home

Ad Board

Search Portfolios

Portfolio Owner Signup

Buyer Signup

What is ISugest

Comments

:: Model Portfolio Display ::

«	Back
»	Help

<%=Server.HTMLEncode(Trim(objDatarecs.Fields("NICK_NAME")) & "")%>
Modeling Category : <%=Server.HTMLEncode(Trim(objDatarecs.Fields("MODEL_PRE")) & "")%>	Hair : <%=Server.HTMLEncode(Trim(objDatarecs.Fields("COL_HAIR")) & "")%>
Experience : <%=Server.HTMLEncode(Trim(objDatarecs.Fields("EXPERIENCE")) & "")%>	Height : <%=Server.HTMLEncode(Trim(objDatarecs.Fields("HEIGHT")) & "")%>
Ethnicity : <%'=Server.HTMLEncode(Trim(objDatarecs.Fields("HEIGHT")) & "")%>	Hip Size : <%=Server.HTMLEncode(Trim(objDatarecs.Fields("HIP_SIZE")) & "")%>
Age : <%=Server.HTMLEncode(Trim(objDatarecs.Fields("AGE")) & "")%>	Waist Size : <%=Server.HTMLEncode(Trim(objDatarecs.Fields("WAIST_SIZE")) & "")%>
Eyes : <%=Server.HTMLEncode(Trim(objDatarecs.Fields("COL_EYE")) & "")%>	Chest Size : <%=Server.HTMLEncode(Trim(objDatarecs.Fields("CHEST_SIZE")) & "")%>
Body Type : <%=Server.HTMLEncode(Trim(objDatarecs.Fields("BODY_TYPE")) & "")%>	Contact : <%=Server.HTMLEncode(Trim(objDatarecs.Fields("NICK_NAME")) & "")%>
Sports or Hobbies : <%=Server.HTMLEncode(Trim(objDatarecs.Fields("SPOR_HOBB")) & "")%>
Brief Info About Myself : <%=Server.HTMLEncode(Trim(objDatarecs.Fields("ABOUT_YOU")) & "")%>

<% strSQLRa="SELECT ID FROM TBLTRANS_MODEL_IMAGES WHERE CATEGO_SERI='"&strCatSer&"'" objDatarecsa.Open strSQLRa,objDataconn If Not objDatarecsa.EOF then While Not objDatarecsa.EOF %> <% objDatarecsa.MoveNext Wend Else%> <%End if%>

','Preview',360,360);">

" width="122" height="121" border="0">

Privacy Statement | Site Map

<% End if Else Response.Redirect("../../") End if %>