Duplicate Data

ramos05 · Sep 25, 2003

Hi,

I'm using Dreamweaver MX and created a page to insert data to a database. I have an Access database not to allow duplicate data in one field (Filename). When the user attemps to insert a new record with the same field (Filename) it returns a page error statement:
-----------------ERROR--------------------
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.

/dsm/html/admin/admin_ADDdwg.asp, line 188
----------------- END ERROR--------------------

I would rather want the page to redirect to an html page that makes the statement in a simple way.

How can this be done?

Any help appreciated.

mwolf00 · Sep 25, 2003

on error resume next
cn.execute("insert into myTable (fileName) values ('someName')&quot

if err.count <> 0 then
response.redirect "error.asp"
end if

Programming today is a race between software engineers striving to build better and bigger idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning. - Rick Cook (No, I'm not Rick)

HectorShuckle · Sep 25, 2003

You have to either
a) catch it before inserting, by doing a "SELECT Count(*) FROM tableX WHERE [filename]=" & sFilename
b) add your own error handling

on error resume next
'do the insert stuff
if err.count>0 then
'Report the error
end if

on error goto 0 'turn off the error handling

ramos05 · Sep 25, 2003

Sorry Guys, I am not a proggramer. It's not so easy for me to understand the coding and how it works. I use Dreamweaver which generates the code for me. Below is the code generate for the page which I would like to have the redirect page if a duplicate field is being entered.

