Newsgroup: it.comp.www.asp
Titolo: Non capisco dove sbaglio...

Dunque non mi sparate se allego tutto il codice della pagina asp... ma mi
dice che non trova il DNS server eppure su ODBC ho messo bene il db di
access... chi mi aiuta???
Dunque la pagina non ha altro che uno stupido form dove inserisco i dati e
clikko su nuovo o modifica che x ora fanno la stessa cosa... e richiamo la
stessa pagina dove visualizzo in una tabella dinamica il contenuto dei
dati...
Ah visto che ci sto... come faccio a intercettare l'evento di un combo che
se seleziono ad esempio il gruppo degli impiegati mi appagliono in
automatico tutti i nomi in un altro combo???
grazie!!!
ecco il codice....
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
 <title>Test AP2000</title>
<% language="vbscript"
set OBJdbconnection = Server.CreateObject("ADODB.Connection")
OBJdbconnection.open "TestAP2000"
%>
</head>
<body>
<form action="TestAP2000.asp" method="post" >
<table border = 1>
<tr>
       <td>Data Rilevazione:</td>
       <td><input name="DataRilevazione" type="text" value=""></td>
</tr>
<tr>
       <td>Utente:</td>
       <td><input name="Utente" type="text" value=""></td>
</tr>
<tr>
       <td>Segmento Applicativo:</td>
       <td><select name="SegmentoApplicativo">
         <option></option>
         <option value = 1>Scadenzario</option>
   <option value = 2>Amministra</option>
   <option value = 3>Disegno</option>
   <option value = 4>Applicazioni</option>
   <option value = 5>Raccoglitori Pubblici</option>
   <option value = 6>Raccoglitori Privati</option>
   <option value = 7>Fascicoli</option>
   </select>
  </td>
</tr>
<tr>
       <td>Segmento Terminale:</td>
       <td><select name="SegmentoTerminale">
         <option></option>
         <% do while RS.EOF
      response.write"<option>" & RS(0) & "</option>"
   RS.MoveNext
   loop %>
   </select>
  </td>
</tr>
<tr>
       <td>Errore Rilevato:</td>
       <td><input name="Errore" type="text" value=""></td>
</tr>
<tr>
       <td>Utente Assegnato:</td>
       <td><input name="UtenteAssegnato" type="text" value=""></td>
</tr>
<tr>
       <td>Risposta:</td>
       <td><input name="Risposta" type="text" value=""></td>
</tr>
<tr>
       <td>Data Risposta:</td>
       <td><input name="DataRisposta" type="text" value=""></td>
</tr>
<tr>
       <td>Esito:</td>
       <td><select name="Esito">
             <option>Rifiutato
             <option>Nuovo Rilascio
          <option>Richiesta Ulteriori Informazioni
          </select>
   </td>
</tr>
<tr>
       <td>File Rilasciato:</td>
       <td><input name="File" type="file" value=""></td>
</tr>
</table>
<input name="Nuovo" type="submit" value="Nuovo">
<input name="Modifica" type="submit" value="Modifica">
</form>
<br><br><br><br>
<%
dim SqlQuery
dim DataRilevazione
dim Utente
dim SegmentoApp
dim SegmentoTer
dim ErrRilevato
dim UtenteAssegnato
dim Risposta
dim data
dim Esito
dim File
Set OBJdbconnection = Server.CreateObject("ADODB.Connection")
OBJdbconnection.open "TestAP2000"
DataRilevazione = clng(Request.form("DataRilevazione"))
Utente = Request.form("Utente")
SegmentoApp = Request.form("SegmentoApplicativo")
SegmentoTer = Request.form("SegmentoTerminale")
ErrRilevato = Request.form("Errore")
UtenteAssegnato = Request.form("UtenteAssegnato")
Risposta = Request.form("Risposta")
data = clng(Request.form("DataRisposta"))
Esito = Request.form("Esito")
File = Request.form("file")
SqlQuery = "INSERT INTO TestAp2000 values"
SqlQuery = SqlQuery & "(" & DataRilevazione & ",'" & Utente & "','" &
SegmentoApp & "',"
SqlQuery = SqlQuery & "'" &  SegmentoTer & "','" & ErrRilevato & "','" &
UtenteAssegnato & "',
SqlQuery = SqlQuery & "'" & Risposta & "'," & data & ",'" & Esito & "','" &
File & "')"
set RS = OBJdbconnection.execute(SqlQuery)
SqlQuery = ""
SqlQuery = "Select * from TestAp2000"
set RS=OBJdbconnection.execute(SqlQuery)
%>
<table border="2" BORDERCOLOR = "#d72b01" bgcolor = "#f4b698">
<tr>
<th>DataRilevazione</th>
<th>Utente</th>
<th>Segmento Applicativo</th>
<th>Segmento Terminale</th>
<th>Errore Rilevato</th>
<th>Utente assegnato</th>
<th>Risposta</th>
<th>Data Risposta</th>
<th>Esito</th>
<th>File Rilasciato</th>
</tr>
<%
response.write"<table border = 1>"
do while rs.eof
   rs.movefirst
   response.write"<tr>"
       response.write"<td>" & RS(1) & "</td>"
       response.write"<td>" & RS(2) & "</td>"
       response.write"<td>" & RS(3) & "</td>"
       response.write"<td>" & RS(4) & "</td>"
       response.write"<td>" & RS(5) & "</td>"
       response.write"<td>" & RS(6) & "</td>"
       response.write"<td>" & RS(7) & "</td>"
       response.write"<td>" & RS(8) & "</td>"
       response.write"<td>" & RS(9) & "</td>"
       response.write"<td>" & RS(10) & "</td>"
 response.write"</tr>"
 RS.movenext
loop
response.write"</table>"
RS.close
RS = nothing
OBJdbconnection.close
Set OBJdbconnection =  Nothing
%>
</body>
</html>

 automatico tutti i nomi in un altro combo???
Con JavaScript.
Saluti,
Neo
---
[Attenzione]
Questo messaggio potrebbe essere stato spedito da un virus. Se il testo
conteneva amenità, vaccate e/o incongruenze, ciò è da imputarsi
all'infezione.