Salve a tutti.
sono alle prime armi con l'asp e l'esercitazione prevede che utilizzi un form html per interrogare una pagina asp mostrando tutto il contenuto di una tabella.
Dato che ho problemi con IIS (meglio non parlarne, casomai apro un altro thread)
e che apache supporta solo il php (per l'asp è necessaria una pallosissima modifica)
utilizzo un webserver online chiamato Jabry.

la pagina in html è

Legget.htm

codice:
<HTML>
<HEAD>
<TITLE>Visualizzazione tabella</TITLE>
<HEAD>
<BDDY>
<H3>Richiesta nome tabella </H3>
<FORM METHOD="post" NAME="form1" ACTION="/Sprunkman/Legget.asp"


Nome della tabella

<INPUT TYPE="text" SIZE="40" NAME="tabella"><BR
<INPUT TYPE="submit" VALUE="Invia" NAME="bl">
<INPUT TYPE="reset" VALUE="Annulla" NAME="b2"></P>
</FORM>
</BODY>
</HTML>
mentre la pagina in asp è la seguente

Legget.asp
codice:
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
Dim Conn
Dim rs
Dim connect_string
Dim nome
Dim i
nome = Request.Form("tabella")
connect_string = "DSN=Ospedale;DATABASE=Pazienti;SERVER=localhost; PORT=5432;UID=postgres;PWD=******;"
set Conn = server.createObject("ADODB.connection")
set rs = server.createObject("ADODB.Recordset")
Conn.open connect_string
%>

<html>
<head>
<title>Visualizzazione record</title>
</head>
<body>
<table border=1>
<tr>
<% For i = 0 to rs.Fields.Count -1 %>
<TD><% =rs.Fields(i).Name %></TD>
<% Next %>
</tr>
<%
rs.MoveFirst
Do While Not rs.EOF %>
<tr>
<% For i = 0 to rs.Fields.Count -1 %>
<TD><% = rs.Fields(i).Value %></td>
<% Next %>
</tr>
<%
rs.MoveNext
Loop
rs.Close
Conn.Close
set rs = nothing
set Conn = nothing
%>
</table>


</body>
</html>
mi da errore 500 del server, suppongo che ci sia qualcosa di sbagliato nello script.
Ricordatevi che sono alle prime armi con l'asp, non siate troppo pesanti se il problema è banale (anzi lo spero XD)

se non è contro il regolamento, eccovi la pagina in html in azione, per poter vedere l'errore
http://users3.jabry.com/Sprunkman/Legget.htm
(se è vietato toglietelo pure)
Grazie in anticipo