Forums
This topic is locked
ASP Upload on NT 4
Posted 04 Mar 2003 17:09:36
1
has voted
04 Mar 2003 17:09:36 Anonymous User posted:
Here's a silly question I should have thought to ask before I shelled out for Pure ASP Upload 2.09. Will it work with WinNT4 running ASP 2.0? I keep getting nothing but weird XML errors and I'm at my wits end. I'm not even using XML!Why be difficult when you can be impossible?
Replies
Replied 04 Mar 2003 18:11:29
04 Mar 2003 18:11:29 Patrick Woldberg replied:
You should have ado2.5 and the latest vbscript, you can download these at microsoft.
It should work fine on winnt4, the XML errors I can't explain, maybe you can post them here.
--------------------------------------------------
Patrick Woldberg
Web Developer at Dynamic Zones
Manager at DMXzone.com
--------------------------------------------------
It should work fine on winnt4, the XML errors I can't explain, maybe you can post them here.
--------------------------------------------------
Patrick Woldberg
Web Developer at Dynamic Zones
Manager at DMXzone.com
--------------------------------------------------
Replied 04 Mar 2003 18:17:45
04 Mar 2003 18:17:45 Anonymous User replied:
well this is the error, but the server has been acting pretty wacky lately, so I don't know htat they're relate. Like I said, I don't use XML. I just checked for Dreamweaver to make the pages XHTML compliant...
The XML page cannot be displayed
Cannot view XML input using XSL style sheet. Please correct the error and then click the Refresh button, or try again later.
--------------------------------------------------------------------------------
A string literal was expected, but no opening quote character was found. Error processing resource 'www.pendleton.usmc.mil/scout/admin/insert.asp?GP_upload=true'. Line 3, Position 26
<font face="Arial" size=2>
-------------------------^
The other thing that's strange is that the insert I was testing didn't have an imge upload in it. Should it be reading GP_upload=true when there's no file upload?
Why be difficult when you can be impossible?
The XML page cannot be displayed
Cannot view XML input using XSL style sheet. Please correct the error and then click the Refresh button, or try again later.
--------------------------------------------------------------------------------
A string literal was expected, but no opening quote character was found. Error processing resource 'www.pendleton.usmc.mil/scout/admin/insert.asp?GP_upload=true'. Line 3, Position 26
<font face="Arial" size=2>
-------------------------^
The other thing that's strange is that the insert I was testing didn't have an imge upload in it. Should it be reading GP_upload=true when there's no file upload?
Why be difficult when you can be impossible?
Replied 05 Mar 2003 10:22:37
05 Mar 2003 10:22:37 Patrick Woldberg replied:
The GP_upload=true is always send to let know the form is submitted, also if no files are selected.
I've checked the error and it seems your page is not complete xhtml compliant, you have to go through all your code and close all the tags, so <br> should become <br/> and close also image tags etc. Also it is important to look at the qoutes, in the error <font face="Arial" size=2> you should change in <font face="Arial" size="2">.
Check www.w3.org/TR/2000/REC-xhtml1-20000126/ for more info about xhtml.
--------------------------------------------------
Patrick Woldberg
Web Developer at Dynamic Zones
Manager at DMXzone.com
--------------------------------------------------
I've checked the error and it seems your page is not complete xhtml compliant, you have to go through all your code and close all the tags, so <br> should become <br/> and close also image tags etc. Also it is important to look at the qoutes, in the error <font face="Arial" size=2> you should change in <font face="Arial" size="2">.
Check www.w3.org/TR/2000/REC-xhtml1-20000126/ for more info about xhtml.
--------------------------------------------------
Patrick Woldberg
Web Developer at Dynamic Zones
Manager at DMXzone.com
--------------------------------------------------
Replied 05 Mar 2003 16:56:01
05 Mar 2003 16:56:01 Anonymous User replied:
but that's what kills me, I don't use font tags at all! That's why I think it has to be some kind of server incompatibility. here's the entire page:
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="/Connections/ScoutConn.asp" -->
<!--#include virtual="/ScriptLibrary/incPureUpload.asp" -->
<%
'*** Pure ASP File Upload -----------------------------------------------------
' Copyright (c) 2001-2002 George Petrov, www.UDzone.com
' Process the upload
' Version: 2.0.9
'------------------------------------------------------------------------------
'*** File Upload to: """../../Images/scout""", Extensions: "GIF,JPG,JPEG,BMP,PNG", Form: ItemInsert, Redirect: "", "path", "", "uniq", "false", "", "" , "", "", "", "", "600", "fileCopyProgress.htm", "300", "100"
Dim GP_redirectPage, RequestBin, UploadQueryString, GP_uploadAction, UploadRequest
PureUploadSetup
If (CStr(Request.QueryString("GP_upload"
) <> "" Then
on error resume next
Dim reqPureUploadVersion, foundPureUploadVersion
reqPureUploadVersion = 2.09
foundPureUploadVersion = getPureUploadVersion()
if err or reqPureUploadVersion > foundPureUploadVersion then
Response.Write "<b>You don't have latest version of ScriptLibrary/incPureUpload.asp uploaded on the server.</b><br>"
Response.Write "This library is required for the current page. It is fully backwards compatible so old pages will work as well.<br>"
Response.End
end if
on error goto 0
GP_redirectPage = ""
Server.ScriptTimeout = 600
RequestBin = Request.BinaryRead(Request.TotalBytes)
Set UploadRequest = CreateObject("Scripting.Dictionary"
BuildUploadRequest RequestBin, """../../Images/scout""", "path", "", "uniq"
If (GP_redirectPage <> "" and not (CStr(UploadFormRequest("MM_insert") <> "" or CStr(UploadFormRequest("MM_update") <> "") Then
If (InStr(1, GP_redirectPage, "?", vbTextCompare) = 0 And UploadQueryString <> "" Then
GP_redirectPage = GP_redirectPage & "?" & UploadQueryString
End If
Response.Redirect(GP_redirectPage)
end if
else
if UploadQueryString <> "" then
UploadQueryString = UploadQueryString & "&GP_upload=true"
else
UploadQueryString = "GP_upload=true"
end if
end if
' End Pure Upload
'------------------------------------------------------------------------------
%>
<%
' *** Edit Operations: (Modified for File Upload) declare variables
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")
If (UploadQueryString <> "" Then
MM_editAction = MM_editAction & "?" & UploadQueryString
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: (Modified for File Upload) set variables
If (CStr(UploadFormRequest("MM_insert") = "form1" Then
MM_editConnection = MM_ScoutConn_STRING
MM_editTable = "Item"
MM_editRedirectUrl = "admin.asp"
MM_fieldsStr = "ItemType|value|ItemSection|value|ItemUnitID|value|ItemDate|value|ItemName|value|ItemHeadline|value|ItemSubhead|value|ItemWriterID|value|ItemDateline|value|ItemText|value|ItemTagline|value|ItemPhotoURL|value|ItemThumbURL|value|ItemCutline|value|ItemPhotogID|value"
MM_columnsStr = "ItemType|',none,''|ItemSection|none,none,NULL|ItemUnitID|none,none,NULL|ItemDate|',none,NULL|ItemName|',none,''|ItemHeadline|',none,''|ItemSubhead|',none,''|ItemWriterID|none,none,NULL|ItemDateline|',none,''|ItemText|',none,''|ItemTagline|',none,''|ItemPhotoURL|',none,''|ItemThumbURL|',none,''|ItemCutline|',none,''|ItemPhotogID|none,none,NULL"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|"
MM_columns = Split(MM_columnsStr, "|"
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(UploadFormRequest(MM_fields(MM_i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And UploadQueryString <> "" Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And UploadQueryString <> "" Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString
End If
End If
End If
%>
<%
' *** Insert Record: (Modified for File Upload) construct a sql insert statement and execute it
Dim MM_tableValues
Dim MM_dbValues
If (CStr(UploadFormRequest("MM_insert") <> "" Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),","
MM_delim = MM_typeArray(0)
If (MM_delim = "none" Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none" Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none" Then MM_emptyVal = ""
If (MM_formVal = "" Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "" Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'" Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''" & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & " values (" & MM_dbValues & ""
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command"
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "" Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<%
Dim rsSection
Dim rsSection_numRows
Set rsSection = Server.CreateObject("ADODB.Recordset"
rsSection.ActiveConnection = MM_ScoutConn_STRING
rsSection.Source = "SELECT * FROM Section"
rsSection.CursorType = 0
rsSection.CursorLocation = 2
rsSection.LockType = 1
rsSection.Open()
rsSection_numRows = 0
%>
<%
Dim rsUnit
Dim rsUnit_numRows
Set rsUnit = Server.CreateObject("ADODB.Recordset"
rsUnit.ActiveConnection = MM_ScoutConn_STRING
rsUnit.Source = "SELECT * FROM Unit"
rsUnit.CursorType = 0
rsUnit.CursorLocation = 2
rsUnit.LockType = 1
rsUnit.Open()
rsUnit_numRows = 0
%>
<%
Dim rsWriter
Dim rsWriter_numRows
Set rsWriter = Server.CreateObject("ADODB.Recordset"
rsWriter.ActiveConnection = MM_ScoutConn_STRING
rsWriter.Source = "SELECT * FROM Writer"
rsWriter.CursorType = 0
rsWriter.CursorLocation = 2
rsWriter.LockType = 1
rsWriter.Open()
rsWriter_numRows = 0
%>
<%
Dim rsPhotog
Dim rsPhotog_numRows
Set rsPhotog = Server.CreateObject("ADODB.Recordset"
rsPhotog.ActiveConnection = MM_ScoutConn_STRING
rsPhotog.Source = "SELECT * FROM Photog"
rsPhotog.CursorType = 0
rsPhotog.CursorLocation = 2
rsPhotog.LockType = 1
rsPhotog.Open()
rsPhotog_numRows = 0
%>
<!-- DO NOT ALTER OR DELETE THIS LINE! IT WILL DISABLE MODULE CONNECTIONS! -->
<html xmlns="www.w3.org/1999/xhtml"><!-- InstanceBegin template="../../Templates/base_scoutDB.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
<!-- InstanceBeginEditable name="doctitle" -->
<title>Camp Pendleton</title>
<!-- InstanceEndEditable -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link href="/Stylesheets/style.css" rel="stylesheet" type="text/css" />
<link href="/Stylesheets/basestyle.css" rel="stylesheet" type="text/css" />
<!-- InstanceBeginEditable name="JavaScript" -->
<script type="text/javascript" language="JavaScript">
</script>
<!-- InstanceEndEditable -->
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_displayStatusMsg(msgStr) { //v1.0
status=msgStr;
document.MM_returnValue = true;
}
//-->
</script>
<!-- InstanceBeginEditable name="head" --><!-- InstanceEndEditable -->
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#006699" vlink="#006699" alink="#330066" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<script language="JavaScript" src="/menu_array.js" type="text/javascript"></script>
<script language="JavaScript" src="/mmenu.js" type="text/javascript"></script>
<table width="100%" border="0" cellspacing="4" cellpadding="0">
<tr valign="top">
<td><a href="#PageContent"><img src="/Images/spacer.gif" alt="" name="SkipNav" width="0" height="0" border="0" id="SkipNav" /></a></td>
<td background="/Images/banners/Base_texture_150.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="1" bgcolor="#666666">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#999999">
<tr>
<td width="100%" class="Folio">
<div align="right"><a href="www.usmc.mil/" target="_blank" class="nav">USMC Links</a> >> <a href="www.hqmc.usmc.mil/" target="_blank" class="nav">HQMC</a> | <a href="www.marines.com/" target="_blank" class="nav">recruiting</a> | <a href="www.usmc.mil/marinelink/websites.nsf/unitsalpha" target="_blank" class="nav">units</a> | <a href="www.usmc.mil/marinelink/ind.nsf/career" target="_blank" class="nav">career</a> | <a href="www.mol.usmc.mil/system/tfas/login.asp" target="_blank" class="nav">MOL</a> | <a href="www.usmc.mil/marinelink/mcn2000.nsf/news" target="_blank" class="nav">news</a> | <a href="www.usmc-mccs.org/" target="_blank" class="nav">family</a> | <a href="www.usmc.mil/marinelink/ind.nsf/publications" target="_blank" class="nav">publications</a> | <a href="www.usmc.mil/marinelink/ind.nsf/locator" target="_blank" class="nav">locator</a> | <a href="www.usmc.mil/marinelink/websites.nsf/associations" target="_blank" class="nav">links</a> </div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<div align="center"><a href="/index.asp"><img src="/Images/banners/texturebanner_430.jpg" alt="Return to the Camp Pendleton Home page" name="TitleImage" width="430" height="60" border="0" id="TitleImage" /></a></div>
</td>
<td width="150" background="/Images/banners/Base_texture_150.gif" class="Cutline">
<table width="144" border="0" cellspacing="0" cellpadding="1" bgcolor="#666666">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#999999">
<tr>
<td><a href="www.usmc.mil/" target="_blank"><img src="/images/ads/252x80_marinesega.jpg" alt="Link to the Official Marine Corps Website" name="USMCImage" width="154" border="0" id="USMCImage" /></a></td>
</tr>
</table>
</td>
</tr>
</table>
<%= Application("VisitorCount" %> visits since <%= Left( Application("CounterStart",11 ) %></td>
</tr>
<tr valign="top">
<td width="148"><img src="/Images/spacer.gif" width="150" height="10" /> </td>
<td colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="1" bgcolor="#660000">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#990000">
<tr>
<td class="Folio"path_info")')">
<%
'Shows the location of the file
Response.Write(Request.ServerVariables("PATH_INFO")
%>
</td>
<td class="Folio">
<div align="right">Last Modified
<!--#echo var="Last_Modified" -->
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr valign="top">
<td width="150"> </td>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="1" bgcolor="#333333">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#FFFFFF">
<tr>
<td class="Pagetitle">Story and Photo Administration</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#666666">
<tr>
<td>
<p class="Folio"><a href="/media/admin/admin.asp" target="_self" class="Nav">All
Stories</a> | <a href="/media/admin/noiseadv.asp" target="_self" class="Nav">News</a> | <a href="/media/admin/pressrelease.asp" target="_self" class="Nav">Focus</a> | <a href="/media/admin/mediaadv.asp" target="_self" class="Nav">Sports</a> | <a href="/media/admin/mediaadv.asp" target="_self" class="Nav">@Ease</a> | <a href="/media/admin/insert.asp" target="_self" class="Nav"></a><a href="/media/admin/insert.asp" target="_self" class="Nav">Add
Story</a> | <a href="/media/admin/insert.asp" target="_self" class="Nav">Add
Photo</a> | <a href="/media/admin/newuser.asp" target="_self" class="Nav"></a><a href="/media/admin/newuser.asp" target="_self" class="Nav">Add
User</a> | <a href="/media/admin/logout.asp" target="_self" class="Nav">Log
Out</a></p>
</td>
</tr>
</table>
<a name="PageContent" id="PageContent"></a><!-- InstanceBeginEditable name="ContentTable" -->
<table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#FFFFFF">
<tr>
<td width="100%" valign="top">
<p><strong>Fill out the form carefully as these items appear immediately on the internet!</strong></p>
<li class="Cutline">* Required for all Entries</li>
<li class="Cutline">† Required for all Stories</li>
<li class="Cutline">‡ Required for all Photos</li>
<li class="Cutline">If submitting a Story and Photo, all fields should be complete</li>
<table border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#660000">
<tr>
<td><form action="<%=MM_editAction%>" method="post" enctype="multipart/form-data" name="ItemInsert" id="ItemInsert" onsubmit="checkFileUpload(this,'GIF,JPG,JPEG,BMP,PNG',false,'','','','','','','');showProgressWindow('fileCopyProgress.htm',300,100);return document.MM_returnValue">
<table border="0" align="center" cellpadding="4" cellspacing="1">
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">*Item Type:</th>
<td bgcolor="#FFFFFF">
<select name="ItemType">
<option value="Story" selected="selected">Story</option>
<option value="Photo" >Photo</option>
<option value="Both" >Story & Photo</option>
</select>
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">*Item Section:</th>
<td bgcolor="#FFFFFF">
<select name="ItemSection">
<%
While (NOT rsSection.EOF)
%>
<option value="<%=(rsSection.Fields.Item("SectionID".Value)%>"><%=(rsSection.Fields.Item("SectionName".Value)%></option>
<%
rsSection.MoveNext()
Wend
If (rsSection.CursorType > 0) Then
rsSection.MoveFirst
Else
rsSection.Requery
End If
%>
</select>
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">*Related Unit:</th>
<td bgcolor="#FFFFFF">
<select name="ItemUnitID">
<%
While (NOT rsUnit.EOF)
%>
<option value="<%=(rsUnit.Fields.Item("UnitID".Value)%>"><%=(rsUnit.Fields.Item("UnitAbbr".Value)%></option>
<%
rsUnit.MoveNext()
Wend
If (rsUnit.CursorType > 0) Then
rsUnit.MoveFirst
Else
rsUnit.Requery
End If
%>
</select>
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">*Item Date:</th>
<td bgcolor="#FFFFFF">
<input type="text" name="ItemDate" value="" size="32" />
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">*Item Slug:</th>
<td bgcolor="#FFFFFF">
<input type="text" name="ItemName" value="" size="32" />
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">†Story Headline:</th>
<td bgcolor="#FFFFFF">
<input type="text" name="ItemHeadline" value="" size="32" />
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">†Story Subheadline:</th>
<td bgcolor="#FFFFFF">
<input type="text" name="ItemSubhead" value="" size="32" />
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">†Story Writer:</th>
<td bgcolor="#FFFFFF">
<select name="ItemWriterID">
<%
While (NOT rsWriter.EOF)
%>
<option value="<%=(rsWriter.Fields.Item("WriterID".Value)%>"><%=(rsWriter.Fields.Item("WriterName".Value)%></option>
<%
rsWriter.MoveNext()
Wend
If (rsWriter.CursorType > 0) Then
rsWriter.MoveFirst
Else
rsWriter.Requery
End If
%>
</select>
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">†Story Dateline:</th>
<td bgcolor="#FFFFFF">
<input type="text" name="ItemDateline" value="" size="32" />
</td>
</tr>
<tr>
<th align="right" valign="top" nowrap="nowrap" bgcolor="#990000">†Story Text:</th>
<td valign="baseline" bgcolor="#FFFFFF">
<textarea name="ItemText" cols="50" rows="5"></textarea>
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">‡Photo Tagline:</th>
<td bgcolor="#FFFFFF">
<input type="text" name="ItemTagline" value="" size="32" />
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">‡Photo:</th>
<td bgcolor="#FFFFFF">
<input name="ItemPhotoURL" type="file" onchange="checkOneFileUpload(this,'GIF,JPG,JPEG,BMP,PNG',false,'','','','','','','')" value="" />
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">‡Photo Thumbnail:</th>
<td bgcolor="#FFFFFF">
<input name="ItemThumbURL" type="file" onchange="checkOneFileUpload(this,'GIF,JPG,JPEG,BMP,PNG',false,'','','','','','','')" value="" />
</td>
</tr>
<tr>
<th align="right" valign="top" nowrap="nowrap" bgcolor="#990000">‡Photo Cutline:</th>
<td valign="baseline" bgcolor="#FFFFFF">
<textarea name="ItemCutline" cols="50" rows="5"></textarea>
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">‡Photographer:</th>
<td bgcolor="#FFFFFF">
<select name="ItemPhotogID">
<%
While (NOT rsPhotog.EOF)
%>
<option value="<%=(rsPhotog.Fields.Item("PhotogID".Value)%>"><%=(rsPhotog.Fields.Item("PhotogName".Value)%></option>
<%
rsPhotog.MoveNext()
Wend
If (rsPhotog.CursorType > 0) Then
rsPhotog.MoveFirst
Else
rsPhotog.Requery
End If
%>
</select>
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000"> </th>
<td bgcolor="#FFFFFF">
<input name="submit" type="submit" value="Insert Record" />
</td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form1" />
</form></td>
</tr>
</table>
</td>
</tr>
</table>
<!-- InstanceEndEditable --></td>
</tr>
</table>
</td>
<td width="148"><!--#include virtual="/Includes/modules_base.asp"-->
</td>
</tr>
<tr valign="top">
<td colspan="3">
<p align="center" class="Links"><a href="javascript:history.go(-1);">Previous Page</a> | <a href="/legal.asp#privacy" target="_self">Privacy & Security</a> | <a href="/legal.asp#accessibility" target="_self">Accessibility Statement</a> | <a href="/legal.asp#disclaimer" target="_self">Link Disclaimer</a> | <a href="mailto: ">Webmaster</a></p>
<p align="center" class="Links">Optimized for Internet Explorer 4 or later at a screen resolution of 800 x 600 or higher</p>
</td>
</tr>
</table>
</body>
<!-- InstanceEnd --></html>
<%
rsSection.Close()
Set rsSection = Nothing
%>
<%
rsUnit.Close()
Set rsUnit = Nothing
%>
<%
rsWriter.Close()
Set rsWriter = Nothing
%>
<%
rsPhotog.Close()
Set rsPhotog = Nothing
%>
Why be difficult when you can be impossible?
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="/Connections/ScoutConn.asp" -->
<!--#include virtual="/ScriptLibrary/incPureUpload.asp" -->
<%
'*** Pure ASP File Upload -----------------------------------------------------
' Copyright (c) 2001-2002 George Petrov, www.UDzone.com
' Process the upload
' Version: 2.0.9
'------------------------------------------------------------------------------
'*** File Upload to: """../../Images/scout""", Extensions: "GIF,JPG,JPEG,BMP,PNG", Form: ItemInsert, Redirect: "", "path", "", "uniq", "false", "", "" , "", "", "", "", "600", "fileCopyProgress.htm", "300", "100"
Dim GP_redirectPage, RequestBin, UploadQueryString, GP_uploadAction, UploadRequest
PureUploadSetup
If (CStr(Request.QueryString("GP_upload"
) <> "" Thenon error resume next
Dim reqPureUploadVersion, foundPureUploadVersion
reqPureUploadVersion = 2.09
foundPureUploadVersion = getPureUploadVersion()
if err or reqPureUploadVersion > foundPureUploadVersion then
Response.Write "<b>You don't have latest version of ScriptLibrary/incPureUpload.asp uploaded on the server.</b><br>"
Response.Write "This library is required for the current page. It is fully backwards compatible so old pages will work as well.<br>"
Response.End
end if
on error goto 0
GP_redirectPage = ""
Server.ScriptTimeout = 600
RequestBin = Request.BinaryRead(Request.TotalBytes)
Set UploadRequest = CreateObject("Scripting.Dictionary"
BuildUploadRequest RequestBin, """../../Images/scout""", "path", "", "uniq"
If (GP_redirectPage <> "" and not (CStr(UploadFormRequest("MM_insert"
) <> "" or CStr(UploadFormRequest("MM_update") <> "") ThenIf (InStr(1, GP_redirectPage, "?", vbTextCompare) = 0 And UploadQueryString <> ""
ThenGP_redirectPage = GP_redirectPage & "?" & UploadQueryString
End If
Response.Redirect(GP_redirectPage)
end if
else
if UploadQueryString <> "" then
UploadQueryString = UploadQueryString & "&GP_upload=true"
else
UploadQueryString = "GP_upload=true"
end if
end if
' End Pure Upload
'------------------------------------------------------------------------------
%>
<%
' *** Edit Operations: (Modified for File Upload) declare variables
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"
)If (UploadQueryString <> ""
ThenMM_editAction = MM_editAction & "?" & UploadQueryString
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: (Modified for File Upload) set variables
If (CStr(UploadFormRequest("MM_insert"
) = "form1" ThenMM_editConnection = MM_ScoutConn_STRING
MM_editTable = "Item"
MM_editRedirectUrl = "admin.asp"
MM_fieldsStr = "ItemType|value|ItemSection|value|ItemUnitID|value|ItemDate|value|ItemName|value|ItemHeadline|value|ItemSubhead|value|ItemWriterID|value|ItemDateline|value|ItemText|value|ItemTagline|value|ItemPhotoURL|value|ItemThumbURL|value|ItemCutline|value|ItemPhotogID|value"
MM_columnsStr = "ItemType|',none,''|ItemSection|none,none,NULL|ItemUnitID|none,none,NULL|ItemDate|',none,NULL|ItemName|',none,''|ItemHeadline|',none,''|ItemSubhead|',none,''|ItemWriterID|none,none,NULL|ItemDateline|',none,''|ItemText|',none,''|ItemTagline|',none,''|ItemPhotoURL|',none,''|ItemThumbURL|',none,''|ItemCutline|',none,''|ItemPhotogID|none,none,NULL"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|"
MM_columns = Split(MM_columnsStr, "|"
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(UploadFormRequest(MM_fields(MM_i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And UploadQueryString <> ""
ThenIf (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And UploadQueryString <> ""
ThenMM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString
End If
End If
End If
%>
<%
' *** Insert Record: (Modified for File Upload) construct a sql insert statement and execute it
Dim MM_tableValues
Dim MM_dbValues
If (CStr(UploadFormRequest("MM_insert"
) <> "" Then' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),","
MM_delim = MM_typeArray(0)
If (MM_delim = "none"
Then MM_delim = ""MM_altVal = MM_typeArray(1)
If (MM_altVal = "none"
Then MM_altVal = ""MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none"
Then MM_emptyVal = ""If (MM_formVal = ""
ThenMM_formVal = MM_emptyVal
Else
If (MM_altVal <> ""
ThenMM_formVal = MM_altVal
ElseIf (MM_delim = "'"
Then ' escape quotesMM_formVal = "'" & Replace(MM_formVal,"'","''"
& "'"Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & "
values (" & MM_dbValues & ""If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command"
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> ""
ThenResponse.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<%
Dim rsSection
Dim rsSection_numRows
Set rsSection = Server.CreateObject("ADODB.Recordset"
rsSection.ActiveConnection = MM_ScoutConn_STRING
rsSection.Source = "SELECT * FROM Section"
rsSection.CursorType = 0
rsSection.CursorLocation = 2
rsSection.LockType = 1
rsSection.Open()
rsSection_numRows = 0
%>
<%
Dim rsUnit
Dim rsUnit_numRows
Set rsUnit = Server.CreateObject("ADODB.Recordset"
rsUnit.ActiveConnection = MM_ScoutConn_STRING
rsUnit.Source = "SELECT * FROM Unit"
rsUnit.CursorType = 0
rsUnit.CursorLocation = 2
rsUnit.LockType = 1
rsUnit.Open()
rsUnit_numRows = 0
%>
<%
Dim rsWriter
Dim rsWriter_numRows
Set rsWriter = Server.CreateObject("ADODB.Recordset"
rsWriter.ActiveConnection = MM_ScoutConn_STRING
rsWriter.Source = "SELECT * FROM Writer"
rsWriter.CursorType = 0
rsWriter.CursorLocation = 2
rsWriter.LockType = 1
rsWriter.Open()
rsWriter_numRows = 0
%>
<%
Dim rsPhotog
Dim rsPhotog_numRows
Set rsPhotog = Server.CreateObject("ADODB.Recordset"
rsPhotog.ActiveConnection = MM_ScoutConn_STRING
rsPhotog.Source = "SELECT * FROM Photog"
rsPhotog.CursorType = 0
rsPhotog.CursorLocation = 2
rsPhotog.LockType = 1
rsPhotog.Open()
rsPhotog_numRows = 0
%>
<!-- DO NOT ALTER OR DELETE THIS LINE! IT WILL DISABLE MODULE CONNECTIONS! -->
<html xmlns="www.w3.org/1999/xhtml"><!-- InstanceBegin template="../../Templates/base_scoutDB.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
<!-- InstanceBeginEditable name="doctitle" -->
<title>Camp Pendleton</title>
<!-- InstanceEndEditable -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link href="/Stylesheets/style.css" rel="stylesheet" type="text/css" />
<link href="/Stylesheets/basestyle.css" rel="stylesheet" type="text/css" />
<!-- InstanceBeginEditable name="JavaScript" -->
<script type="text/javascript" language="JavaScript">
</script>
<!-- InstanceEndEditable -->
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_displayStatusMsg(msgStr) { //v1.0
status=msgStr;
document.MM_returnValue = true;
}
//-->
</script>
<!-- InstanceBeginEditable name="head" --><!-- InstanceEndEditable -->
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#006699" vlink="#006699" alink="#330066" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<script language="JavaScript" src="/menu_array.js" type="text/javascript"></script>
<script language="JavaScript" src="/mmenu.js" type="text/javascript"></script>
<table width="100%" border="0" cellspacing="4" cellpadding="0">
<tr valign="top">
<td><a href="#PageContent"><img src="/Images/spacer.gif" alt="" name="SkipNav" width="0" height="0" border="0" id="SkipNav" /></a></td>
<td background="/Images/banners/Base_texture_150.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="1" bgcolor="#666666">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#999999">
<tr>
<td width="100%" class="Folio">
<div align="right"><a href="www.usmc.mil/" target="_blank" class="nav">USMC Links</a> >> <a href="www.hqmc.usmc.mil/" target="_blank" class="nav">HQMC</a> | <a href="www.marines.com/" target="_blank" class="nav">recruiting</a> | <a href="www.usmc.mil/marinelink/websites.nsf/unitsalpha" target="_blank" class="nav">units</a> | <a href="www.usmc.mil/marinelink/ind.nsf/career" target="_blank" class="nav">career</a> | <a href="www.mol.usmc.mil/system/tfas/login.asp" target="_blank" class="nav">MOL</a> | <a href="www.usmc.mil/marinelink/mcn2000.nsf/news" target="_blank" class="nav">news</a> | <a href="www.usmc-mccs.org/" target="_blank" class="nav">family</a> | <a href="www.usmc.mil/marinelink/ind.nsf/publications" target="_blank" class="nav">publications</a> | <a href="www.usmc.mil/marinelink/ind.nsf/locator" target="_blank" class="nav">locator</a> | <a href="www.usmc.mil/marinelink/websites.nsf/associations" target="_blank" class="nav">links</a> </div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<div align="center"><a href="/index.asp"><img src="/Images/banners/texturebanner_430.jpg" alt="Return to the Camp Pendleton Home page" name="TitleImage" width="430" height="60" border="0" id="TitleImage" /></a></div>
</td>
<td width="150" background="/Images/banners/Base_texture_150.gif" class="Cutline">
<table width="144" border="0" cellspacing="0" cellpadding="1" bgcolor="#666666">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#999999">
<tr>
<td><a href="www.usmc.mil/" target="_blank"><img src="/images/ads/252x80_marinesega.jpg" alt="Link to the Official Marine Corps Website" name="USMCImage" width="154" border="0" id="USMCImage" /></a></td>
</tr>
</table>
</td>
</tr>
</table>
<%= Application("VisitorCount"
%> visits since <%= Left( Application("CounterStart",11 ) %></td></tr>
<tr valign="top">
<td width="148"><img src="/Images/spacer.gif" width="150" height="10" /> </td>
<td colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="1" bgcolor="#660000">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#990000">
<tr>
<td class="Folio"path_info"
)')"><%
'Shows the location of the file
Response.Write(Request.ServerVariables("PATH_INFO"
)%>
</td>
<td class="Folio">
<div align="right">Last Modified
<!--#echo var="Last_Modified" -->
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr valign="top">
<td width="150"> </td>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="1" bgcolor="#333333">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#FFFFFF">
<tr>
<td class="Pagetitle">Story and Photo Administration</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#666666">
<tr>
<td>
<p class="Folio"><a href="/media/admin/admin.asp" target="_self" class="Nav">All
Stories</a> | <a href="/media/admin/noiseadv.asp" target="_self" class="Nav">News</a> | <a href="/media/admin/pressrelease.asp" target="_self" class="Nav">Focus</a> | <a href="/media/admin/mediaadv.asp" target="_self" class="Nav">Sports</a> | <a href="/media/admin/mediaadv.asp" target="_self" class="Nav">@Ease</a> | <a href="/media/admin/insert.asp" target="_self" class="Nav"></a><a href="/media/admin/insert.asp" target="_self" class="Nav">Add
Story</a> | <a href="/media/admin/insert.asp" target="_self" class="Nav">Add
Photo</a> | <a href="/media/admin/newuser.asp" target="_self" class="Nav"></a><a href="/media/admin/newuser.asp" target="_self" class="Nav">Add
User</a> | <a href="/media/admin/logout.asp" target="_self" class="Nav">Log
Out</a></p>
</td>
</tr>
</table>
<a name="PageContent" id="PageContent"></a><!-- InstanceBeginEditable name="ContentTable" -->
<table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#FFFFFF">
<tr>
<td width="100%" valign="top">
<p><strong>Fill out the form carefully as these items appear immediately on the internet!</strong></p>
<li class="Cutline">* Required for all Entries</li>
<li class="Cutline">† Required for all Stories</li>
<li class="Cutline">‡ Required for all Photos</li>
<li class="Cutline">If submitting a Story and Photo, all fields should be complete</li>
<table border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#660000">
<tr>
<td><form action="<%=MM_editAction%>" method="post" enctype="multipart/form-data" name="ItemInsert" id="ItemInsert" onsubmit="checkFileUpload(this,'GIF,JPG,JPEG,BMP,PNG',false,'','','','','','','');showProgressWindow('fileCopyProgress.htm',300,100);return document.MM_returnValue">
<table border="0" align="center" cellpadding="4" cellspacing="1">
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">*Item Type:</th>
<td bgcolor="#FFFFFF">
<select name="ItemType">
<option value="Story" selected="selected">Story</option>
<option value="Photo" >Photo</option>
<option value="Both" >Story & Photo</option>
</select>
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">*Item Section:</th>
<td bgcolor="#FFFFFF">
<select name="ItemSection">
<%
While (NOT rsSection.EOF)
%>
<option value="<%=(rsSection.Fields.Item("SectionID"
.Value)%>"><%=(rsSection.Fields.Item("SectionName".Value)%></option><%
rsSection.MoveNext()
Wend
If (rsSection.CursorType > 0) Then
rsSection.MoveFirst
Else
rsSection.Requery
End If
%>
</select>
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">*Related Unit:</th>
<td bgcolor="#FFFFFF">
<select name="ItemUnitID">
<%
While (NOT rsUnit.EOF)
%>
<option value="<%=(rsUnit.Fields.Item("UnitID"
.Value)%>"><%=(rsUnit.Fields.Item("UnitAbbr".Value)%></option><%
rsUnit.MoveNext()
Wend
If (rsUnit.CursorType > 0) Then
rsUnit.MoveFirst
Else
rsUnit.Requery
End If
%>
</select>
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">*Item Date:</th>
<td bgcolor="#FFFFFF">
<input type="text" name="ItemDate" value="" size="32" />
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">*Item Slug:</th>
<td bgcolor="#FFFFFF">
<input type="text" name="ItemName" value="" size="32" />
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">†Story Headline:</th>
<td bgcolor="#FFFFFF">
<input type="text" name="ItemHeadline" value="" size="32" />
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">†Story Subheadline:</th>
<td bgcolor="#FFFFFF">
<input type="text" name="ItemSubhead" value="" size="32" />
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">†Story Writer:</th>
<td bgcolor="#FFFFFF">
<select name="ItemWriterID">
<%
While (NOT rsWriter.EOF)
%>
<option value="<%=(rsWriter.Fields.Item("WriterID"
.Value)%>"><%=(rsWriter.Fields.Item("WriterName".Value)%></option><%
rsWriter.MoveNext()
Wend
If (rsWriter.CursorType > 0) Then
rsWriter.MoveFirst
Else
rsWriter.Requery
End If
%>
</select>
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">†Story Dateline:</th>
<td bgcolor="#FFFFFF">
<input type="text" name="ItemDateline" value="" size="32" />
</td>
</tr>
<tr>
<th align="right" valign="top" nowrap="nowrap" bgcolor="#990000">†Story Text:</th>
<td valign="baseline" bgcolor="#FFFFFF">
<textarea name="ItemText" cols="50" rows="5"></textarea>
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">‡Photo Tagline:</th>
<td bgcolor="#FFFFFF">
<input type="text" name="ItemTagline" value="" size="32" />
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">‡Photo:</th>
<td bgcolor="#FFFFFF">
<input name="ItemPhotoURL" type="file" onchange="checkOneFileUpload(this,'GIF,JPG,JPEG,BMP,PNG',false,'','','','','','','')" value="" />
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">‡Photo Thumbnail:</th>
<td bgcolor="#FFFFFF">
<input name="ItemThumbURL" type="file" onchange="checkOneFileUpload(this,'GIF,JPG,JPEG,BMP,PNG',false,'','','','','','','')" value="" />
</td>
</tr>
<tr>
<th align="right" valign="top" nowrap="nowrap" bgcolor="#990000">‡Photo Cutline:</th>
<td valign="baseline" bgcolor="#FFFFFF">
<textarea name="ItemCutline" cols="50" rows="5"></textarea>
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000">‡Photographer:</th>
<td bgcolor="#FFFFFF">
<select name="ItemPhotogID">
<%
While (NOT rsPhotog.EOF)
%>
<option value="<%=(rsPhotog.Fields.Item("PhotogID"
.Value)%>"><%=(rsPhotog.Fields.Item("PhotogName".Value)%></option><%
rsPhotog.MoveNext()
Wend
If (rsPhotog.CursorType > 0) Then
rsPhotog.MoveFirst
Else
rsPhotog.Requery
End If
%>
</select>
</td>
</tr>
<tr valign="baseline">
<th align="right" nowrap="nowrap" bgcolor="#990000"> </th>
<td bgcolor="#FFFFFF">
<input name="submit" type="submit" value="Insert Record" />
</td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form1" />
</form></td>
</tr>
</table>
</td>
</tr>
</table>
<!-- InstanceEndEditable --></td>
</tr>
</table>
</td>
<td width="148"><!--#include virtual="/Includes/modules_base.asp"-->
</td>
</tr>
<tr valign="top">
<td colspan="3">
<p align="center" class="Links"><a href="javascript:history.go(-1);">Previous Page</a> | <a href="/legal.asp#privacy" target="_self">Privacy & Security</a> | <a href="/legal.asp#accessibility" target="_self">Accessibility Statement</a> | <a href="/legal.asp#disclaimer" target="_self">Link Disclaimer</a> | <a href="mailto: ">Webmaster</a></p>
<p align="center" class="Links">Optimized for Internet Explorer 4 or later at a screen resolution of 800 x 600 or higher</p>
</td>
</tr>
</table>
</body>
<!-- InstanceEnd --></html>
<%
rsSection.Close()
Set rsSection = Nothing
%>
<%
rsUnit.Close()
Set rsUnit = Nothing
%>
<%
rsWriter.Close()
Set rsWriter = Nothing
%>
<%
rsPhotog.Close()
Set rsPhotog = Nothing
%>
Why be difficult when you can be impossible?
Replied 06 Mar 2003 10:59:19
06 Mar 2003 10:59:19 Patrick Woldberg replied:
The code seems xhtml compliant, but the incPureUpload.asp isn't.
Check all the include files and make the html code in these files xhtml compliant also.
In the incPureUpload.asp you need to change the <br> in <br/>
--------------------------------------------------
Patrick Woldberg
Web Developer at Dynamic Zones
Manager at DMXzone.com
--------------------------------------------------
Check all the include files and make the html code in these files xhtml compliant also.
In the incPureUpload.asp you need to change the <br> in <br/>
--------------------------------------------------
Patrick Woldberg
Web Developer at Dynamic Zones
Manager at DMXzone.com
--------------------------------------------------