<%@ LANGUAGE = "VBScript" %>
<% Option Explicit %>
<% Response.Buffer = True %>
<% Response.Expires = 1 %>
<% Response.CacheControl = "Public" %>
<%
'****************************************************************************************
'** Copyright Notice
'**
'** iPortalX.com
'**
'** Copyright 2001-2003 Drew Gauderman All Rights Reserved.
'**
'** This program is a paid software; you can modify (at your own risk) any part of it
'** under the terms of the License that accompanies this software and use it both
'** privately and commercially.
'**
'** All copyright notices must remain in tacked in the scripts and the
'** outputted HTML.
'**
'** You may NOT use parts of this program in your own private work, and you may NOT
'** redistribute, repackage, or sell the whole or any part of this program even
'** if it is modified or reverse engineered in whole or in part without express
'** permission from the author.
'**
'** You may not pass the whole or any part of this application off as your own work.
'**
'** All links to iPortalX.com and powered by logo's (if any) must remain unchanged and in place
'** and must remain visible when the pages are viewed unless permission is first granted
'** by the copyright holder.
'**
'** This program is distributed in the hope that it will be useful,
'** but WITHOUT ANY WARRANTY; without even the implied warranty of
'** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER
'** WARRANTIES WHETHER EXPRESSED OR IMPLIED.
'**
'** Support is for those that have purchased it. Post support questions at: -
'** http://www.iportalx.com/forum
'**
'** Support questions are NOT answered by e-mail ever!
'**
'** For correspondence or non support questions contact: -
'** support@iportalx.com
'**
'****************************************************************************************
Dim strMode
Dim strEntryURL
Dim strEntrySecurePath
Dim intCategoryID
Dim intSubCategoryID
Dim blnEntryActive
strMode = Request.QueryString("Mode")
intEntryID = Clng(Request.QueryString("EID"))
intTypeID = Clng(Request.QueryString("TYP"))
strSQL = "SELECT " & strDBTable & "Entry.* FROM " & strDBTable & "Entry WHERE " & strDBTable & "Entry.Entry_ID = " & intEntryID & ";"
rsCommon.Open strSQL, adoCon
If rsCommon.EOF Then
strMode = "Add"
intCategoryID = Clng(Request.QueryString("CatID"))
Else
strEntryName = rsCommon("Name")
strEntryURL = rsCommon("URL")
strEntrySecurePath = rsCommon("Entry_secure_path")
intCategoryID = Clng(rsCommon("Cat_ID"))
intSubCategoryID = Clng(rsCommon("Sub_ID"))
strEntryShortDescription = rsCommon("Short_description")
strEntryDescription = rsCommon("Description")
blnEntryActive = CBool(rsCommon("Active"))
intTypeID = Clng(rsCommon("Type_ID"))
intReviewQualityRating = rsCommon("Quality")
intReviewPerformanceRating = rsCommon("Performance")
intReviewAppearanceRating = rsCommon("Appearance")
intReviewCostRating = rsCommon("Cost")
strReviewImages = rsCommon("Review_images")
strEntryImage = rsCommon("Entry_image")
'Convert message back to forum codes and text
strEntryShortDescription = EditPostConvertion(strEntryShortDescription)
strEntryDescription = EditPostConvertion(strEntryDescription)
strMode = "Edit"
End If
rsCommon.Close
Call DirectoryDetials(intTypeID)
%>
<% = strTxtSubmitEntryForm %>
<% Call FormatTableTitleTop(strTxtEntryForm, "100%", 2) %>