ho realizzato la pagina asp con la select diretta della tabella Employees del database Northwind. Ho inserito le check box per prelevare i risultati e visualizzare i risultati in un'altra pagina, ma... il browser non mi visualizza alcun errore... mi restituisce una pagina bianca!!!
[ C O D E ]
<%@ Language=VBScript %>
<% Response.Buffer = True %>
<html>
<head>
<title>Check</title>
</head>
<body>
<%
' Creo l'oggetto connection
StrConnect = "driver={SQL Server};server=(local);uid=sa;pwd=;database=Northw ind"
set objConn= Server.CreateObject("ADODB.Connection")
objConn.Open StrConnect
' Creo l'oggetto recordset
SET objRS = Server.CreateObject("ADODB.Recordset")
' Estraggo il recordset
strSQL = "SELECT * FROM Employees"
objRS.Open strSQL,objConn,1,1
Response.Write("Trovati: " & objRS.RecordCount & " record
")
%>
<form name="Form" method="post" action="elabora.asp">
<%
' Creo un ciclo di visulizzazione
WHILE NOT objRS.EOF%>
<input type="checkbox" name="chk" value="<%=objRS("EmployeeID")%>">
<% Response.Write ("ID:" & objRS("EmployeeID")&" - Cognome: " & objRS("LastName") & " - Nome: " & objRS("FirstName")&"
")
objRS.MoveNext
WEND
' Chiudo e libero gli oggetti
objRS.Close
SET objRS = Nothing
objConn.Close
SET objConn = Nothing
%>
<input id="cmdSubmit" name="cmdSubmit" type="submit" value="Esegui">
</form>
</body>
</html>
[/ C O D E ]
e la seconda pagina...
[ C O D E ]
<%@ Language=VBScript %>
<% Response.Buffer = True %>
<html>
<head>
<title>Elabora</title>
</head>
<body>
<%
Dim objConn
' Creo l'oggetto connection
StrConnect = "driver={SQL Server};server=(local);uid=sa;pwd=;database=Northw ind"
set objConn= Server.CreateObject("ADODB.Connection")
objConn.Open StrConnect
' Recupererai i valori dei vari campi del form
strLista = Request.Form("chk")
strSQL = "SELECT * FROM Employees WHERE EmployeeID IN(" & strLista & ");"
objConn.Execute strSQL
' Chiudo e libero gli oggetti
SET objRS = Nothing
objConn.Close()
SET objConn = Nothing
%>
</body>
</html>
[/ C O D E ]
DOVE SBAGLIO!!!
Rispondi quotando
