Newsgroup: it.comp.lang.visual-basic
Titolo: [VbScript] Ma dove sbaglio????

Dunque non mi sparate se allego tutto il codice della pagina asp o se
risulto OT(non conosco nessun altro NG non moderato)... ma mi
dice:
"Impossibile trovare il server o errore DNS
Internet Explorer"
 eppure su ODBC ho messo bene il db di
access... chi mi aiuta???
Ho installato PWS su win98SE, è attivato e nelle impostazioni del pannello
di controllo, dei driver ODBC nella parte DNS server, ho aggiunto
l'impostazione TEST linkandola al DB access 2000... E' giusto che la
versione dei driver è la 4.00....????
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 della tabella...
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</title>
<% language="vbscript"
set OBJdbconnection = Server.CreateObject("ADODB.Connection")
OBJdbconnection.open "Test"
%>
</head>
<body>
<form action="Test.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 "Test"
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 Test 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 Test"
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???
Fallo con JavaScript. Basta che "succhi" il codice dai siti che già hanno implementata
la funzione. Un po' di iniziativa! :-)))