ciao a tutti
premetto che è da poco che mi avvicino ad ASP

allora ho questa pagina che cerca in un database
<%@Language="VBScript"%>

<%
Dim oRS, oConn

Set oRS = Server.CreateObject("ADODB.Recordset")
Set oConn = Server.CreateObject("ADODB.Connection")

oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dbloaclbus.mdb")
oConn.Open

strSQL="SELECT * FROM Fornitori WHERE RagSociale"



x = 1
oRS.Open strSQL, oConn,1,3
conta=oRS.RecordCount

if not oRS.Eof then
%>&RagSociale<%=x%>=<%=oRS("RagSociale")%>&mail<%= x%>=<%=oRS("mail")%><%

Do while not oRS.EOF
%>&RagSociale<%=x%>=<%=oRS("RagSociale")%>&mail<%= x%>=<%=oRS("mail")%><%

x = x + 1
oRS.MoveNext
Loop
end if

Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>
ma mi restituisce due volte la stessa cosa adesso io vorrei che se non trova nulla mi scrive "Nussun Record"

altrimenti mi stampa a video i risultati come devo modificare??

Grazie