Do while not...if....else NON FUNZIONA

**devil946** · 23-05-2016, 08:33

Salve a tutti ho un nuovo problema a cui non riesco a trovare una soluzione. Ho un ciclo do while not con all'interno due if, ma sembra che il codice ignori completamente il secondo ciclo if, qualcuno puà aiutarmi?

codice:

<% .............
    Anno = datepart("yyyy",Date())
    AnnoPrecedente = Anno - 1    
    'creo l'oggetto Connection
    Set connect = Server.CreateObject("ADODB.Connection")
    'apro la connessione con la fonte di dati
     connect.open strConn
     'RICAVO LA LISTA DELLE TABELLE CONTENUTE NEL DB
     adSchemaTables = 20
Set oRSet1 = connect.OpenSchema(adSchemaTables)
dim Tab
Tab ="T_Allenamenti"&AnnoPrecedente&"\"&Anno

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
Dim Rep
Dim alert


MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If


' boolean to abort record edit
MM_abortEdit = false


' query string to execute
MM_editQuery = ""
If CStr(Request("MM_update")) = "form1" Then
        Dim SQL3
        Dim SQL4
        Dim ConnDown      
        Set ConnDown=Server.CreateObject("ADODB.Connection")
        ConnDown.Open strConn
        Anno = datepart("yyyy",Date())
        AnnoPrecedente = Anno - 1
        dim Tab0
        Tab0 = "T_Allenamenti"        
        dim Tab1
        Tab1 = "T_Allenamenti"&AnnoPrecedente&"\"&Anno
        'SQL2= "SELECT * INTO "&AnnoPrecedente&" FROM "&Tab0&" where 1=0"  senza dati        
        SQL3 = "DROP TABLE "&Tab1&""
        ConnDown.Execute SQL3        
        SQL4 = "SELECT * INTO "&Tab1&" FROM "&Tab0&""         ' con dati    
        ConnDown.Execute SQL4%>
<script language="javascript">
var r= window.alert("DATI AGGIORNATI!");
</script>
<%end if%>
<html>
<head>
<title>TEAM-GEST: SOFTWARE PROFESSIONALE PER GESTIRE IL TUO TEAM</title>
<meta name="description" content="">
<meta name="keywords" content="">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="stile.css" rel="stylesheet" type="text/css" />
<link rel="icon" href="/images/logo1.ico" />
</head>
<body topmargin="3" bottommargin="3" bgcolor="#7A8996">
<%do while Not oRSet1.EOF
if Trim(oRSet1("TABLE_TYPE")) = "TABLE" then
If oRSet1("TABLE_NAME") = Tab Then%>
<table width="100%" border="0" cellspacing="3" cellpadding="0">
  <tr>
    <td width="5%"></td>
    <td width="50%" class="label">ATTENZIONE, ARCHIVIO GIA' ESISTENTE! AGGIORNARE I DATI ?</td>
    <td width="45%" rowspan="3"><img src="images/logo1.png" width="493" height="250"></td>
  </tr>
  <tr>
    <td width="5%"></td>
    <td width="50%" class="label" valign="top">
    <form name="form1" method="post" action="<%=MM_editAction%>">
      <input name="invia" type="submit" class="bottonisalva" id="invia" title="AGGIORNA" value="">
      <input type="hidden" name="MM_update" value="form1">
      <input name="Ripristina" type="reset" class="bottoniannulla" id="reset" title="ANNULLA" value="">
    </form>
    </td>
  </tr> 
  <tr>
    <td width="5%"></td>
    <td width="50%" class="label"></td>
  </tr>   
</table>    
<%
else
        Dim SQL5
        Dim ConnDown5      
        Set ConnDown5=Server.CreateObject("ADODB.Connection")
        ConnDown5.Open strConn
        Anno = datepart("yyyy",Date())
        AnnoPrecedente = Anno - 1        
        dim Tab21
        dim Tab20
        Tab20 ="T_Allenamenti"
        Tab21 ="T_Allenamenti"&AnnoPrecedente&"\"&Anno
        'SQL2= "SELECT * INTO "&AnnoPrecedente&" FROM "&Tab0&" where 1=0"  senza dati        
        SQL5= "SELECT * INTO "&Tab21&" FROM "&Tab20&""         ' con dati    
        ConnDown5.Execute SQL5%>
<script language="javascript">
var domanda = window.alert("DATI ARCHIVIATI CON SUCCESSO!");
self.close() 
</script>        
<%end if
end if%>
<%Response.Write oRSet1("TABLE_NAME") & "<br>"%>
<%oRSet1.MoveNext
loop%>


</body>
</html>

**vic53** · 23-05-2016, 18:31

Scusami se mi permetto di dirti una cosa non bella....
ma tu sai dove gira il codice ASP?
sul client o sul server?
ciao

Discussione: Do while not...if....else NON FUNZIONA

Strumenti discussione

Ricerca discussione

Visualizza

Do while not...if....else NON FUNZIONA

Permessi di invio