------------------Code----------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' *** Logout the current user.
MM_Logout = CStr(Request.ServerVariables("URL&quot

) & "?MM_Logoutnow=1"
If (CStr(Request("MM_Logoutnow&quot

) = "1&quot

Then
Session.Contents.Remove("MM_Username&quot

Session.Contents.Remove("MM_UserAuthorization&quot

MM_logoutRedirectPage = "../Login.asp"
' redirect with URL parameters (remove the "MM_Logoutnow" query param).
if (MM_logoutRedirectPage = "&quot

Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL&quot

)
If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "&quot

Then
MM_newQS = "?"
For Each Item In Request.QueryString
If (Item <> "MM_Logoutnow&quot

Then
If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&"
MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))
End If
Next
if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS
End If
Response.Redirect(MM_logoutRedirectPage)
End If
%>

<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="2,3,4"
MM_authFailedURL="../denied.htm"
MM_grantAccess=false
If Session("MM_Username&quot

<> "" Then
If (false Or CStr(Session("MM_UserAuthorization&quot

)="&quot

Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization&quot

)>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?&quot

>= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL&quot

if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>

<%
'*** Pure ASP File Upload 2.1.2
Dim GP_uploadAction,UploadQueryString
PureUploadSetup
If (CStr(Request.QueryString("GP_upload&quot

) <> "&quot

Then
Dim pau_thePath,pau_Extensions,pau_Form,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout,pau_progressBar,pau_progressWidth,pau_progressHeight
pau_thePath = """cadFiles"""
pau_Extensions = "DWG,DWF,PDF"
pau_Form = "form1"
pau_Redirect = ""
pau_storeType = "path"
pau_sizeLimit = ""
pau_nameConflict = "over"
pau_requireUpload = "false"
pau_minWidth = ""
pau_minHeight = ""
pau_maxWidth = ""
pau_maxHeight = ""
pau_saveWidth = ""
pau_saveHeight = ""
pau_timeout = "600"
pau_progressBar = "fileCopyProgress.htm"
pau_progressWidth = "300"
pau_progressHeight = "100"

Dim RequestBin, UploadRequest
CheckPureUploadVersion 2.12
ProcessUpload pau_thePath,pau_Extensions,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout
end if
%>
<%
' *** 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&quot

)
If (UploadQueryString <> "&quot

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&quot

) = "form1&quot

MM_columns = Split(MM_columnsStr, "|&quot

' 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 <> "&quot

Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And UploadQueryString <> "&quot

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&quot

) <> "&quot

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),",&quot

MM_delim = MM_typeArray(0)
If (MM_delim = "none&quot

Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none&quot

Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none&quot

Then MM_emptyVal = ""
If (MM_formVal = "&quot

Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "&quot

Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'&quot

Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''&quot

& "'"
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 & &quot

values (" & MM_dbValues & &quot

"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command&quot

MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "&quot

Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<% Response.Buffer = True %>

<%
Response.Expires = -1
Response.ExpiresAbsolute = Now() -1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<%
Dim rsUsers__MMColParam
rsUsers__MMColParam = "1"
If (Session("MM_Username&quot

<> "&quot

Then
rsUsers__MMColParam = Session("MM_Username&quot

End If
%>
<%
Dim rsUsers
Dim rsUsers_numRows

Set rsUsers = Server.CreateObject("ADODB.Recordset&quot

rsUsers.ActiveConnection = MM_dwgManager_STRING
rsUsers.Source = "SELECT FirstName, LastName, UserName FROM users WHERE UserName = '" + Replace(rsUsers__MMColParam, "'", "''&quot

+ "'"
rsUsers.CursorType = 0
rsUsers.CursorLocation = 2
rsUsers.LockType = 1
rsUsers.Open()

rsUsers_numRows = 0
%>
<%
Dim rsDWF_Icon
Dim rsDWF_Icon_numRows

Set rsDWF_Icon = Server.CreateObject("ADODB.Recordset&quot

rsDWF_Icon.ActiveConnection = MM_dwgManager_STRING
rsDWF_Icon.Source = "SELECT DWF_icon, icon_Url FROM DWF_icon"
rsDWF_Icon.CursorType = 0
rsDWF_Icon.CursorLocation = 2
rsDWF_Icon.LockType = 1
rsDWF_Icon.Open()

rsDWF_Icon_numRows = 0
%>
<%
Dim OnlineApprovers__MMColParam
OnlineApprovers__MMColParam = "3"
If (Request("MM_EmptyValue&quot

<> "&quot

Then
OnlineApprovers__MMColParam = Request("MM_EmptyValue&quot

End If
%>
<%
Dim OnlineApprovers
Dim OnlineApprovers_numRows

Set OnlineApprovers = Server.CreateObject("ADODB.Recordset&quot

OnlineApprovers.ActiveConnection = MM_dwgManager_STRING
OnlineApprovers.Source = "SELECT KeyUser, FirstName, LastName, UserName, SecurityLevel FROM users WHERE SecurityLevel = " + Replace(OnlineApprovers__MMColParam, "'", "''&quot

+ " ORDER BY FirstName ASC"
OnlineApprovers.CursorType = 0
OnlineApprovers.CursorLocation = 2
OnlineApprovers.LockType = 1
OnlineApprovers.Open()

OnlineApprovers_numRows = 0
%>
<%
Dim rsOnlineRevisioner__MMColParam
rsOnlineRevisioner__MMColParam = "2"
If (Request("MM_EmptyValue&quot

<> "&quot

Then
rsOnlineRevisioner__MMColParam = Request("MM_EmptyValue&quot

End If
%>
<%
Dim rsOnlineRevisioner
Dim rsOnlineRevisioner_numRows

Set rsOnlineRevisioner = Server.CreateObject("ADODB.Recordset&quot

rsOnlineRevisioner.ActiveConnection = MM_dwgManager_STRING
rsOnlineRevisioner.Source = "SELECT KeyUser, FirstName, LastName, UserName, SecurityLevel FROM users WHERE SecurityLevel = " + Replace(rsOnlineRevisioner__MMColParam, "'", "''&quot

+ " ORDER BY FirstName ASC"
rsOnlineRevisioner.CursorType = 0
rsOnlineRevisioner.CursorLocation = 2
rsOnlineRevisioner.LockType = 1
rsOnlineRevisioner.Open()

rsOnlineRevisioner_numRows = 0
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "&quot

Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "&quot

Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "&quot

Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "&quot

Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "&quot

Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">

</style>
<script language="Javascript1.2"><!-- // load htmlarea
_editor_url = ""; // URL to htmlarea files
var win_ie_ver = parseFloat(navigator.appVersion.split("MSIE&quot

[1]);
if (navigator.userAgent.indexOf('Mac') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Windows CE') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Opera') >= 0) { win_ie_ver = 0; }
if (win_ie_ver >= 5.5) {
document.write('<scr' + 'ipt src="' +_editor_url+ 'editor.js"');
document.write(' language="Javascript1.2"></scr' + 'ipt>');
} else { document.write('<scr'+'ipt>function editor_generate() { return false; }</scr'+'ipt>'); }
// --></script>
<script language="JavaScript">
<!--
// Kaosweaver Calendar Settings - do not remove
// by Paul Davis -

http://www.kaosweaver.com

// KW_lang[English]
// KW_order[0,1,2]
// KW_del1[/]
// KW_del2[/]
// KW_dd[true]
// KW_cWidth[170]
// KW_fd[-1]

var sDate = new Array();
var mName = new Array("January","February","March","April","May","June","July","August","September","October","November","December&quot

var wName = new Array("Su","Mo","Tu","We","Th","Fr","Sa&quot

var cFontName = "Arial, Helvetica, sans-serif;"
var KW_color = new Array("#ffffff","#ffcccc","#999999","#ffffff","#ccffcc","#cccccc","#000000","#000000&quot

var KW_cl=0;
var KW_od=-1;
var KW_tmo=0;
var KW_cWidth=170;
var KW_fd=-1;
var KW_ss=0;
var KW_sw=0;
var descx=-1;
var descy=-1;
var bwNN=(document.captureEvents)?1:0;
function popmousemove(e){descx=(bwNN)?e.pageX:event.x;descy=(bwNN)?e.pageY:event.y}
function KW_mouseInit(){
if(bwNN)document.captureEvents(Event.MOUSEMOVE);document.onmousemove=popmousemove;
}
function m_class(m,d,y) {
this.month=m;this.day=d;this.year=y;this.output=this.month+"/"+this.day+"/"+this.year;
var kd=new Date();this.special=checkDates(this.month,this.day,this.year)
this.today=((kd.getMonth()+1)==this.month && kd.getDate()==this.day && kd.getFullYear()==this.year)
var td=new Date(this.year, (this.month-1), this.day+KW_od);this.past=(KW_od==-1)?0

kd>td)
var tf=new Date(kd.getFullYear(),kd.getMonth(),kd.getDate()+KW_fd);
var d1=new Date(this.year, (this.month-1), this.day);
this.future=(KW_fd==-1)?0

tf<d1);this.ss=(this.special && KW_ss);
this.display=(this.past || this.future || this.ss);
}

// Kaosweaver End of Calendar Settings - do not remove

function checkDates(m1,d1,y1) { //v2.1.5
var rStr=false;for(var i=0;i<sDate.length;i++) {var tDate=sDate.split(","
if (tDate[2]=="*" || tDate[2]==y1) {if (tDate[1]==d1 && tDate[0]==m1) rStr=true;
}}return rStr;
}

function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?&quot)>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);
if(!x && d.getElementById) x=d.getElementById; return x;
}

function KW_doCalendar(obj,E,m,y) { //v2.5.3
var d=new Date();f=0;d.setDate(1);if (!m && m!=0) {m=d.getMonth();f=KW_cl}
if (f==1 && MM_findObj('KW_selectedMonth').value!=-1)
m=MM_findObj('KW_selectedMonth').value-1;d.setMonth(m);
if (!y) y=d.getFullYear();if (f==1 && MM_findObj('KW_selectedYear').value!=-1)
y=MM_findObj('KW_selectedYear').value;d.setFullYear;dy=d.getDay();if (!E) E=0;
if(E==1)dy=(dy==0)?6:dy-1;dP=new Date();dP.setMonth(m);dP.setDate(0);
pStart=dP.getDate()-dy+1;dStr=new Array();for (i=pStart;i<dP.getDate()+1;i++) { tmo=(KW_tmo)?"":i;
tMonth=(m==0)?"12":m;tYear=(m==0)?y-1:y;dStr[dStr.length]=new m_class(tMonth,tmo,tYear);
}EOM=false;for (i=1;!EOM;i++){d.setDate(i);if (m!=d.getMonth()) EOM=true; else {
dStr[dStr.length]=new m_class((Number(m)+1),i,y);}}cnt=1;si=0;
if(E==1)si=(d.getDay()==0)?6:d.getDay()-1;else si=d.getDay(); for (i=si;i<7;i++) {
tMonth=(m==11)?"1":Number(m)+2;tYear=(m==11)?Number+1:y; tmo=(KW_tmo)?"":cnt;
dStr[dStr.length]=new m_class(tMonth,tmo,tYear); cnt++;}pM=(m==0)?11:m-1;
pY=(m==0)?y-1:y;nM=(m==11)?0:Number(m)+1;nY=(m==11)?Number+1:y;
wStr="<ht"+""+"ml><he"+""+"ad><st"+""+"yle type=\"text/css\">\n</st"+""+"yle>\n<ti"+""+"tle>"+mName[m]+", "+y+"</ti"+""+"tle>\n</he"+""+"ad>\n<bo"+""+"dy topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\" leftmargin=\"0\" onLoad=\"window.focus()\">\n<table width=\"100%\" border=\"0\" cellspacing=\"0\">\n<tr>\n<td bgcolor=\""+KW_color[6]+"\">\n<table width=\"100%\" border=0>\n"
wStr+="<tr>\n<td align=center bgcolor=\""+KW_color[6]+"\" class=\"tblHdr\" colspan=\"4\"><a href=\"javascript:window.opener.KW_doCalendar('"+obj+"',"+E+",'"+pM+"','"+pY+"');\" class=\"tblHdr\">&laquo</a>  "+mName[m]+"  <a href=\"javascript:window.opener.KW_doCalendar('"+obj+"',"+E+",'"+nM+"','"+nY+"');\" class=\"tblHdr\">&raquo</a></td>\n<td colspan=3 align=center class=\"tblHdr\"><a href=\"javascript:window.opener.KW_doCalendar('"+obj+"',"+E+",'"+m+"','"+(y-1)+"');\" class=\"tblHdr\">&laquo</a>  "+y+"  <a href=\"javascript:window.opener.KW_doCalendar('"+obj+"',"+E+",'"+m+"','"+(Number+1)+"');\" class=\"tblHdr\">&raquo</a></td>\n</tr>\n"
wStr+="<tr>\n";for(wdn=0;wdn<7;wdn++)wStr+="<td class=\"subTbl\">"+wName[wdn]+"</td>\n";wStr+="</tr>\n"
for (x=0;x<parseInt(dStr.length/7);x++) { wStr+="<tr>\n"; for (y=0;y<7;y++) {
yT=(E==1)?5:0;bC=(y==yT||y==6)?KW_color[2]:KW_color[3];
if ((y==yT||y==6) && KW_sw && !dStr[x*7+y].display) dStr[x*7+y].display=true;
if ((Number(m)+1)!=dStr[x*7+y].month) bC=KW_color[5]; if (dStr[x*7+y].special)
bC=KW_color[4];if (dStr[x*7+y].today) bC=KW_color[1];
a0=(KW_cl!=1)?"":"window.opener.MM_findObj('KW_selectedMonth',window.opener.document).value='"+dStr[x*7+y].month+"';window.opener.MM_findObj('KW_selectedYear',window.opener.document).value='"+dStr[x*7+y].year+"'; "
a1=(dStr[x*7+y].display)?"":"<a href=\"javascript:window.opener.MM_findObj('"+obj+"',window.opener.document).value='"+dStr[x*7+y].output+"';"+a0+" window.close();\" >";
a2=(dStr[x*7+y].display)?"":"</a>";
wStr+="<td align=\"center\" bgcolor="+bC+">"+a1+dStr[x*7+y].day+a2+"</td>\n";
} wStr+="</tr>\n";} wStr+="<tr><td colspan=7></td></tr></table></td></tr></table></bo"+""+"dy></ht"+""+"ml>";
var screenX=(self.screenX)?self.screenX+20:window.screenLeft
var screenY=(self.screenY)?self.screenY+70:window.screenTop
var w =(descx==-1)?parseInt(screen.width/2-75):descx+screenX;
var h=(descy==-1)?parseInt(screen.height/2-75):descy+screenY;
var look='width='+KW_cWidth+',height=155,left='+w+',top='+h; popwin=window.open('','calendar',look);
popwin.document.open(); popwin.document.write(wStr); popwin.document.close();
}

function GP_AdvOpenWindow(theURL,winName,features,popWidth,popHeight,winAlign,ignorelink,alwaysOnTop,autoCloseTime,borderless) { //v2.0
var leftPos=0,topPos=0,autoCloseTimeoutHandle, ontopIntervalHandle, w = 480, h = 340;
if (popWidth > 0) features += (features.length > 0 ? ',' : '') + 'width=' + popWidth;
if (popHeight > 0) features += (features.length > 0 ? ',' : '') + 'height=' + popHeight;
if (winAlign && winAlign != "" && popWidth > 0 && popHeight > 0) {
if (document.all || document.layers || document.getElementById) {w = screen.availWidth; h = screen.availHeight;}
if (winAlign.indexOf("center&quot != -1) {topPos = (h-popHeight)/2;leftPos = (w-popWidth)/2;}
if (winAlign.indexOf("bottom&quot != -1) topPos = h-popHeight; if (winAlign.indexOf("right&quot != -1) leftPos = w-popWidth;
if (winAlign.indexOf("left&quot != -1) leftPos = 0; if (winAlign.indexOf("top&quot != -1) topPos = 0;
features += (features.length > 0 ? ',' : '') + 'top=' + topPos+',left='+leftPos;}
if (document.all && borderless && borderless != "" && features.indexOf("fullscreen&quot != -1) features+=",fullscreen=1";
if (window["popupWindow"] == null) window["popupWindow"] = new Array();
var wp = popupWindow.length;
popupWindow[wp] = window.open(theURL,winName,features);
if (popupWindow[wp].opener == null) popupWindow[wp].opener = self;
if (document.all || document.layers || document.getElementById) {
if (borderless && borderless != "&quot {popupWindow[wp].resizeTo(popWidth,popHeight); popupWindow[wp].moveTo(leftPos, topPos);}
if (alwaysOnTop && alwaysOnTop != "&quot {
ontopIntervalHandle = popupWindow[wp].setInterval("window.focus();", 50);
popupWindow[wp].document.body.onload = function() {window.setInterval("window.focus();", 50);}; }
if (autoCloseTime && autoCloseTime > 0) {
popupWindow[wp].document.body.onbeforeunload = function() {
if (autoCloseTimeoutHandle) window.clearInterval(autoCloseTimeoutHandle);
window.onbeforeunload = null; }
autoCloseTimeoutHandle = window.setTimeout("popupWindow["+wp+"].close()", autoCloseTime * 1000); }
window.onbeforeunload = function() {for (var i=0;i<popupWindow.length;i++) popupWindow.close();}; }
document.MM_returnValue = (ignorelink && ignorelink != "&quot ? false : true;
}

function YY_checkform() { //v4.66
//copyright (c)1998,2002 Yaromat.com
var args = YY_checkform.arguments; var myDot=true; var myV=''; var myErr='';var addErr=false;var myReq;
for (var i=1; i<args.length;i=i+4){
if (args[i+1].charAt(0)=='#'){myReq=true; args[i+1]=args[i+1].substring(1);}else{myReq=false}
var myObj = MM_findObj(args.replace(/\[\d+\]/ig,"&quot);
myV=myObj.value;
if (myObj.type=='text'||myObj.type=='password'||myObj.type=='hidden'){
if (myReq&&myObj.value.length==0){addErr=true}
if ((myV.length>0)&&(args[i+2]==1)){ //fromto
var myMa=args[i+1].split('_');if(isNaN(myV)||myV<myMa[0]/1||myV > myMa[1]/1){addErr=true}
} else if ((myV.length>0)&&(args[i+2]==2)){
var rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-z]{2,4}$"if(!rx.test(myV))addErr=true;
} else if ((myV.length>0)&&(args[i+2]==3)){ // date
var myMa=args[i+1].split("#" var myAt=myV.match(myMa[0]);
if(myAt){
var myD=(myAt[myMa[1]])?myAt[myMa[1]]:1; var myM=myAt[myMa[2]]-1; var myY=myAt[myMa[3]];
var myDate=new Date(myY,myM,myD);
if(myDate.getFullYear()!=myY||myDate.getDate()!=myD||myDate.getMonth()!=myM){addErr=true};
}else{addErr=true}
} else if ((myV.length>0)&&(args[i+2]==4)){ // time
var myMa=args[i+1].split("#" var myAt=myV.match(myMa[0]);if(!myAt){addErr=true}
} else if (myV.length>0&&args[i+2]==5){ // check this 2
var myObj1 = MM_findObj(args[i+1].replace(/\[\d+\]/ig,"&quot);
if(myObj1.length)myObj1=myObj1[args[i+1].replace(/(.*\[)|(\].*)/ig,"&quot];
if(!myObj1.checked){addErr=true}
} else if (myV.length>0&&args[i+2]==6){ // the same
var myObj1 = MM_findObj(args[i+1]);
if(myV!=myObj1.value){addErr=true}
}
} else
if (!myObj.type&&myObj.length>0&&myObj[0].type=='radio'){
var myTest = args.match(/(.*)\[(\d+)\].*/i);
var myObj1=(myObj.length>1)?myObj[myTest[2]]:myObj;
if (args[i+2]==1&&myObj1&&myObj1.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
if (args[i+2]==2){
var myDot=false;
for(var j=0;j<myObj.length;j++){myDot=myDot||myObj[j].checked}
if(!myDot){myErr+='* ' +args[i+3]+'\n'}
}
} else if (myObj.type=='checkbox'){
if(args[i+2]==1&&myObj.checked==false){addErr=true}
if(args[i+2]==2&&myObj.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
} else if (myObj.type=='select-one'||myObj.type=='select-multiple'){
if(args[i+2]==1&&myObj.selectedIndex/1==0){addErr=true}
}else if (myObj.type=='textarea'){
if(myV.length<args[i+1]){addErr=true}
}
if (addErr){myErr+='* '+args[i+3]+'\n'; addErr=false}
}
if (myErr!=''){alert('The required information is incomplete or contains errors:\t\t\t\t\t\n\n'+myErr)}
document.MM_returnValue = (myErr=='');
}
//-->
</script>
<script language="javascript" src="../../ScriptLibrary/incPureUpload.js"></script>

</head>
<body bgcolor="#000000" leftmargin="0" topmargin="0" bottommargin="0" marginwidth="0" marginheight="0" onLoad="KW_mouseInit()">
<table width="779" height="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td valign="top"><table width="779" height="124" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><img src="../images/Header.jpg" width="779" height="124"></td>
</tr>
</table>
<table width="779" height="41" border="0" cellpadding="0" cellspacing="0" background="../images/z2.jpg">
<tr>
<td><a href="../Index.htm"><img src="../images/btn_About.jpg" width="121" height="41" border="0"></a><a href="../search.asp"><img src="../images/btn_Search2.jpg" width="121" height="41" border="0"></a><a href="admin_Users.asp"><img src="../images/btn_Admin.jpg" width="121" height="41" border="0"></a><a href="../ContactUs.htm"><img src="../images/btn_ContactUs.jpg" width="121" height="41" border="0"></a><a href="Instructions.pdf" target="_blank"><img src="../images/btn_Help.jpg" width="121" height="41" border="0"></a><a href="<%= MM_Logout %>"><img src="../images/btn_LogOut.jpg" width="121" height="41" border="0"></a></td>
</tr>
</table>

<table width="779" border="0" cellspacing="0" cellpadding="4">
<tr>
<td><table width="760" border="0" align="center" cellpadding="2" cellspacing="2">
<tr valign="top" bgcolor="#3F7EBE">
<td width="583" bgcolor="#FFFFFF">
<div align="left"><font size="2" face="Arial, Helvetica, sans-serif"><strong>
<em><strong><font color="#999999" size="4" face="Arial, Helvetica, sans-serif">Search
Options<font size="2"> - <font size="4">Add</font></font></font></strong></em><br>
</strong><em><strong>Welcome, <font color="#FF3300"><%=(rsUsers.Fields.Item("FirstName&quot.Value)%> <img src="images/spacer.gif" width="0" height="1"><%=(rsUsers.Fields.Item("LastName&quot.Value)%></font></strong></em> <strong><br>
</strong></font></div></td>
<td width="163" bgcolor="#FFFFFF">
<div align="right"><font size="2" face="Arial, Helvetica, sans-serif">
<script language="JavaScript">
var now = new Date();
var days = new Array('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
var months = new Array('January','February','March','April','May','June','July','August','September','October','November','December');
var date = ((now.getDate()<10) ? "0" : "&quot+ now.getDate();

function fourdigits(number) {
return (number < 1000) ? number + 1900 : number;
}

// Join it all together (No se incluye - days[now.getDay()] + ", " +)
today = months[now.getMonth()] + " " +
date + ", " +
(fourdigits(now.getYear())) ;

// Print out the data.
document.write(today);
</script>
</font></div></td>
</tr>
</table>
<br>
<table width="760" border="0" align="center" cellpadding="2" cellspacing="2">
<tr bgcolor="#3F7EBE">
<td bgcolor="#FFFFFF"><div align="left">
<table width="654" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td width="22"><font size="4" face="Arial, Helvetica, sans-serif"><font size="2"><a href="#" onClick="history.go(-1)"><img src="../images/left_arrow.jpg" alt="Back" width="22" height="22" border="0"></a></font></font><font size="2" face="Arial, Helvetica, sans-serif"> </font></td>
<td width="592"><font size="2" face="Arial, Helvetica, sans-serif">Please
fill all the blanks possible. Fileds marked with
</font><font size="2" face="Arial, Helvetica, sans-serif">(</font><font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"><strong>*</strong></font><font size="2" face="Arial, Helvetica, sans-serif">)
are required.</font> <font size="2" face="Arial, Helvetica, sans-serif">Entering
all the data below will result in better results
when searches
are generated by users.<b><b> </b></b></font></td>
<td width="24"> </td>
</tr>
</table>
<font size="2" face="Arial, Helvetica, sans-serif"><b><b>
</b></b></font>

<form ACTION="<%=MM_editAction%>" METHOD="POST" enctype="multipart/form-data" name="form1" onSubmit="checkFileUpload(this,'DWG,DWF,PDF',false,'','','','','','','');showProgressWindow('fileCopyProgress.htm',300,100);return document.MM_returnValue">
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bgcolor="#E5E5E5">
<tr>
<td><table align="center" cellpadding="2">
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Dwg
Available:</font></div></td>
<td><select name="DWF_icon" id="DWF_icon">
<option value="images/icon_noDWG.jpg">Please
Select</option>
<%
While (NOT rsDWF_Icon.EOF)
%>
<option value="<%=(rsDWF_Icon.Fields.Item("icon_Url&quot.Value)%>"><%=(rsDWF_Icon.Fields.Item("DWF_icon&quot.Value)%></option>
<%
rsDWF_Icon.MoveNext()
Wend
If (rsDWF_Icon.CursorType > 0) Then
rsDWF_Icon.MoveFirst
Else
rsDWF_Icon.Requery
End If
%>
</select> </td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">DWF
File </font></div></td>
<td><input name="DWF_Url" type="file" id="DWF_Url3" onChange="checkOneFileUpload(this,'DWG,DWF,PDF',false,'','','','','','','')">
</td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"></font><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">FileName:</font><font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"></font></div></td>
<td> <input type="text" name="FileName" value="" size="32">
<font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"><strong>*</strong></font> <font size="2" face="Arial, Helvetica, sans-serif">Please
use Unique filename.</font><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">
<input name="Created" type="hidden" id="Created" value="<% Response.Write(Date)%>">
<input name="LastUpdate" type="hidden" id="LastUpdate" value="<% Response.Write(Date)%>">
<input name="UserID" type="hidden" id="UserID3" value="<%= Session("MM_Username&quot%>">
<input name="Status" type="hidden" id="Status" value="Pending">
</font> </td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">ProjectName:</font><font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"></font></div></td>
<td> <input type="text" name="ProjectName" value="" size="65">
<font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"><strong>*</strong></font> <font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">
<input name="RevisionerStatus" type="hidden" id="RevisionerStatus" value="Pending">
</font> </td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">SheetTitle:</font><font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"></font></div></td>
<td> <input name="SheetTitle" type="text" value="" size="65">
<font size="2" face="Arial, Helvetica, sans-serif"> </font><font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"><strong>*</strong></font><font size="2" face="Arial, Helvetica, sans-serif"> 
</font> </td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Bldg_No:</font><font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"></font></div></td>
<td> <input type="text" name="Bldg_No" value="" size="5">
<font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"><strong>*</strong></font> </td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Room_No:</font><font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"></font></div></td>
<td> <input type="text" name="Room_No" value="" size="32">
<font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"><strong>*</strong></font> </td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">RevDate:</font></div></td>
<td> <input type="text" name="RevDate" value="" size="10">
<a href="javascript:;" onClick="KW_doCalendar('RevDate',0)"><img src="../images/ew_calendar.gif" width="16" height="16" border="0"></a>
</td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">RevNo:</font></div></td>
<td> <input type="text" name="RevNo" value="" size="5">
</td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Originator:</font></div></td>
<td> <input type="text" name="Originator" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">ProjectDesigner:</font></div></td>
<td> <input type="text" name="ProjectDesigner" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Draftsperson:</font></div></td>
<td> <input type="text" name="Draftsperson" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Checked
By:</font></div></td>
<td><input name="CheckedBy" type="text" id="CheckedBy" size="32">
</td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Approved
By:</font></div></td>
<td><input name="ApprovedBy" type="text" id="ApprovedBy" size="32"></td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Revisioner:</font><font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"></font></div></td>
<td><select name="Revisioner" id="Revisioner">
<option value="">Please select</option>
<%
While (NOT rsOnlineRevisioner.EOF)
%>
<option value="<%=(rsOnlineRevisioner.Fields.Item("UserName&quot.Value)%>"><%=(rsOnlineRevisioner.Fields.Item("UserName&quot.Value)%></option>
<%
rsOnlineRevisioner.MoveNext()
Wend
If (rsOnlineRevisioner.CursorType > 0) Then
rsOnlineRevisioner.MoveFirst
Else
rsOnlineRevisioner.Requery
End If
%>
</select>
<font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"><strong> *</strong></font> <font size="2" face="Arial, Helvetica, sans-serif">(Online
revisioner) <img src="../images/icon_Help.jpg" alt="Check who are those users" width="16" height="16" onClick="GP_AdvOpenWindow('../ApproverList.asp','ApproverList','fullscreen=no,toolbar=no,location=no,status=no,menubar=no,scrollbars=yes,resizable=no',340,400,'righttop','ignoreLink','alwaysOnTop',0,'');return document.MM_returnValue"></font></td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Approver:</font><font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"></font></div></td>
<td> <select name="Approver" id="Approver">
<option value="">Please select</option>
<%
While (NOT OnlineApprovers.EOF)
%>
<option value="<%=(OnlineApprovers.Fields.Item("UserName&quot.Value)%>"><%=(OnlineApprovers.Fields.Item("UserName&quot.Value)%></option>
<%
OnlineApprovers.MoveNext()
Wend
If (OnlineApprovers.CursorType > 0) Then
OnlineApprovers.MoveFirst
Else
OnlineApprovers.Requery
End If
%>
</select>
<font size="2" face="Arial, Helvetica, sans-serif">  </font><font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"><strong>*</strong></font> <font size="2" face="Arial, Helvetica, sans-serif">(Online
approver) <img src="../images/icon_Help.jpg" alt="Check who are those users" width="16" height="16" onClick="GP_AdvOpenWindow('../ApproverList.asp','ApproverList','fullscreen=no,toolbar=no,location=no,status=no,menubar=no,scrollbars=yes,resizable=no',340,400,'righttop','ignoreLink','alwaysOnTop',0,'');return document.MM_returnValue"></font></td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">FileCabineteNo:</font></div></td>
<td> <input type="text" name="FileCabineteNo" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">FileCabineteLabel:</font></div></td>
<td> <input type="text" name="FileCabineteLabel" value="" size="55">
</td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">StorageDisk:</font></div></td>
<td> <input type="text" name="StorageDisk" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">ControlNo:</font></div></td>
<td> <input type="text" name="ControlNo" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap bgcolor="#6699CC"><div align="left"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Comments:</font></div></td>
<td> <textarea name="Comments" cols="55" rows="4"></textarea>
<font size="2" face="Arial, Helvetica, sans-serif">
<script language="javascript1.2">
editor_generate('Comments');
</script>
</font> </td>
</tr>
<tr valign="baseline">
<td align="right" valign="top" nowrap><font size="2" face="Arial, Helvetica, sans-serif"> </font></td>
<td> <input name="submit" type="submit" onClick="YY_checkform('form1','FileName','#q','0','FileName is required.','ProjectName','#q','0','Project Name is required.','SheetTitle','#q','0','SheetTitle is required.','Bldg_No','#q','0','Bldg No is required.','Room_No','#q','0','Room No is required.','Revisioner','#q','1','Please select an Online Revisioner.','Approver','#q','1','Please select an Online Approver.');return document.MM_returnValue" value="Insert Record">
</td>
</tr>
</table></td>
</tr>
</table>
<table width="600" border="0" align="center" cellpadding="2" cellspacing="2">
<tr bgcolor="#3F7EBE">
<td bgcolor="#FFFFFF"><font size="4" face="Arial, Helvetica, sans-serif"><font size="2"><a href="#" onClick="history.go(-1)"><img src="../images/left_arrow.jpg" alt="Back" width="22" height="22" border="0"></a></font></font></td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form1">
</form>
<p> </p>
</div></td>
</tr>
</table>
<p> </p></td>
</tr>
</table> </td>
</tr>
</table>
</body>
</html>
<%
rsUsers.Close()
Set rsUsers = Nothing
%>
<%
rsDWF_Icon.Close()
Set rsDWF_Icon = Nothing
%>
<%
OnlineApprovers.Close()
Set OnlineApprovers = Nothing
%>
<%
rsOnlineRevisioner.Close()
Set rsOnlineRevisioner = Nothing
%>
-------------End Code----------------------

What should be the code to write and where. I have tried using both examples responded to my question but have had no luck. The both sent me to the "error.asp" page I want without letting me enter the data in the form and hit the submit button.

ramos05 · Sep 25, 2003

Sorry Guys, I am not a proggramer. It's not so easy for me to understand the coding and how it works. I use Dreamweaver which generates the code for me. Below is the code generate for the page which I would like to have the redirect page if a duplicate field is being entered.
What should be the code to write and where. I have tried using both examples responded to my question but have had no luck. The both sent me to the "error.asp" page I want without letting me enter the data in the form and hit the submit button.

------------------Code----------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' *** Logout the current user.
MM_Logout = CStr(Request.ServerVariables("URL&quot