<%@ Language=VBScript %>
<% Option Explicit %>
<% Response.Buffer=True %>
<%
Dim Sql, RecSet, Combo
Set RecSet = Server.CreateObject("ADODB.RecordSet")
Combo = Request.Form("Combo")
Sql = "SELECT * FROM AnagraficaStudenti WHERE Cstr(CodiceStudente)='" & Combo & "'"
'Il typecasting Cstr(CodiceStudente) č necessario poichč il valore della combo box č una stringa
'mentre il CodiceStudente memorizzato nella tabella č di tipo contatore
RecSet.Open Sql, Conn
%>
Informazioni Studente