home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
bombers.k12.ar.us
/
bombers.k12.ar.us.tar
/
bombers.k12.ar.us
/
survey_unconfigured
/
Page.asp
< prev
next >
Wrap
Text File
|
2006-10-25
|
5KB
|
150 lines
<!--#Include File="Include/Top_inc.asp"-->
<%
'***********************************************************************
' Application: SelectSurveyASP Advanced v8.1.11
' Author: Aaron Baril for ClassApps.com
' Page Description: This page allows for editing the title and introduction
' on an existing page.
'
' COPYRIGHT NOTICE
'
' See attached Software License Agreement
'
' (c) Copyright 2002 - 2006 by ClassApps.com. All rights reserved.
'***********************************************************************
%>
<!--#Include File="Include/Config_inc.asp"-->
<!--#Include File="Include/SurveyUtility_inc.asp"-->
<!--#Include File="Include/Utility_inc.asp"-->
<!--#Include File="Include/adovbs_inc.asp"-->
<!--#Include File="Include/Constants_inc.asp"-->
<!--#Include File="Include/SurveySecurity_inc.asp"-->
<!--#Include File="Include/CurrentUser_inc.asp"-->
<%
Dim rsPage
Dim strSQL
Dim strState
Dim strPageTitle
Dim strPageIntroduction
Dim lngSurveyID
Dim lngPageNumber
'Initialization
Set rsPage = Server.CreateObject("ADODB.Recordset")
lngSurveyID = Request.QueryString("SurveyID")
lngPageNumber = Request.QueryString("PageNumber")
'Load all the data from the database
strSQL = "SELECT page_title, page_introduction " & _
"FROM sur_page " & _
"WHERE page_number = " & lngPageNumber & _
" AND survey_id = " & lngSurveyID
rsPage.Open ConvertSQL(strSQL), SURVEY_APP_CONNECTION, adOpenForwardOnly, adLockReadOnly, adCmdText
If rsPage.EOF Then
strPageTitle = ""
strPageIntroduction = ""
strState = SUR_STATE_INSERT
Else
rsPage.MoveFirst
strPageTitle = rsPage("page_title")
strPageIntroduction = rsPage("page_introduction")
strState = SUR_STATE_EDIT
End If
'Clean up
rsPage.Close
Set rsPage = Nothing
%>
<html>
<head>
<title>Edit Page Properties</title>
<link rel="stylesheet" href="Resources/StyleSheet/SurveyStyle.css">
</head>
<body class="MainBodyStyle">
<!--#Include File="Include/FrameworkTop_inc.asp"-->
<table border="0" cellspacing="0" cellpadding="0" width="754" class="MediumBlueBackgroundColor">
<tr>
<td height="36" valign="center">
<span class="H1HeadingStyle"><a name="skipnav" tabindex="1">Edit Page Properties</a></span> <img style="cursor:hand" alt="Help" onClick="javascript:window.open('Help/Help.htm#DesigningSurveys', null, 'menubar=no,toolbar=no,titlebar=no,status=no,left=10,top=10,scrollbars=yes,resizable=yes,height=550,width=770');" border="0" src="Resources/Images/Help.gif">
</td>
</tr>
</table>
<!--#Include File="Include/FrameworkTop2_inc.asp"-->
<table width="740" border="0" cellpadding="0" cellspacing="6" class="LightGrayBackgroundColor">
<form name="frmPage" method="post" action="PageAction.asp">
<input type="hidden" name="hdnState" value="<%=strState%>">
<input type="hidden" name="SurveyID" value="<%=lngSurveyID%>">
<input type="hidden" name="PageNumber" value="<%=lngPageNumber%>">
<tr>
<td width="1"></td>
<td width="738" align="left" valign="center" height="36" class="Normal">
Both the page title and page introduction are optional, and may be omitted on any page.
</td>
<td width="1"> </td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td height="1" background="Resources/Images/ThinDivider.gif"></td></tr>
<table border="0" cellpadding="0" cellspacing="6" width="740" class="WhiteBackgroundColor">
<tr>
<td height="8"></td>
</tr>
<tr>
<td width="1" rowspan="20"></td>
<td width="170" valign="top" class="NormalBold">
Survey:
</td>
<td width="540" valign="top" class="Normal">
<%=Request.QueryString("SurveyName")%>
</td>
<td width="1" rowspan="20"> </td>
</tr>
<tr>
<td width="170" valign="top" class="NormalBold">
Page Number:
</td>
<td width="540" valign="top" class="Normal">
<%=lngPageNumber%>
</td>
</tr>
<tr>
<td width="170" valign="top" class="NormalBold">
<label for="txtPageTitle">Page Title:</label>
</td>
<td width="540" valign="top" class="Normal">
<input value="<%=strPageTitle%>" type="text" name="txtPageTitle" id="txtPageTitle" maxlength="50" style="width:540px" size="30">
</td>
</tr>
<tr>
<td valign="top" class="NormalBold">
<label for="txtPageIntroduction">Page Introduction:</label>
</td>
<td valign="top" class="Normal">
<textarea class="TextareaStyle" name="txtPageIntroduction" id="txtPageIntroduction" rows="6" style="width:540px"><%=strPageIntroduction%></textarea>
</td>
</tr>
<tr>
<td align="right" valign="middle" colspan="2" height="34">
<a href="ModifySurvey.asp?SurveyID=<%=lngSurveyID%>"><img border="0" alt="Cancel" name="btnCancel" src="Resources/Buttons/Cancel.gif"></a>
<input type="image" border="0" alt="Save" src="Resources/Buttons/Save.gif" name="btnSave">
</td>
</tr>
</form>
</table>
<!--#Include File="Include/FrameworkBottom_inc.asp"-->
</body>
</html>
<%
'Ensure that the web server returns the page
Response.Flush
%>