<%@Language=VBscript%>
<%
'==================================================================================//
' ISugest.com
' Portfolio owner's Collection Acting 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 NICK_NAME,EXPIRENCE,AGE,RELOCATE,ETHNITY,COL_EYE, COL_HAIR, HEIGHT, HIP_SIZE, WAIST_SIZE, CHEST_SIZE, CRITERIA, SPORT_ACT, ABOUT_YOU," & _
"CONVERT(VARCHAR,CRT_DATE,111) AS CRT_DATE,CONVERT(VARCHAR,MOD_DATE,111) AS MOD_DATE FROM TBLTRANS_PORTFO_ACTING WHERE (CATEGO_SERI = '"& strCatSer &"')"
objDatarecs.Open strSQLR,objDataconn
If Not objDatarecs.EOF then
%>
Isugest.com - Place of Opportunity, Designers, Actors, Models, Writers, Portfolios
Hip Size :
<%
If Trim(objDatarecs.Fields("HIP_SIZE")) <> "" then
Response.Write Server.HTMLEncode(Trim(objDatarecs.Fields("HIP_SIZE")) & "")
Else
Response.Write "-"
End if
%>
Waist Size
:<%
If Trim(objDatarecs.Fields("WAIST_SIZE")) <> "" then
Response.Write Server.HTMLEncode(Trim(objDatarecs.Fields("WAIST_SIZE")) & "")
Else
Response.Write "-"
End if
%>
Chest Size :
<%
If Trim(objDatarecs.Fields("CHEST_SIZE")) <> "" then
Response.Write Server.HTMLEncode(Trim(objDatarecs.Fields("CHEST_SIZE")) & "")
Else
Response.Write "-"
End if
%>
Few More Words :
<%=Server.HTMLEncode(Trim(objDatarecs.Fields("ABOUT_YOU")) & "")%>
Last Updated :
<%
If objDatarecs.Fields("MOD_DATE") <> "" then
Response.Write Server.HTMLEncode(Trim(objDatarecs.Fields("MOD_DATE"))& "")
Else
Response.Write Server.HTMLEncode(Trim(objDatarecs.Fields("CRT_DATE"))& "")
End if
%>
<%
'== get image preview
strSQLRa ="SELECT ID FROM TBLTRANS_ACTING_IMAGES WHERE CATEGO_SERI ='"&strCatSer&"'"
objDatarecsa.Open strSQLRa,objDataconn
If Not objDatarecsa.EOF then
While Not objDatarecsa.EOF
%>
