"") Then MM_dupKeyRedirect="@@dupKeyRedirect@@" MM_rsKeyConnection=MM_@@connName@@_STRING MM_dupKeyUsernameValue = CStr(Request.Form("@@frmUsername@@")) MM_dupKeySQL="SELECT @@fldUsername@@ FROM @@tableName@@ WHERE @@fldUsername@@='" & Replace(MM_dupKeyUsernameValue,"'","''") & "'" MM_adodbRecordset="ADODB.Recordset" set MM_rsKey=Server.CreateObject(MM_adodbRecordset) MM_rsKey.ActiveConnection=MM_rsKeyConnection MM_rsKey.Source=MM_dupKeySQL MM_rsKey.CursorType=0 MM_rsKey.CursorLocation=2 MM_rsKey.LockType=3 MM_rsKey.Open If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then ' the username was found - can not add the requested username MM_qsChar = "?" If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&" MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue Response.Redirect(MM_dupKeyRedirect) End If MM_rsKey.Close End If %> ]]>