Ciao a Tutti,
volevo chiedere:

Ho una tabella t_sal di 44 campi,
devo estrarre i primi 12 campi,
con la funzione SELECT ho usato questa sintassi che va benissimo,
pero' mi pongo la domanda: e' possibile in maniera automatica estrarre i primi 12 campi senza dover digitare per forza il nome di ciascuno, tipo SELECT from campo1 to 12 ...

Grazie mille !!
Angelo

<%@ Language=VBScript %>
<% Option Explicit
Dim count_rec, iLoop, objConn, objRS, strSQL, var
%>

<BODY>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=sal.dsn"
objConn.Open
'
strSQL = "SELECT Num, Month_Year, Project, Start, End, Status, Client, Country, Project_Leader, Activity_Code, Description, Summary FROM t_sal ORDER BY " & var
Set objRS = objConn.Execute(strSQL)
'
Do While Not objRS.EOF
count_rec = count_rec + 1
If count_rec = 1 Then
Response.Write "<TABLE border=1><TR>"
For iLoop = 0 to objRS.Fields.Count - 1
Response.Write "<TD BGCOLOR=FFFFCC ALIGN=CENTER><FONT SIZE=2><A style='color: #006600' class='plain' HREF='http://enws01157389/sgef_sal/response.asp?var=" _
& objRS.Fields(iLoop).Name & "'>" _
& objRS.Fields(iLoop).Name & "</A></FONT></TD>"
Next
Response.Write "</TR>"
ElseIf count_rec > 1 Then
Response.Write "<TR>"
For iLoop = 0 to objRS.Fields.Count - 1
Response.Write "<TD BGCOLOR=white ALIGN=CENTER><FONT SIZE=2 COLOR=brown>" & objRS.Fields(iLoop).Value & "</FONT></TD>"
Next
Response.Write "</TR>"
objRS.MoveNext
End If
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.Write "</TABLE>"
%>

</BODY>
</HTML>